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THE 
SWITCH 

SWITCH T0 5 VDOUBLE DENSITY 



LNDmibler 5/& 




FEATURES 

• 5- and 8-inch* disk drives 

• Single- & double-density 

• Any size and density in any mix 

• Read Model I, II* and HI disks 

• 5- or 8-inch* system disk 

• Single & double sided disk drives 

• DOS+ 3.3.9 included, with Disk 
BASIC. 

• 6 month warranty 

• Up to 3.75 megabytes online 

• Easy installation - plug-in & run 

• Analog phase lock loop data 
separation 

• Precision write precompensation 

• Regulated power supply 

• Guaranteed operation at 4MHz 

• All contacts gold plated 

• Solder masked & silk screened 

• Run* under DOS+ 3.3.9, TRSDOS 
2.3. NEWDOS 2.1. NEWDOS/80 
1.0. LDOS. NEWDOS/80 2.0 r 
and ULTRADOS 

• Reads 40 and 36 track disks on 
80 track drive* 

• FD1791 controller •*■ your FD1771 

• Fits Model I expansion interfaces 

• Fit* LNW expansion interface* 

• Track configurations to 80 tracks 

• 5 inch disk storage increased to: 

161.280 byte* - 36-track SS/DD 
322,660 byte* - 35-track DS/DD 
184.320 bytes - 40- track SS/DD 
368,640 bytes - 40track DS/DD 
368,640 bytes - 80 track SS/DD 
737,280 bytes - 80-track DS/DD 

• 8 inch disk storage increased to: 



track SS/DD 
1.182.720 bytes - 77 -track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double-density 

COMPLETE - The LNDoubler 5/8, 
svMUhe& your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switi h 
allows you to boot from 5- or 8-inch 
system disk*, and it's accessible from 
outside the interface. The LNDoubler 
5/8 come* with a double-density disk 
operating system (DOS* 3.3.9). 
complete with BASIC and utilitv 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density, 5- or 8-inch oper i 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 518. Each of your present 
40 track, single-sided 5-inch drive* 
will store up to 184,320 bytes 
(formatted storage) - that's an B0! 
increase in storage capacity lor only 
half the cost of just one disk drive 
With three 8-inch double-densm. 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model in! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced. 
tested and reliable double-deim!\ 



board you can buy. The LNDoubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL The 

B in easy to install. 
There are no traces to nit, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 

and enjoying s i>uter as never 

before. 

COMPAHI i. pare feat 

pare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 

vour dtikt Now foi only 



219.95 
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gO REMARKS 



"Golly, won't anyone do 

anything anymore without 

having to be paid off?" 



Tandy Kisses 

By golly, 80 Microcomputing was 
finally mentioned in the Tandy TRS 
publication. Not a great mention, by any 
means, but a mention. 

The Radio Shack people got consider- 
ably bent out of shape over a recent 80 
subscription ad in which I pointed out the 
savings which could be acrued by buying 
a complete Model III system via mail order 
ads in 80 instead of paying Radio Shack 
catalog prices. 

Since Radio Shack is a manufacturer, 
distributor and dealer, making money at 
every step of the line, they obviously have 
a vested interest in customers paying full 
list price. Indeed, were I in their position, I 
too would encourage this approach. 

Now, it is a fact that one can cause a 
great deal of expense by breaking the 
computer seal to install cut-rate memory 
chips or some other device inside the 
computer. Radio Shack service centers 
sock it to those who have trifled with the 
seals when making warranty repairs. I can 
see some justification for Radio Shack en- 
couraging customers not to fiddle around 
in the computer. 

But when it comes to buying a system 
from a local dealer at full list price, vs buy- 
ing one from a mail order dealer advertised 
in 80 (where the warranty is as good as 
gold), I think the Radio Shack complaints 
are unfair. These are the very same com- 
puters, sold at a discount. Indeed, I be- 
lieve the government is adamant in their 
protection of a dealer's right to discount. 

Accessories such as modems, extra 
disk drives, printers, and so forth can all 
be bought by mail order at substantial 
savings, and beefs by Radio Shack about 
this are not only unfair, but should call for 
some serious soul searching at the Tandy 
Towers In Fort Worth. 

The TRS systems do need service, 
make no mistake about that. Just this 
week we've had two Model Is, two Model 
lis, and one Model III go down. None of the 
problems stemmed from accessories, au- 
thorized or unauthorized. 

One of the purposes of 80 is to educate 
the computer user so he will be able to 
cope with minor problems in the system. It 



is of key importance to open up the com- 
puter to make small repairs, rather than 
having to make the trip to a Radio Shack 
store and wait a week or two for the unit to 
come back. Few of us own so many sys- 
tems that we can function under that sort 
of delay. It is a fact of life that once you 
get used to using your computer even a 
few hours without it are painful. 

It may not be possible to save quite 
$1,000 by buying a Model III through the 
ads in 80 and still retain the factory war- 
rantee, but it is possible to save a bundle. 
I'd be interested in readers estimates of 
what they find as the bottom line price in 
our mail order ads. Make that a Model III 
48K system with two disk drives, printer 
and modem. ■ 

You Can Help 

rankly, I'm disappointed in you. Just 
the other day I was in my home town 
and stopped in to visit the Radio Shack 
store there. I asked the manager if he was 
interested in carrying 80 Microcomputing; 
he said he had heard vaguely about it, but 
had never seen a copy. Now look here, 
how are we going to keep 80 growing so 
we can bring you even more articles and 
programs if you are going to be a lazy, 
thankless, unsupportive reader? I want 
you to shape up. 

When you go into a Radio Shack store I 
expect you to take a few extra minutes 
and show them 80. See that I get the 
business card from the owner of the store, 
complete with a bulk order for at least ten 
copies of 80 per month. There's no way the 
store can lose— we guarantee sale. That 
means if the store is so isolated not even 
ten copies a month can be sold, we'll give 
full credit for the returned copies. 

The Radio Shack store owner will find 
this a nice way to make a little extra profit, 
and also a way to keep customers coming 
in (at least ten of them) every month for 
magazines, thus exposing them to his 
newest electronic gadgets. The magazine 
will also sell more computer equipment 
for him, since we run articles on the latest 
Radio Shack equipment and software. 

The most important value of 80 for the 
Radio Shack store is as documentation 



for the TRS-80. Since most lower cost 
computer systems are fairly equal, the 
really big difference for the TRS-80 is in 
the amount of documentation and pro- 
grams available for it. This is where 80 
makes the difference, at least doubling 
the value of the system. 

Remember that stores owned by Tandy 
are not permitted to sell or even show a 
copy of 80 in their stores. Most stores get 
one copy and keep it hidden so company 
spies won't see and report it. All this 
stems from paranoia on the part of Tandy 
that they might lose a sale of some ac- 
cessory to an SO advertiser. I suspect they 
are doing everything they can to discour- 
age people from buying computers from 
discount Radio Shacks which advertise in 
80. The law prevents them from stopping 
discounting, so all they can do is try to 
keep the word from getting around. 

This still leaves over 2,500 Radio Shack 
franchise, associate and other non-Fort 
Worth-owned outlets which should be 
selling 80 Microcomputing. 

Yes, I know, now you want to know 
what's in it for you, other than the satis- 
faction of knowing you've helped a publi- 
cation you like to grow. Okay, you 
mercenary, if you sign up a Radio Shack 
store I'll send you $20 worth of Instant 
Software of your choice. Golly, won't any- 
one do anything nice anymore without 
having to be paid off? Well, we'll eventual- 
ly make money out of the sales, so I sup- 
pose sharing the wealth is only fair. Send 
me the business card or purchase order 
from the store with a number for how 
many copies of 80 they'd like per month. 
Let me know what programs you'd like 
and we'll get at it. 

Let's see. . .2,500 stores at ten copies 
each. . .that's 25,000 more circulation. 
That should attact another 40 pages of 
advertising and bring you at least 40 more 
pages of articles and programs per 
month. What will you do when it takes two 
months to read each copy?B 

Second Birthday 

his issue of 80 rounds out two full 

years for the magazine. If there have 

been more successful technical maga- 
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zines in the past, I am unaware of them. 
That the magazine is based on the pro- 
ducts of a single manufacturer makes it 
even more surprising. 

Does the industry make the magazine 
or does the magazine make the industry? 
A bit of both, really, for where would the 
support industry for TRS computers be 
without a communications medium such 
as 80 to bring news of their products to the 
customers? There is no question but that 
a strong magazine is a key element in 
helping an industry to expand. It just can't 
be done without that communication link. 

TRS computers have some powerful ad- 
vantages over others; the parent company 
is the most powerful in the business (or at 
least it was until IBM and Xerox came 
along). The 6,000 store merchandising net- 
work is a tough act for Apple, Com- 
modore, Exidy, OSI, Atari, and the others 
to fight. But when you compare the sup- 
port Radio Shack has provided their sys- 
tem with the support coming from several 
hundred smaller firms, you begin to see 
where the real strength of the TRS lies, 
and it is not Radio Shack. 

The Tandy people have been working as 
hard as they can to provide software, and 
they have come up with a few nice pro- 
grams. But their efforts are insignificant 
compared with the host of support firms 
which have run circles around Big Daddy 
(down near Big D). Indeed, without this 
software support from outside firms, and 
80 as the medium to bring the news of this 
support to customers, it seems likely Ap- 
ple would have overrun Tandy long ago. 

How is it a relatively small publishing 
firm up in the mountains of New Hamp- 
shire has been able to come up with a 
magazine which has grown in two years to 
over 100,000 paid readers (plus about 
150,000 pass-along readers), with over 400 
pages an issue? It's all the more remark- 
able when you know that virtually all the 
work involved is done by our own staff: 
Only the magazine printing and circula- 
tion is handled by outside suppliers. 

My own publishing experience started 
when I was hired as a television director 
for a station in Cleveland, Ohio. The sta- 
tion had a mimeograph machine and I had 
a need to provide communications on the 
subject of amateur radio Teletype. In June 
1951 the first issue of a monthly newslet- 
ter was started. 

This grew to a circulation of over 2,000 
and a regular column in one of the two 
amateur radio magazines. I eventually be- 
came the editor of the ham magazine and, 
five years later, started my own, called 73 
(which means Best Wishes in ham lan- 
guage). 73 is still going strong. 

In 1975, when the first microcomputer 
was put on the market by Mits, I decided 



to start a microcomputer magazine. I 
talked the idea over with some of the firms 
advertising in 73 which were also in the 
microcomputer and digital field (such as 
Bill Godbout— one of the pioneers in mi- 
crocomputing, and still a leader there). Bill 
and I got together during the 1975 Dayton 
Hamvention (the big ham event of the 
year) and talked over my ideas. 

During May I contacted the editors of 
several microcomputer club newsletters 
to see if any would like to edit a magazine 
for me. I didn't know beans about comput- 
ers, but I did know a good field for a 
magazine when I saw it. The newsletter 
editors didn't think the idea would fly, so 
they turned me down, one after the other. 

Eventually I got together with a chap 
named Helmers who was putting out a 
small newsletter in Boston with a circula- 
tion of about 200, concerned mostly with 
building a microcomputer to play the 
game of Life. He came up to talk, I out- 
lined what I had in mind, and we decided 
to go ahead. 

The next five weeks defy description. I 
wanted a short name for the magazine us- 
ing a popular term in the field. I came up 
with Byte, which was just right. I then had 
to design the letterhead, envelopes, write 
form letters to solicit subscriptions, ar- 
ticles, bulk subscriptions from electronic 
stores, and so on. The type of articles I 
wanted had never been written before, so 
we were starting from scratch. 

I made up lists of 73 Magazine authors 
interested in digital electronics and com- 
puters who might be able to help. I went 
over every computer club newsletter for 
the names and addresses of possible au- 
thors. I contacted every firm even remote- 
ly in the business, asking for leads for ar- 
ticles and for lists of names of possible 
subscribers. 

As the requested articles began to 
come in I devised a completely new four 
column magazine layout, which would 
make Byte look different from any other 
magazine. I had to do much of the rough 
layout and proofing myself, teaching 
others what I wanted. I had to battle with 
Helmers, who wanted to put out an imita- 
tion IEEE technical journal. I wanted a 
magazine for the newcomer to computers, 
with simple articles. 

With the massive help of the 73 staff, 
the first issue of Byte went to press just 
exactly five weeks after my decision to 
publish. The first issue, dated September 
1975, came off the presses in late July and 
I immediately got on a plane and headed 
out with copies to visit the firms in the in- 
dustry. I wanted to get their support and 
pave the way both for advertising and the 
articles I needed. This trip took me to Mits 
in Albuquerque, Sphere in Salt Lake, 



Southwest Tech in San Antonio, plus 
stops in Dallas, with a visit to Ed Juge in 
Fort Worth, and so forth. 

73 Inc. was being harassed by a couple 
of annoying lawsuits, so our company 
lawyer set up a separate corporation for 
publishing Byte and our new books, with 
Virginia holding the stock for me so the 
new magazine would not get dragged in. 

Byte took off, growing rapidly, with ad- 
vertising going from 25 to almost 40 pages 
by the fourth issue. The subscriptions 
poured in too. Then one night I returned 
from addressing a club to find Byte had 
been totally removed from the 73 building. 
I was reminded the stock was in someone 
else's name. Virginia, with the help of her 
fiancee and our lawyer, ran the magazine: 
They've done well, eventually selling it to 
McGraw Hill for big bucks. 

I was left with massive debts and a very 
good excuse for a heart attack. I also de- 
veloped a slight distrust of people. Oh 
well, probably the best thing was to get 
started with law suits and a new 
magazine. We all worked doubly hard, 
paid off the bills and were finally in a posi- 
tion to get going with a new publication. 

The Saga Revisited 

To spur the input of articles for a new 
publication I set up an I/O section for 73 
Magazine. This, in turn, inspired the start- 
ing of I/O magazine in Japan, one of the 
leading Japanese hobby computer maga- 
zines. The I/O section attracted over 20 
pages of microcomputer advertising, 
which gave us a good start toward the 
new magazine. 

Again I made a trip around the country 
visiting firms in the business. I wanted to 
know if I would have support for a new 
magazine. They encouraged me to go 
ahead, so in August we started selling the 
first subscriptions to Kilobaud. The first 
issue, dated January 1977, came out in 
November 1976. It started with about 40 
pages of ads and sold so well we had to go 
back and reprint the first issue several 
times to keep up with the demand. 

With the introduction of the TRS-80 in 
late 1977 more and more articles for this 
system came in. By 1979 the TRS articles 
were pushing everything else out of 
Kilobaud Microcomputing and it was time 
to consider a spinoff. 

The circulation and advertising work to 
get 80 started were begun in August 1979, 
and the first issue was dated January 
1980 and had over 50 pages of ads. We 
printed 50,000 of the first issue and sold 
out. Two years later, the advertising is 
around 200 pages and the circulation 
climbing over 100,000 with an estimated 
250,000 readers. 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 

CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



THINGS TO 



PERSONAL COMPUTER 

BY MARK SAWUSCH 



333 pages $10.95 

333 pages, written in simple terms, of 
what to do and "how-to-do-it". Suitable 
not only for microcomputers, but for pro- 
grammable calculators as well. Includes 
program listings, formulas, a glossary of 
computer terms and more! Definitely a 
MUST BUY! 



"OTHER MYSTERIES" 
VOLUME IV 

"BASIC FASTER 
AND BETTER" 

If you program in BASIC, you want this booh! 
Time-tested and proven, the techniques and 
routines can be used in thousands ot ways to 
make your programs smaller, taster, and look 
truly professional. Over 280 pages, includes 
hundreds of routine listings, sample programs, 
explains not only "how-to", but "why" and 
"when." You'll never need to "reinvent the 
wheel" again! Topics includes screen and key- 
board handling, searching, sorting, fast string 
manipulation, simple machine-language 
usage, utility programs, and much more! 
BA SIC FASTER & BETTER 824.9 5 

"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

THE CUSTOM TRS-80™ $29.00 

CALL FOR AVAILABILITY 



MICROPARAPHERNALIA 

NEWDOS by APPARAT 

NEWDOS/oObyApparat S139.95 

NEWDOS UPGRADE CALL 

NEWDOS * wilh ALL UTILITIES 

35-track $69.95 

40 track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . $ 19.95 
MICROSOFT™ BASIC DECODED $24.95 



EPSON 

MX-80. MX-80FT. MX-100 

PRINTERS 

CALL FOR PRICE 
10 FT. RIBBON 

CABLE 

$24 95 

CONNECTS EPSON PRINTER 
& TRS-80 MICROCOMPUTER 

DISK DRIVE 

EXTENDER 
CABLE 

$9 95 

for VISTA. MICROPOLIS. 

MTI, PERTEC, SHUGART, 

PERCOM & OTHERS 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup for your MODEL I or 
MODEL III. THE FLOPPY DOCTOR Version 3 
completely checks every sector of single or 
double density 35-. 40-. 77-. or 80 track disk 
drives. Tests motor speed, head positioning, 
controller functions, status bits and provides 
complete error logging. THE MEMORY 
DIAGNOSTIC checks for proper write/read, 
refresh, executability and exclusivity of all ad- 
dress locations. Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS $24.95 
ForMODELIII S29.95 



Single Sided. Soft Sectored 5' .-inch, 
(for TRS-80™) Mini floppy 

DISKETTES 



$19 



95 



box of 10 



TM 



PLAIN JANE 

These are factory fresh, absolutely first 
quality (no seconds!) mini-floppies They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapped box 

PLAIN JANE™ Diskettes $19.95 

PLAIN JANE™ fj<M 

Introducing MTC's premium generic 
diskette. Single-Sided. Soft-Sectored, 
DOUBLE DENSITY. 5' 4 inch diskettes with 
reinforcing HUB RINGS Individually 100% 
ERROR FREE certified. Invest in GOLD! 

PLAIN JANE™ UM $24.95 

VERBATIM S PREMIUM DISKETTES 

DATALIFE" 

Seven data-shielding improvements mean 
greater durability and longer data life. 
These individually. 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM. Shugart. ANSI. ECMA 
and ISO standards. 
VERBATIM DATALIFETM DISKETTES 
5 .inch (box of 10) 

MD52501 $2695 

10 boxes of 10 (each box)$25 95 

8-inch FLOPPIES 

Double-Density. FD348000 . $43.95 



•RINGS' & 
THINGS 

HUB RING KIT for 5' V disks $10.95 

HUB RING KIT for 8" disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5' V drives $24.95 

5 '/.-inch diskette case $3.50 

8 inch diskette case $3 95 

5 V* -inch File Box for 

50 diskettes $24.95 

8-inch File Box for 

50 diskettes $29.95 



TRS 80 is a trademark ol the 

Radio Shack Division ol Tandy 

Corporation DATALIFE is a 

trademark ol VERBATIM PLAIN 

JANE AIDS I. AIDS III CALLS III 

CALCS IV. MERGE III »rt 

trademarks ol MTC 
1981 by Metatechnotofies 
Corporation. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged 



PRICES IN EFFECT 
Dec 1. 1981 THRU 
December 31. 1981. 

Prices, Specifications, 
and Offerings subject to 
change without notice. 

8112 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• CO D 



•Add $3.00 lor shipping 

&handkng 

•$3 00 EXTRA for COD 
•Oho residents add 5' >% 

«les tax ^ M 
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With one of the highest subscription 
renewal rates I've ever seen, 80 is doing 
well and we're projecting the circulation 
to grow to around 200,000 during 1982. 
How thick the magazine is going to get is 
anyone's guess. I know the people at Byte 
are chewing their hangnails as 80 creeps 
up on them. They're even starting to run a 
few articles on the TRS-80. 

With both magazines in the same town, 
not much happens that we don't hear 
about. Peterborough, by the way, is a town 
with a population of about 4,500 in the 
mountains of southern New Hampshire. 
The area has attracted Brookstone tools, 



Eastern Mountain Sports, New England 
Business Service, all major mail order 
firms, and New Hampshire Ball Bearing 
(one of the major miniature ball bearing 
makers) as well as a rash of computer 
magazines. Not bad for a tiny New En- 
gland town. Yes, I'm president of the 
Chamber of Commerce. 

It has been a tussle keeping up with the 
growth of 80 and Instant Software, which 
we started in 1978. We've had to buy many 
buildings around Peterborough, add offic- 
es, better and faster film processing, more 
typesetting equipment, and so on. Our 
staff has been about doubling each year, 




Model II 64K $3395 

26-4160 1 Drive Exp $1014.00 

26-4161 2 Drive Exp 1559.00 

264162 3 Drive Exp 2099.00 

264530 Scripsit II 259.00 

26-4512 Profile II 159.00 

264511 Visicalc II 259.00 

264501 Gen Ledger 179.00 

264506 Mail List 72.00 



MODEL III 

26-1061 4K I $ 599.00 

26-1062 16K III 859.00 

26- 1066 48K III 

W/2 Drives, RS 232 2225.00 

26-1162 1st Drive 765.00 



IDS PAPER TIGERS 

Dot Resolution Graphics quality print 

IDS 445G 7 wire printhead, graphics (List $ 9851 $ 795.00 

IDS 460G 9 wire printhead, graphics (List 1094) 886.00 

IDS 560G 9 wire, wide carriage, graphics. . . (List 1394) 1129.00 



Model I 

26-1140 Expansion Interface $249.00 

26-1141 16K Exp. Interface 359.00 

26-1 142 32K Exp. Interface 469.00 

26-1145 RS 232C Board 84.00 

26-1160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 



PRINTERS 

26-1167 9' a Line Printer VII .... $ 360.00 

26-1166 Line Printer VI 1080.00 

26-1158 Daisy Wheel II 1798.00 

26-1165 Line Printer V 1710.00 

26-1401 Cable 36.00 



Color Computer 4K $353 

264001 4K $353.00 

264002 16K Ext Basic 533.00 

26-3009 Joysticks 22.50 

26-3010 Color Video 353.00 

26-1206 Recorder 54.00 

All prices are subject to change without notice. Freight, handling, and 
insurance charges are extra. Most items are shipped United Parcel 
Service. Model II and other hardware weighting over 50 lbs. is ship- 
ped freight collect by truck. Certified Check for immediate shipment 
from stock. Master Charge, Visa or Bank Card add 3°r surcharge. 

Vern Street Products 114 West Taft Sapulpa, Ok 74066 
The Computer Store, Inc. 4949 South Peoria Tulsa, Ok 74105 

918-747-9333 



now numbering over 200. 

We're looking forward to the future, and 
have so many irons in the fire we some- 
times have trouble keeping the fire going. 
80 obviously is going to keep growing as 
long as Tandy can stay ahead of IBM and 
Apple. Kilobaud Microcomputing has 
been somewhat neglected in the flurry 
over 80, so it will get a lot more attention 
in 1982. With the combined readership of 
80 and Kilobaud being more than Byte, 
and with the combined advertising rates 
being less, we may see some increases in 
advertising. 

We're laying the groundwork for five 
more publications. If IBM is interested 
and develops a user base, we might think 
in terms of something for them. The suc- 
cess of LOAD80 will definitely push us to 
back up more of our published programs 
with machine readable cassettes or disks. 
We're already getting around 5,000 orders 
a month for LOAD80, and the growth is 
strong. The 80 Encyclopedia has also 
caught on well, with orders increasing 
every month. We may look at a similar 
treatment for some other systems. 

Is there no end to the amount of infor- 
mation needed for the TRS-80? Apparent- 
ly not. The true value of a computer lies in 
the documentation and programs avail- 
able for it, which puts the TRS-80 way 
ahead of everything else on the market. 

We're working toward establishing a 
major educational institution to teach 
electronics and computers. My plans for 
this are being taken more seriously by ed- 
ucational groups and even by groups In 
other countries. 

In line with this, I've been made the 
chairman of an FCC subcommittee to 
work with the commission toward the 
resurgence of American technology 
through the growth of amateur radio. 
We're going to aim at getting amateur 
radio and computers into every high 
school in the country as a way to get 
teenagers interested in technical careers. 
With amateur radio and computers com- 
ing rapidly together, it will eventually be 
difficult to separate computers and com- 
munications, so this is a fortuitous mar- 
riage. It is a synergism of two fields, both 
of which I have been in for some time and 
understand. 

The day when our computers will be 
communicating with each other via phone 
lines, cables and even satellites Is coming 
soon. You may be sure that I will be in 
there pushing for the changes we need, 
and for the people we need to bring about 
these changes in the schools and through 
my magazines. 

You haven't seen anything yet.B 
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MTC AIDS-HI 



MODELS I & III... $69.95 



MODEL II... $99.95 



Introducing the latest addition to MTC's family of data management systems. AIDS- III. NO 
PROGRAMMING, easy to use COMPLETE PACKAGE including demonstration application, 
documentation and MAPS ill (see below). 

• Up to 20 USER DEFINED FIELDS of either numeric- or character type 

• CHARACTER type fields may be any length (total up to 254 characters). 

• NUMERIC-type fields feature automatic formatting, rounding, decimal alignment and 
validation. 

• Full feature EDITING when adding or changing records: 

ENTER FIELD (can't type-in more characters than specified) 
BACKSPACE (delete last character typed) RIGHT JUSTIFY FIELD contents. 

DELETE FIELD contents SKIP FIELD (to next or previous field) 

RESTORE FIELD contents SKIP RECORD (to next or previous record) 

• SORTING of records is MACHINE CODE assisted. 

200 RECORDS (40 characters) m about 5 SECONDS 

ANY COMBINATION of fields (including numerics) with each field in ascending or 
descending order 

• SELECTION of records for Loading. Updating. Deleting, Printing and Saving is 
MACHINE CODE assisted 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 

LOAD or SAVE selected records using MULTIPLE FILES 

Example Select records representing those people who live in the state of Col 

orado. but not in the city of Denver, whose last names begin with "F" 

and whose incomes exceed $9000.00. 
Example Select records representing those sales made to XYZ COMPANY that 

exceed $25.00. between the dates 03/15 and 04/10. 

MAPS III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features: 

• Full AIDS-III SELECTION capabilities 

• Prints user specified fields DOWN THE PAGE 

• Prints user-specified fields in titled columnar REPORT FORMAT automatically 
generating column headings, paging and (optionally) indentation. 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms etc 

BELOW ARE TESTIMONIALS from owners of AIDS systems These are absolutely authentic 
statements and are typical of the comments we receive. 

This program will do more for my business than all the other programs I 
have, combined " 

David Wareham. Vice President (EDP). National Hospital and Health Care Services Inc 

We have 32 different Data Base Management packages for the TRS-80. AIDS-III is easily 
the best It also makes it easier lor us to step up to our Model II since the package is 

available for both computers." . „ . _, . __ .. 

Jack Bihnski, President. 80 Microcomputer Services 

"Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 

Frank Boehm. Director, Front Door Residential Treatment Program 



MTC AIDS CALCULATION SUBSYSTEM-III 

MODELS I & III . . .$24.95 MODEL II . . .$39.95 



MTC's most popular AIDS subsystem Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• User -specified page title 

• Columnar Headings 

• Optional Indentation 

• Use for accounting, inventory, financial 
and other numeric-based information 
systems. 



• Columnar subtotals generated when 
there is a change in a user -specified 
column. 

• User-specified Columnar Totals 

• Columnar values computed using con- 
stants and/or column values 

• Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sate 
amount + sates tax). 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . . 

MTC CALCS-IV™, that is. 
» More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

MTC CALCS-IV™ $39.95 

For Models I & III $39.95 

For Model II $59.95 



MTC AIDS MERGE-III™ 

This subsystem will combine up to 14 AIDS- 
created data files into a single, large file. An op- 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single tile). 
Machine-code assisted for high-speed perfor- 
mance. MERGE -IIITM properly handles tiles sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order. 

MTC AIDS MERGE-III™ $19.95 

For Models I & III $19.95 

For Model II $29 95, 



TM 



THE COMPLETE 

MTC AIDS-III 

PACKAGE 
SAVE $$$$ 

Includes MTC AIDS-III™ 
CALCS-III™ and MERGE-III™ 

A comprehensive system 
at a competitive price! 

MODEL I & III $99.95 

MODELII $149.95 

Add $25 for CALCS-IV™ 



Compare AIDS-III /CALCS-III™ with any other data management package under $100! 
CALCSIH' U REQUIRES THE PURCHASE OF AIDS- 



AIDS/P™ 

IS COMING! 



TRS-80 is a trademark ol the 

Radio Shack Division ol Tandy 

Corporation DATALIFE is a 

trademark ol VERBATIM PLAIN 

JANE. AIDS I. AIDS III. CALCS-III, 

CALCS-IV. MERGE III are 

trademarks ol MTC 
1981 by Metatechnologies 
Corporation. Inc. 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 
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WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD 



•Add $3.00 lor shipping 

& handling 
•$3.00 EXTRA for COD. 
• Ohio residents add 5'/i% 

sales tax 

S 20 



50 INPUT 



'My enjoyment sometimes goes 

flying out the window when 

I find the program will 

not run on the Model III. " 



More on Motorola 



In reference to Chris Brown's article 
entitled "Seminars Cover Color Computer 
Chip" (80 Microcomputing, August 1981) 
I would like to provide the following 
comments: 

The Mid-Range Marketing Group at 
Motorola aggressively markets products 
such as the MC6809 to the broad base 
market. This is evidenced by the fact that 
the MC6809 is widely used in many high 
performance eight-bit microprocessor 
applications. 

The majority of personal computer 
manufacturers were well into their design 
cycles at the time of the MC6809's in- 
troduction. In spite of this the MC6809 
has found a home in several personal 
computers. 

The MC6809 is definitely not the end of 
the line for eight-bit technology at Motoro- 
la. Strategic planning for the MC6809's 
future is not common knowledge even 
within Motorola. Future directions of the 
MC6809 are still considered confidential 
and not yet available for general release. 
George Nelson 
Manager, Mid-range MPU 
Marketing A Applications 
Motorola Inc. 
Austin, TX 



Production 
Lynxes Improved 



I reviewed the September 1981 80 
Microcomputing article "Spanning the 
Electronic Nation" in detail with author 
Dennis Kitsz. He agreed to correct his 
statements which we showed to be inac- 
curate. Dennis explained that he was not 
aware his review copy of the Lynx modem 
was an obsolete prototype, which of 
course, seriously affected the outcome of 
the comparison. The fact that this article 
was prepared approximately one year in 
advance of publication did hot allow for 
the evolution production Lynxes have 
undergone as a result of continued efforts 
toward product improvement by our own 



engineering and programming staff, as 
well as feedback from the multitude of 
sincere Lynx owners, retailers and inde- 
pendent software authors. 

Keeping Lynx established as "first 
choice for TRS-80" will always be the first 
priority here at ESI Lynx. We are proud to 
offer our product to the growing demand 
for quality peripherals in the TRS-80 
aftermarket. 

John E. Bickel, Vice-President 

Emtrol Systems, Inc. 

Lancaster, PA 

Dennis Kitsz' update of his review on 
the Lynx modem appeared in 80 Input, 
November 1981.— Eds. 



Information Request 

I wish to add my support to Daniel M. 
Long (80 Input, August 1981) who asked 
you to indicate whether your printed pro- 
grams are for Model I or Model III or both. 

I know that I could subscribe to Load 80 
but inasmuch as I am retired, I get a lot of 
enjoyment out of typing the programs. My 
enjoyment sometimes goes flying out the 
window when I discover that the program 
on which I have spent a lot of time will not 
run on the Model III. 

Would it be such a hard job to put a line 
under the title or at the start of the first 
paragraph stating that the program is 
either Model I, Model III or for both? 

Several of my friends with Model Ill's 
have the same complaint. 

William E. Eccles 
Scottsdale, AZ 

We've heard your complaints. Starting 
with the January 1982 issue look for a box 
containing this information and more on 
the first page of our articles.— Eds. 



Reinker Kits Available 



The response to my article about auto- 
matic ribbon reinkers for printers ("Keep it 



in the Black," 80 Microcomputing, May 
1981) was overwhelming. 

Within a couple of weeks all of my ex- 
cess reinker kits had been sent out, and 
several hundred disappointed readers 
were turned away. Since that time, 
however, one of the readers turned up a 
large supply of them, and I agreed to take 
them on for redistribution to other 
microcomputer users. The cost is the 
same as described in the original article 
($18.25, plus $1.00 for Air Mail). I also ob- 
tained a supply of spare parts. A price list 
can be had by sending me a self-addressed 
stamped envelope. 

Since there were a great many readers 
who were disappointed when the original 
supply ran out, I thought I would write to 
let them know that the reinker kits are 
again available. 

William D. Johnston 

1808 Pomona Drive 

Las Cruces, NM 88001 

Thanks 

Thanks for the "Reload 80" (page 344, 
September 1981). It serves to give us a pre- 
view of what you'll offer on the Reload 80 
for the month and to share a tip about its 
use. I have purchased several tapes since 
April and am well pleased. 

W. Robert Hetrick, PhD 

Clinical Psychologist 

Wichita, KS 



No Sale 

Is there any truth to the rumor that the 
FCC regulations prohibit the sale of 
TRS-80 Model I hardware add-ons after 
December 31, 1981? I hope this rumor is 
false, because the hobbyist needs to be 
constantly updating his equipment to 
keep up a strong interest. 

Gerald C. Gray 
Danville, CA 

To our knowledge, the FCC is serious 
about Its computer RFI requirements. If a 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



Let your TRS-80 ,M Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package. "INTRODUCTION 
TO TRS-80" ASSEMBLY PROGRAMMING" in 
eludes ten 45-minute lessons on audio cassettes, i 
display program for each lesson providing illustra 
tion & reinlorcement. and a text book on TRS-80" 
Assembly Language Programming. Includes use 
ful routines to access keyboard, video, printer and 
ROM Requires 16K Level II, Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80 M Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK-1 is a concise 
capsuiated supplement to REMASSEM-1. Package 
consists of two 45-minute lessons on audio casset- 
tes, and display programs providing illustration 
and reinforcement. Provides specific track and 
sector I'O techniques, and sequential and random 
file access methods and routines. 

REMDISK-1 $29.95 



MICROPARAPHERNALIA 

DISKETTES (box of ten) 

5 , /4 n PLAIN JANE™ $19.95 

5'/4 M PLAIN JANE™ fio/t/ $24.95 

5'/V DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 by Apparat $139.95 

NEWDOS UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . $19.95 
MICROSOFT™ BASIC DECODED $24.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



NEWDOS/80 Version 2.0 



$139 



SPECIAL 
95 INTRODUCTORY 
PRICE 



Apparat's long-awaited successor to NEWDOS + is here! This is not an enhanced ver- 
sion of NEWDOS. but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives, 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY! 
Features all NEWDOS + utilities (SUPERZAP 3.0. etc.) and much more! One MTC 
technical staff member said having NEWDOS/80 is "better than sex" (you'll have to 
judge for yourself!). 

MODEL III VERSION 

Has all the features of the Model I version plus enhancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model I will run without modification. Includes a 
utility for converting Model I single density to Model III double density. 



NEWDOS/80# SPECIAL # 

CALL REGARDING OUR UPGRADE PRICING 



$139.95 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 

for 
Model I and Model III 

An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII file for 
editing (including BASIC files), single sheet 
mode for printing on letterhead and more! 
Simple to use. features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disk Version $79.95 

Tape Version $69.95 

CALL FOR AVAILABILITY 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 



$69 



95 



by Apparat 



Includes REF, RENUM. SUPERZAP. 
EDITOR/ASSEM.. DISASSEM.. DIRCHECK. and 
more! This is the original NEWDOS with all of 
Apparat's utility programs. Includes exclusive 
MTC QUE (Quick User Education) card. 

40Track Version $79.95 

MTC QUE Card only $ 1.50 



TRS-80 is a trademark ol the 

Radio Shack Division ot Tandy 

Corporation DATALIFE is a 

trademark ol VERBATIM PLAIN 

JANE. AIDS 1 AIDS III. CALCS III, 

CALCS IV. MERGE III are 

trademarks ol MTC 
1981 by Met*technotog*s 
Corporation. Inc. 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



a 



PRICES IN EFFECT 
Dec. 1, 1981 THRU 
December 31. 1981, 

Prices, Specifications, 
and Offerings subject to 
change without notice 

8112 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD 



a 



• Add $3.00 for shipping 
& handling 

•S3 00 EXTRA for COD. 

• Ohio residents add 5'/j% 

sales tai „ 

S 20 



SO INPUT 



manufacturer's peripherals do not pass 
the required RFI tests, they may not be 
marketed in the USA as of 1 January, 1982. 
Whether or not the FCC will be able to 
prosecute violators is another question 
altogether.— Eds. 

Interface with 
Braille Printer Wanted 

Although I am a happy TRS-80 Model I 
owner and a programmer trainee, I started 
in February 1981 via help on TRS-80. 1 want 
to ask all interested manufacturers of 
TRS-80 devices to consider something for 
deaf and blind and deaf-blind persons to 
use the TRS-80 and other computers via 
RS-232 or common bus with a Baudot/ 
ASCII converter device or a braille printer. 

There may be a small market for these 
devices, but you would make the handi- 
capped happier. I am deaf. I am doing it 
not for myself, but for all deaf and blind 
people. I believe that deaf schools use 
them, but I am not sure about nationally. I 
communicate with a blind programmer via 
the CRT system at the company. He has a 
braille printer. It is a good way to commu- 
nicate between deaf and blind worlds. 

I am still looking for a device between 
the deaf Baudot TTY or TTD and the 
TRS-80. I might be buying a TTD unless 
someone helps me to use the TRS-80 to 
help all deaf people. 

David Ong 

BREAK? 

Last June, I asked in the 80 Aid column 
for the POKE in TRSDOS 2.3 that would 
disable the Break key. The response I 
received was unbelievable, so this should 
clear everything. 

Table 1 lists all the standard POKEs for 
the Break key. They are all modifications 
to a single byte. Incidentally, POKE 
16396,165 leaves the [shift] Break active 
but disables the normal Break. 
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Table 2 lists three series of POKEs 
which also disable the Break key. They are 
modifications to two or three bytes. The 
third set also disables all disk I/O, so this 
could be very valuable. 



I also received a POKE that would work 
forTRSDOS2.1,2.2,2.3, NEWDOS2.1 and 
ULTRADOS I. It was: 

POKE PEEK(17171) + PEEK<17172)"256 + 1,0 (or OFF 
POKE PEEK(17171) + PEEK(17172)*256+1,1 for ON 

This does work, but it is very interesting to 
note that location 17171 holds 77 and 
17172 holds 93, so this is the exact same 
POKE as the standard (23886)! 

As a side point, I found that pressing 
the G,B and [space] together produces a 
Break, as well as [shlft],[down-arrow] and 
A (control-A). They all appear to do the 
same thing, except after POKEing 16396, 
249. [BREAK] and GB[space] produce 
7SYNTAX ERROR, but control-A hangs up 
the TRS-80. Any ideas why? 

Alan Dardik 
Tenatly, NJ 

Faster Sorts 

I want to share a few programming tips 
which I have not seen before in 80 Micro- 
computing. Many times in programming 
we find it useful to LPRINT or PRINT the 
month name from a program, and though I 
have seen and experimented with various 
methods, the best I have found is (if you 
don't mind abbreviations) the user defined 
function: 



DEFFNMOS(M) = MID$<" JanFebMarAprMayJunJul 

AugSepOctNovDec",M'3,3) 



(This method does not use up string 
space as storing the names in an array, 
and does not use time as For. . . Read . . . 
Next looping would. Readers note there 
are two required blanks at the start "bb- 
Jan. . .) 

Along the same line if you might need to 
know the number of days in any month 
use the following user defined function: 

DEFFNND(M) = VAL(MID$<" 31283130313031313031 
3031 ",M* 2,2)) 

If you feel it should know all leap years 
then: 



DEFFNND(M,Y) = VAL(MIDS(" 312831303130313130 
313031".M*2^)HY/4 = INT(Y/4)) + (Y ■ 1900) 

(You may not know that the year 1900 
was not a leap year. Only centuries evenly 
divisible by 400 are leap years. Readers 
note there is one required blank at the start 
"b3128...) 

A significant speedup of what I call 
"Switch-Swap-Sorts" of array elements 
can be attained by the use of an end marker 
in the sorting routine in the following NO = 
number of items in the array to be sorted: 

100 EM = NO-1 

110 SW = aFORZ = 1toEM:IFA(ZK = A(Z+1)THEN130 
120 SWAPA<Z),A(Z + 1):SW = - 1: EM =Z< - Model II 
120 A = A(Z):A(Z) = A(Z + 1):A(Z+1) = Z:SW= -1:EM = 

Z< - Model I 
130 NEXTZ : IF SW THEN 110 

After testing several methods of sorting 
in Basic I found this method to be the 
quickest. The addition of the end marker 
improved the speed by as much as 20 per- 
cent. The reason for this is that EM is reset 
to the position of each swap. When the 
last swap for any pass is made, EM is set 
to the last element which would need to 
be checked instead of continuing to the 
total nu mber of elements. After half the ar- 
ray is sorted, only half of the array needs 
to be checked! 

Charles D. Robertson 
Fort Worth, TX 



Hard Copy Your Screen 

If you have a Radio Shack Line Printer 
VI you can hard copy your screen includ- 
ing graphics and all other characters (ex- 
cept for the arrows). The replacement 
characters are up arrow [, down arrow / 
left arrow ], right arrowt. 

Call the following program as a subrou- 
tine from the main program at the appro- 
priate time. The program runs very slow 
when printing the screen contents be- 
cause it checks each graphic point on the 
screen (6144) plus each print position 
(1024). Notice that line 6005 sets up the 
printer for normal characters and line 
spacing at 12 lines per inch. Line 60010 
sets up the character print line count. Line 
60020 sets up the graphic line count for 
each print line. There are three graphic 
lines for each print line. This line also sets 
printer tab position to eight. This centers 
your copy on an 8 1/2 inch wide paper at 
the normal character setting. Line 60030 
sets up the graphic pixel count for each 
line. This line also checks if any key on the 
keyboard is pressed and returns to the 
main program if so. Line 60040 checks for 
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Expand your TRS-80® MODEL I with 

EHTEnT-flD®FOR$99 



95 
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DRIVES 

Metatronics (a subsidiary of Meta Technologies Corp., as of September 1, 1981) introduces a unique device allowing the connec- 
tion of as many as 8 disk drives to a TRS-80 MODEL I computer. Its integrated design is compatible with application software 
running under VTOS. LDOS, NEWDOS/80 (versions I & Jl), NEWDOS + and TRSDOS 2.3. Features include a U.L.approved power 
supply, power-monitor LED. operating environment protection circuitry, high-impact metal case and gold-plated contacts. 
Complete with instructions and patch program diskette for configuring your favorite operating system. 

TRS-80 & TRSDOS ars trademarks of the Radio Shack division ol Tandy Corp. EXTENT 80 Is a trademark ol Metatronics Corp. LDOS is a tradename of Logical Systems Inc 
NEWDOS is a tradename o( Apparat Inc. 



DISK DRIVE 

EXTENDER 
CABLE 

|95 



$9' 



for VISTA, MICROPOLIS, 

MTI, PERTEC, SHUGART, 

PERCOM & OTHERS 



EPSON 

MX-80, MX-80FT, MX-100 

PRINTERS 

CALL FOR PRICE 



10 FT. RIBBON 

CABLE 

S24 95 

CONNECTS EPSON PRINTER 
& TRS-80 MICROCOMPUTER 



C^ETATRONICS 

\^J CORPORATION 

A Subsidiary of Meta Technologies Corporation 



^5A2 



TO ORDER 
CALL TOLL FREE 
1-800-321 -9390 
IN OHIO, call 
(216) 289-1210 (COLLECT) 



OFFICES 

26111 BRUSH AVENUE 

EUCLID. OHIO 44132 

-SEND MAIL ORDERS HERE) 



PRICES IN EFFECT 
Dec 1. 1981 THRU 
December 31. 1981. 
Prices. Specifications, 
and Offerings subject to 
change without notice 

8112 




Add $3.00 for shipping & handling 
$3.00 EXTRA for CO. D. 
•Ohio residents add 5Vi% sales tax. 



wsr 



(C, 1981 by Melalronics Corp 
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both pixels in the print position, and, if 
both are on, it prints CHR$<239) (the wid- 
est graphics character of the Line Printer 
VI). Line 60050 checks if the left pixel is on 
and the right pixel is off and if so prints 
CHR$(233). Line 60060 checks if the right 
pixel is on and the left pixel is off and if so 
prints CHR$(234). 

OK! That takes care of the first line of 
graphics (if any) on the top row of the 
print line. 

In the second row of the print line we 
want to print all graphics and all ASCII 
characters. Line 60070 takes care of this. 
The variable (S) is the switch for this line 
and if it is equal to two, it PEEKs each 
print location on that line and if it contains 
an ASCII value less than or equal to 122, it 
prints the character. CHR$(122) is lower 
case for Z, so if you have lower case modi- 
fication installed in your keyboard it will 
print them on the printer. Line 60075 
prints a space if a CHR$(128) is found on 
the screen. 

The variables used in this subroutine 
are A, S, T$, X, Y. 

60005 LPRINT CHR$<27); CHP*15); CHR$<27); CHR$<28); : 

REM SET PRINTER FOR NORMAL CHARACTER AND 12 

LINES PER INCH. 

60010 FORY = 0TO47STEP3:S = 

60020 FOR A = YTOY + 2:S = S+1: LPRINT TAB(8); 

60030 FORX = 0TO127STEP2:IFINKEY$<> ""THEN 

RETURN 

60040 IF POINT(X.A) AND POINT(X + 1.A)THEN LPRINT 

CHR$<239); : GOTO 60080 

60060 IF POINT(X.A) AND POINT(X + 1.A) =0 THEN 

LPRINT CHR$<233); : GOTO 60080 

60060 IF POINT(X.A) =0 AND POINT(X + 1.A) THEN 

LPRINT CHR$<234); : GOTO 60080 

60070 IF S = 2 THEN T$ = CHRS<PEEK(((INT(A/3) , 64) + 

<X/2) +15360))): IF T$< = CHR$ (122) THEN LPRINT TS; : 

GOTO 60080 

60075 LPRINT" "; 

60080 NEXTX 

60090 LPRINT" " 

60100 NEXT A . Y 

60110 RETURN 

Jerry L. Trudgen 
Kittanning, PA 



80 and the CC 

As a new owner of the TRS-80 Color 
Computer, I purchased your August 1981 
Annual Games Issue with the anticipation 
of finding at least one or two games that 
could be programmed on the Color Com- 
puter without rewriting the entire pro- 
gram. (As a novice in the computer field 
this would be quite difficult right now.) 
Much to my disappointment, except for 
the "Color Computer First Impressions" 
article no programs written for this com- 
puter appeared. What are the magazine's 
plans to include more materials readily 
usable on the Color Computer? A true 



magazine calling themselves "the 
magazine for TRS-80 users" should in- 
clude something for every model. I had all 
intentions of sending in the subscription 
card but the contents of this issue stopped 
me cold. 

Joel Hotter 
Little Neck, NY 



(1) The January issue is a Color Graph- 
ics issue. (2) We have been running arti- 
cles on the CC as soon as we receive 
them— apparently the CC is still too new 
to our authors. If anyone has any CC arti- 
cles, please be sure to send them in. (3) 
Bill Barden will be doing some articles for 
us on the CC in the near future. (A) Dennis 
Kitsz' Applications is now featuring the 
CC.—Eds. 



do not have to be the same as in the 
DEFine FuNction statement. 

Since many of us do not choose to pur- 
chase disk and don't want to tie up memo- 
ry with Level III, Basic3, and so forth, 
a small utility like TWOHAF fills the 
gap nicely. 

If anyone can figure out a neat state- 
ment to simulate INSTR(„) with the DEF 
FN, we tape users will only have to solve 
the problem of Random Access to Tape 
to give up second thoughts about disk 
altogether. 

Howard W. Mueller 
Pocahontas, MO 



MID$ 



I really enjoyed the program by Gil 
Spenser, "Enhance Your Level II Basic" 
(July 1981). The ability to use the DEF FN, 
10 USR calls, Renumber and Hex Conver- 
sion in a small utility is fantastic. 

Here is a demonstration program for 
simulating Disk's ability to use MID$ on 
the left side of the equa ls( = ) sign. Instead 
of using MID$, define the function as in 
line 40 and then use MD$ in order to avoid 
conflict with the Level II Reserved Words. 

10 CLS:PRINT "MID$ = (Replace portion of string) AS IN 
DISK BASIC using TWOHAF from July 1981 
80- MICROCOMPUTING. Page 204ff with LEVEL II Basic" 
20 ' SOS = SOURCE STRING: ST = STARTING POSITION 
: LE, LENGTH OF INSERT : B$ = INSERT: MDS IS 
USED AS MIDS WOULD BE USED IN DISK 
30CLEAR1000 

40 DEFFNMD$(SO$,ST,LE,BS) = LEFT$(SO$,ST-1) + 
LEFT$(B$,LE) + RIGHT$<SO$,LEN(SO$>-LEN(LEFT$ 
<BS,LE))-LEN(LEFTS<SO$,ST-1))) 
50 INPUT'ENTER THE SOURCE STRING";G$ 
60 INPUTENTER THE STRING YOU WISH TO INSERT';I$ 
70 INPUT-STARTING POSITION IN SOURCE STRING";PO 
80 INPUT'NUMBER OF CHARACTERS OF l$ YOU WILL 

INSERT";IN 
90 MD$ = FNMDS(GS,PO,IN,l$) 
100 PRINT:PRINT"STRING AS IT WAS:" 
110PRINTGS 

120 PRINT" RESULTING STRING" 
130 PRINTMDS 

ENTER SOURCE STRING? MERRY CHRISTMAS AND A 
HAPPY NEW YEAR! 

ENTER THE STRING YOU WISH TO INSERT? but 
STARTING POSITION IN SOURCE STRING? 17 
NUMBER OF CHARACTERS OF IS YOU WILL INSERT? 3 

STRING AS IT WAS: 

MERRY CHRISTMAS AND A HAPPY NEW YEAR! 

RESULTING STRING: 

MERRY CHRISTMAS but A HAPPY NEW YEAR! 

This must of course be used with 
"TWOHAF", and as the demonstration 
program shows the Strings and Variables 



Mod III Scripsit 



I read with compassion the letter from 
Larry M. Mohr in the "80 Input" section of 
the July issue. I waited almost three 
months for the Mod III tape version of 
Scripsit. During that time I became so dis- 
couraged with the slow rate of data trans- 
fer during cassette I/O (500 baud and 50 
percent plus sync bytes) that I purchased 
disk drives. When the Mod III Scripsit did 
arrive I was able to get it loaded in a cas- 
sette and for data to be saved or loaded at 
1500 baud. 

I will gladly provide a copy of the 1500 
baud Scripsit to Mr. Mohr or anyone else 
desiring a copy. Send proof of purchase, a 
blank cassette and return postage. If so 
desired I will provide the cassette and pay 
the postage for $4.00. 

Lee A. Hillard 

304 North 17th Street 

Mount Vernon, WA 98273 



Terminal Modifications 

I frequently use my TRS-80 Model III as 
a terminal to communicate with a Cyber 
171 by telephone. This works quite well, 
using a modified version of the dumb ter- 
minal program found in the Model III Disk 
System Owner's Manual. I think the 
modifications could be useful to persons 
using their Model Ill's as terminals for 
other mainframe machines. The revised 
listing is found below. 



2 PRINT CHRS(14) 

5 DEFINT A-Z 

10 POKE 16890,0 

15 POKE 16888,(5" 16) + 5 

20 DEFUSR0=&H005A 

40 X = USR0(0) 

60 DEFUSR1 = &H0050 

65 DEFUSR2 = &H0055 

70 CI = 16872 

80 CO =16880 
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HftNNON 
RGN6TKS. 



To Order: 

Toll Free 1 800-525-7958 

1650 South Laredo Court • Aurora, Colorado 80017 



MICRO COMPUTER DISKETTES 

BV Double Density. Single Sided. Mini Disks, Shrink wrapped boxes of 10 with Jackets. Labels and Tabs 

REGULAR SPECIAL 

RETAIL FALL 

PRICE SALE 

$26.95 $22.95 

WE ARE NATIONALLY INTRODUCING OUR HIGH QUALITY MINI-DISKS 
DIRECT TO THE END-USER AT A SPECIAL PRICE FOR A LIMITED TIME. 



THESE DISKETTES ARE FULLY GUARANTEED FOR ONE YEAR AGAINST DEFECTS. 
RETURN ANY DISKETTE GOOD, BAD OR OTHERWISE AND WE WILL 

REPLACE IT FREE WITH NO QUESTIONS ASKED. YES - WE MEAN IT! 

This offer expires midnight Dec. 31. 1981 
UPS SHIPPING FREE 
FLIPSORT DISKETTE FILE BOX 5«/V S19.95 with 50 SHANNON MflGNCTKS disks $109.95 



VERFIN DISK DRIVE 
HEAD CLEANERS 

by Shannon Magnetics 

These drive cleaning diskettes assure proper operation of all types of 5V4" disk drives by removing dirt and 
debris which can cause read/write errors and lost data. Designed for use with double or single density dual 
or single headed drives of any track count. They will provide maximum effective cleaning for drive of any 
brand name without harsh liquid chemicals which may damage delicate mechanisms or cause excessive 
head wear. The kits contain two cleaning disks and instructions in a reusable hard plastic diskette box. 
Everything you need is included. NO TOOLS or SPECIAL SOFTWARE are required. You can use it in just 
seconds to insure the reliability of your system. 

COMPLETE KIT $24.95 



Two kits for only $39 95 



MASTERCARD W We also accept 

AND VISA =Sn • COD • CHECKS 

WELCOME I I • MONEY ORDERS 

ORDERS IN U.S.A. SHIPPED U.P.S. FREE. Colorado residents add 6V 2 % sales tax. 
WE OFFER ATTRACTIVE DISCOUNTS TO DEALERS IN SMALL QUANITIES 



»^540 



= 



SO INPUT 



90 'CHECK FOR SERIAL INPUT 

110X = USR1(0) 

120 C$ = CHRJ<PEEK(CI)) 

125 IF ASQCS) = 13 THEN 140 

130 PRINT CS; 

140 "CHECK FOR KEYBOARD INPUT 

150C$ = INKEY$ 

160 IF Cfta"" THEN 110 

163 IF C$= T THEN C$ - CHRS(94) 

164 IF C$ = "®" THEN CS = CHR$(126) 

165 PRINT CS; 

170 POKE CO, ASqCS) 
190X = USR2(0) 
200 GOTO 110 



I added lines 2, 125, 163 and 164. Line 2 
turns on the cursor, a useful feature when 
editing programs. When connected to the 
Cyber, the Model III gets two line returns 
for each line, one from the Cyber and one 
from itself. The result is double spacing 
for each line that appears on the screen. 
Line 125 eliminates one of those spaces, 
so that the lines are single spaced. Lines 
163 and 164 provide characters needed for 
editing on the Cyber but which are not on 
the TRS-80 keyboard. They use previously 
unused keys. Line 163 transmits, both to 
the screen and the Cyber, a caret (up ar- 
row) when the up-arrow key is depressed. 
(This usually sends a left bracket on the 
Mod III.) Line 164 converts the @ key to a 
tilde, also used for editing. You can 
transmit any appropiate ASCII characters 
to the mainframe by this technique. 

Phil DiLavore 
Terre Haute, IN 



One Liner 



This one liner is a winner. It requires 
NEWDOS Operating System. It will display 
the disk directory for any specific drive. It 
will also permit you to kill up to ten (10) 
files at once. 

The program will ask for a drive number. 
It will then display that drive's directory. A 
request for up to ten file names will follow. 
If less than ten files are to be killed, hit the 
Enter key to all other requests. That is all! 

10 CL&CLEARSOOilNPUT'DRIVE NUMBER : •';D$:A$ = 
"DIR :" + D$:CMDA$:PRINTSTRINGS(60,131):FORX = 
0TO9:PRINTX;:LINEINPUT-FILE NAME (ENTER) :"; 
FS(X):F$<X) = FS<X) + ':" + DS:NEXTX:CLS:FORJ = 
OTOX-lilFLENtFSlJJp^PRINT'KILLING FILE : "F$(J): 
KILLFS(J):NEXTJ 



Miguel Diaz 
Ponce, Puerto Rico 



Mod II Word Processor 

Here is a modification to my Everyman's 
Mod II Word Processor {80 Microcomput- 
ing, July 1981). This modification will 
greatly speed up disk read/writes (load/ 



"This one liner displays 

the disk directory 
for any specific drive. " 



save) commands. Perform the modifica- 
tion in the following manner: 

• Delete lines 1520-1570. 

• Delete lines 1770-1810. 

• Load in the replacement lines from 
the listing which follows. 

• Change line 1645 to the new one (in- 
cludes CLOSE statement). 

• Add lines 3000 and 3010. 



1520 FS$ = "TABLE ,, :G0T01524 

1522 GOSUB 1786' load 

1524 OPEN"l",1,FSS:CLS:PRINT "Loading ";CHR$<26) ; 

" ";FS$;" ••;CHR$(25); 

1526 INPUT«1.LA.LL,S,NS.FL,LP.LM,PS,PN$,FP, 

PIS.PS.HS 

1528 FORL = 0TOLA:LINEINPUT#1,A$<L):GOSUB3000: 

NEXTLGOT01784 

1770 GOSUB1786:IFA = 96THEN60'save 

1772 IFRIGHT$(HS,1) <> SSTHEN1776 

1774 Y = LEN(H$):H$ = LEFT$(HS, Y - 1):IFY> 1THEN 

1772ELSEHS = CHRS<0) 

1776 R - 1:GOSUB480:OPEN"0 ",1,FSS:CLS:PRINT 

®900."Savlng ";CHRS(26);" ";FS1" ";CHR$(25); 

1778 PRINT#1,LA;LUS;N$;",";FULP;LM;PL;PS;PNS;"."; 

FP;P1S;'V;P$;'.";H$ 

1780 FORL = 0TOLA:IFASC(RIGHT$(A$(L),1)) = 10 

THENAS<L) = A$<L) + S$ 

1782 PRINT»1,A$(L):NEXTL 

1784 PRINT" — Completed":CLOSE:GOTOe0 

1786 IFFSS = " "THENFSS = "TEXrWP" 

1787 CLS:PRINTTAB<15rPRESS "' TO ESCAPE AND 
RETURN TO ";CHRS(26);" COMMAND ";CHR$(25) 

1788 PRINT®890,"Current file8pec-";CHR$(26);" "; 
FS$;"";CHR$(25),:A$=FSS:UNEINPUT"NEW = ?";AS 

1790 IFA$ = THEN60ELSEIFA$ = " "THENRETURN 

ELSEIFLEFT$<A$,1) = ""THEN1787ELSEEFSS = A$ 
1792 CLS:RETURN 

3000 Y = LEN(AS(L)):IFYTHENA = ASQRIGHTS(AS(L),1)) 

ELSEA = 

3010 IFY> 1ANDA = UTHENAS(L)=LEFT$<AS<L),Y-1): 

GOTO3000ELSERETURN 

1645 IFERR = 5THENPRWT"YOUCANTDOTHAT!!m 
":CLOSE:FORQ = 0TO4000:NEXTQ:RESUME80 

30 CLEAR20000:DEFINTA - Z:NL = 360:DIMA$(NL), 
X$(3).S<25).T(25) 



These modifications are courtesy of Mr. 
Delmer Hinrichs of Washougal, Washing- 
ton. He also suggested that the Clear 
statement in line 30 be put before the DE- 
FINT statement. As it is, the Clear also 
clears the DEFINT statement which pre- 
cedes it. 

Mike Kilroy 
Dayton, OH 



Uppercase 



Hats off to Martin C. Hambel for his pro- 
gram Shift Lock (80 Microcomputing, May 
1981). One problem that I have with it, 
however, is that I don't have a lower case 
mod in my computer. I can't find out if a 
character is upper case or lower case until 
I output it to my printer. By adding these 
five instructions to his program: 

00460 CP 60H ;LOWER CASE LETTER? 

00470 JR NC.RET ;RETURN IF SO 

00480 LD IY,(4020H) ;LOAD IY WITH CURSOR 
POSITION 

00490 LD (IY),5BH ;DISPLAY UPWARD ARROW 

00500 INC IY 

00510 LD (4020H),IY ;MOVE CURSOR ONE POSI- 
TION 

I am able to display an up arrow to the im- 
mediate left of any upper case character. 
The printer does not print the up arrow 
because it is POKEd into video memory. 
The only drawback in POKEing it into 
video memory is that the arrows disap- 
pear on a list. 

J. Keith Eller 
Laurel, MD 



Graphic Codes 



This is a patch for NEWDOS 80 version 
2.0. It allows the JKL function to send 
graphics to the Epson MX-80 printer with 
the correct graphic code values. For this 
feature you will need to change file 
sys3/sys. Relative sector 4 starting at 
relative byte B9 insert the following 
values: 

FE803802C620 47 3A7043B6 
78 30 02 3E 2E CD 3B 00 C3 85 51 

Although you still have to send the stan- 
dard Epson values from your programs, 
the JKL function now copies the screen 
contents correctly. 

Burgin L Howdeshell 
GoodfellowAFB, TX 



Ribbon Rewinding 

For those troubled by the $8/shot cost 
of each ribbon gobbled up by the Radio 
Shack Daisy Wheel Printer II, there's an 
alternative. Rewind the old multi-strike rib- 
bon. It produces acceptable results for 
non-critical typing. Characters are read- 
able but lighter in density on the ribbon's 
second pass. 

continued on page 24 
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M& DATA RESOURCES Mk 

QUALITY SOFTWARE FOR YOUR TRS-80® DISK SYSTEM 
TO ORDER CALL TOLL FREE 800-525-7958 



Data Resources is pleased to continue its commitment to professional quality TRS-80 
software by introducing The Silver Edition Software Series. This collection of programs 
represents the best contributions from the most talented and popular authors available. 



DATA RESOURCES NEW SUBSYSTEMS FOR AIDS III 



AIDS DISK SORT 

Designed for files that are too large to sort in 
memory'" with AIDS or for when you don"t 
want to wait while AIDS loads the records. 
Records are physically rearranged on disk 

MODEL I $24.95 

AIDS FILE EDITOR 
Allows you to update and edit records in AIDS 
data files without loading the file into memory. 
Now you can change a single record in a 
mailing list quickly and easily with random 
access selection. 
MODEL I $24.95 



AIDS DATA ENTRY MODULE 

Designed for inputting data directly into AIDS 
files. Fields may be fixed to repeat the same 
data The key-in routines are improved in 
speed — no more over keying Data can be 
added to the end of an existing file or a new file 
can be created. Filesare automatically opened 
and closed so even if the computer is turned 
off in the middle of work, no more than 255 
keystrokes can be lost. 

MODEL I $24.95 



BIONIC BASIC 

By Glynn Owen 
The BIONIC BASIC routines implement a number 
of useful commands and functions that are not 
available in regular BASIC BIONIC BASIC appends 
these routines to the BASIC/CMD file so that they 
load automatically every time Disk BASIC is 
entered The BIONIC BASIC modules will not 
require reserved memory, they are resident in 
memory whenever Disk BASIC is being used. 
Model I $49.95 



THE MICRO ACCOUNTING SYSTEM 

This is the finest accounting system available for your 
TRS-80 Ideal for small business, this Intergrated 
General Ledger. Accounts Receiveable. Payable 
System includes a Checkbook manager 
We offer something no other general business package 
can give you-a money back guarantee. II you are not 
totally satisfied return the package within 60 days and 
receive a full refund. Write tor sample reports and full 
descriptions 

MAS/80 complete $489.00 



VERBATIM DISKETTES 
5V«" DOUBLE DENSITY 
40 TRACK DATALIFE . $26.95 

FLIPSORT 
FILE BOX STORAGE 

IV $19.95 

1 BOX VERBATIM 5V." DISKS 
WITH FLIPSORT $43.95 



B.T. ENTERPRISES 
UNITERM/80 

By Pete Roberts 
This is the state of the art in communications 
software It configures itself for either Model I or 
Model III and can be used with any standard 
modem, both RS-232 and Bus-Decoding 
Especially designed to use the extended commands 
in NEWDOS/80, but fully compatible with all major 
DOS systems 
For Model I and III $89.00 



THE FLOPPY DOCTOR 

By Dave Stambaugh 
FLOPPY DISK/MEMORY DIAGNOSTIC 
Computer "professionals" have long known the 
importance of regular use of diagnostic software in 
verifying the integrity of computer hardware. The 
TRS-80 is no exception; good diagnostics are a 
must. The MICRO CLINIC offers two programs 
designed to thoroughly check out the two most 
trouble prone sections of the TRS-80, the disk 
system (controller and drives) and the memory 
arrays. 

MODEL I $24.95 MODEL III 429.95 



PAPER 
9Vax11 TRACTOR FEED WHITE 

3300 SHEETS $29.95 

14'/ix11 TRACTOR FEED 
GREEN BAR 
3300 SHEETS $39.95 

PAPER SHIPPED BY TRUCK 
FREIGHT CHARGES COLLECT 



DATA RESOURCES 
NOW EXPRESS SERVICE 

We will guarantee to have any software order 
placed before noon M S T. delivered the 
next business day. Air freight charges are 
collect We promise service and we deliver - 
over night if necessary or the order if yours 
FREE. 



AIDS SYSTEMS 

BY METS TECHNOLIGIES 

MTC AIDS III 

This easy to use system allows even a novice 
TRS-80 user to create data files custom 
configured for many applications, from lists 
for mailing and cataloging to financial 
reporting and time scheduling It requires NO 
PROGRAMMING and is complete with 
features for adding, deleting, sorting^ 
updating and printing 
MODEL I $69.95 MODEL II $99.95 

MTC CALCS III 

Performs numeric calculations of data 

contained in AIDS files Ideal for financial 

applications 

MODEL I $24.95 MOOEL II . $39.95 

MTC CALCS IV 

The same features as CALCS III with more 
powerful formulas and the ability to store 
report formats. 

MODEL I $39.95 MODEL II ... . $59.95 

MTC MERGE — III 

Combines up to 14 AIDS data files into a single 
file Duplicates may optionally be purged, and 
sorted order of records is maintained. 
Machine code for speed makes this useful if 
large data files are to be created from smaller 
ones 

MODEL I $19.95 

MODEL II $29.95 

SPECIAL 

AIDS III SUPER SYSTEMS 

AIDS III & CALCS III A MERGE III 

MODEL I $99.95 

AIDS III A CALCS IV A MERGE III 

MODEL I $109.95 

NEWDOS/80 Version 2.0 
for MODEL I and III $149.00 

The hottest Disk Operating System is now 
available in its latest version. This is the ONE 
from Apparat. Inc.. the people whose systems 
have made the TRS-80 a reliable computer. 
This system includes. 

• Double Density support on the Model I 

• New Superzap with expanded capabilities 

• Diskette compatibility between Model I 
and III 

MODEL I DOUBLE DENSITY PACKAGE 

NEWDOS/80 Version 2.0 and the 

LNDOUBLER 

Everthing you need to convert your TRS-80 
Model I to run double density Complete with 
software, hardware, and instructions, 
installs in minutes with NO SOLDERING, 

WIRING OR CUTTING $229.95 

LNDOUBLER Alone $149.95 



^& 



MASTERCARD 
AND VISA _ 
WELCOME 
We also accept 
COD • CHECKS 
MONEY ORDERS 



Data Resources Corporation 

Business & Professional Center 8000 East Quincy Ave. 
Denver, Colorado 80237 (303) 773-6665 



ALL SOFTWARE SUPPLIED ON DISKETTE. 
ORDERS IN U.S.A. SHIPPED UPS. FREE. 
Colorado residents add 6V>% sales tax 

ATTN: DEALERS - We offer attractive pricing and terms to small 
computer retailers. Write for information on our dealer program and 
discounts in small quantities. 



1981 DATA RESOURCES CORP 
TRS-80- IS A TRADEMARK OF TANDY CORP 
nces in effect Dec I. 1981 to Dec 31. 1981 and subject to changes 
CALCS III ■ MERGE III " ARE TRADEMARKS OF METATECHNOLOGIES 
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MX-80 Sans Interface 

This is in answer to David D. John- 
son's query in Septemper 80 Micro- 
computing regarding the possibility of 
using an Epson MX-80 printer without 
an expansion interface. I have used 
this setup and it works well. You do 
have to make a minor change inside 
the MX-80 however. 

A Radio Shack Extension cable 
(catalog number 26-1411) and a Radio 
Shack 16 pin DIP Header (catalog 
number 276-1980) plus a short length of 
wire and soldering equipment is re- 
quired. Extension cable 26-1411 is a 
two-part buffered printer extension 
cable and has the correct connector 
for mating with the MX-80. The buffers 
are contained in a plastic box on a 
short stub cable and require 5 volts to 
operate. The modification to the MX-80 
is to supply 5 volts to the buffers. 

Remove the MX-80 cover as de- 
scribed in the MX-80 manual. Remove 
the two screws retaining the small cir- 
cuit board at the left rear of the MX-80. 
Gently pry the board connectors open 
and move the board to one side. This 
will expose the cable connector. 
Carefully solder a lead to the right- 
most connector lead (this is pin No. 18 
and is not used by my MX-80 — it would 
be a good idea to check this with a low- 
current ohm meter on a more recent 
MX-80). Solder the other end of the lead 
to pin No. 8 of the DIP header after clip- 
ping of all pin Nos. 9-16 and also pin 
No. 7. Plug the DIP header into MX-80 
socket 3B so that pin No. 8 of the DIP 
header is plugged into pin No. 24 of 
socket 3B. DIP header pins 1-6 are re- 
tained merely to help secure the plug 
in place— no connections should be 
made to them. Carefully reinstall the 
printed circuit board, replace the 
printer cover and, with power off, con- 
nect the printer cable and you're in 
business. If at a later date you add an 
expansion interface, simply eliminate 
the buffer stub cable. 

Incidentally, David Lien's excellent 
MX-80 Instruction Manual says on 
page 84 that, with "a Radio Shack 



cable, switches 1-3, 1 -2 and 2-3 are all 
overridden and LF is automatically ad- 
ded to every CR". Strictly speaking, 
this is true but there is something quite 
simple that can be done about it. The 
cure is to place a tiny bit of tape over 
pin No. 14 of the Radio Shack cable 
connector. This is to prevent this plug 
pin from making contact with its match- 
ing socket pin. I used a sliver of typing 
correction tape. This removes the 
ground applied by the Radio Shack 
buffer unit to pin No. 14 of the MX-80. 
With this ground removed, the above 
listed switches function as Epson in- 
tended. Whatever is used should be as 
thin as possible to avoid damage to the 
connector. 

R.B. Trueblood 

Box 381 

Jaftrey, NH 03452 



Epson Expansion 
Interface 

This letter is in response to David 
Johnson's letter "Connecting Printers 
Without Expansion" (80 Input, Septem- 
ber 1981). He asked for assistance in 
locating a direct interface from his 
TRS-80 Level II computer to an Epson 
MX-80 printer, in other words, avoiding 
the purchase of a very expensive, full- 
featured expansion interface when all 
he really wants to add is a printer. 

About three months ago I went 
through the same frustrating search. I 
was beginning to believe that I was the 
only one of 250,000 TRS-80 Model I 
owners who had not gone the expan- 
sion interface/disk route, but I per- 
severed. Finally, I located a company 
which would provide me with a TRS-80 
interface kit on a special order for $75 
plus tax and shipping charges. The 
company name is, believe it or not, Ep- 
son America Inc. It seems that even 
their sales representatives are not 
aware of the fact that they have the in- 
terface. I have not seen it advertised 
anywhere although there were plenty 
of advertisements for the Epson Apple 
Interface kit. 



You can obtain this interface kit 
from the same person that located it 
for me: Emmanuel B. Garcia, Jr. & As- 
sociates, 203 North Wabash, Chicago, 
IL 60601, phone (312) 782-9750. 

The TRS-80 interface kit consists of 
an 'interface board (Epson cat. no. 
8120) and a TRS-80 bus interface cable 
(Epson cat. no. 8221). It works beau- 
tifully, but a couple of words of 
caution. When installing it, first be 
sure that your internal switches are set 
as shown on page 14 of the MX-80 
user's manual. You will never be able 
to change them again without remov- 
ing the interface board since it mounts 
directly over these switches. Secondly, 
the instructions for installing the inter- 
face kit are very good (many pictures) 
except for one thing. When you get to 
the point where the interface board 
and the cable have been mounted in 
the printer, and you are standing with 
the other end of the cable in your hand, 
it is not clear how to plug it into the 
TRS-80 keyboard unit (no picture). 
Looking at the back of the keyboard 
unit, you should be able to read 3M 
plug no. without standing on your 
head, the cable should dress down and 
the black line on the cable should be 
on the left side. You may have to put a 
twist in the cable to accomplish this. 
Because the cable is very short, do it 
carefully. 

James E. McCullough 
25155 West Caine Road 

Ingle side, IL 60041 



Making Patches 



I am rather reluctantly planning to 
add a disk drive to my system later this 
year, and am irritated by the fact that I 
have several cassette based utility pro- 
grams (e.g. Scripsit) which save their 
output to tape, and therefore will not 
be much use with a disk. So I either 
have to buy the disk version of the pro- 
grams, or to put up with having two dif- 
ferent systems in use. 

What I want in the short term is a 
patch which will enable me to modify 
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Scripsit to save text on disk and load 
text to disk. In the long term I would 
like to see an article which explains in 
simple "cook book" terms how to mod- 
ify programs. I know it can be done, 
since I have seen Paspatch advertised. 
I want to know how to do it myself. 

A. F. J. Bell 

49 Hyde Park Road 

Traralgon, 3844, 

Australia 

ULCBAS Incompatibility 

ULCBAS is the lowercase driver rou- 
tine supplied by Radio Shack when 
they install the lowercase electronics 
in your TRS-80 Model I keyboard. Use 
this routine in Level II Basic; use 
ULCDVR in Disk Basic. 

If you use ULCBAS with your user 
written programs, especially if you 
have 32K or 48K of RAM, you may find 
that your program is incompatible with 
ULCBAS. Programs which use RAM lo- 
cations above 705CH (28764 decimal) 
may result with a non-responding key- 
board. If you have experienced such 
difficulties and desire a simple fix to 
the problem, please write. 

James E. Lundee 

918 South Thomas Avenue 

Forest Park, IL 60130 

Line Spacing 

I have a Radio Shack Model II, a 
Daisy Wheel II Printer and Scripsit. I 
use this system for preparing patent 
applications. 

I file U.S. patent applications direct- 
ly from my system, however for foreign 
filing it is a requirement that the appli- 
cations be typed at a line spacing of 
one and a half (1.5), and the lines num- 
bered at every fifth line. I do not know 
how to get my system to comply with 
this format and would appreciate any 
suggestions from you or your readers. 

Michael J. Weins 

3 Humphrey 

Convent Station, NJ 07961 



TFORTH Info wanted 

Do any readers have information on 
the use of TFORTH? On the basis of 
continual advertising in 80 Microcom- 
puting, I recently bought TFORTH from 
Sirius Systems in Knoxville, TN. After 
months of hassle they finally delivered 
the software, but without instructions 
for making TFORTH produce /CMD 
files. This advertised feature was the 
only reason I spent $140 on the soft- 
ware to begin with. Sirius never 
answered letters, and now their phone 
is disconnected too. If anyone is famil- 
iar with this software, or with the 
authors of it, please write! In particu- 
lar, I would like to get in touch with 
David Wedeking, who was listed as 
technical support on this package. 

Roxton Baxter 

Box 8272 

APO San Francisco 96555 

HPLC-pumps 

HPLC is an important analytical 
technique in biochemical and chemi- 
cal laboratories. Several companies 
sell modular instruments consisting, 
among other things, of the pumps and 
a microprocessor control unit running 
the pumps. 

I am searching for a person, who has 
interfaced a simple, cheap computer 
(such as the Apple II) to HPLC-pumps. 
This ought to be a simple matter and 
much cheaper and more fun to do. 

Could you help me to find a reference 
to such an application? I would greatly 
appreciate any assistance that you 
can give me. 

Kasper Kirschner, Ph.D. 

Professor of Physical Biochemistry 

Stanford University 

Stanford, CA 



Exchange Software? 

I've written three game programs as 
well as some business application 



units, and I suspect that there are 
many other readers who have done 
much the same. 

If you'd be interested in hashing 
over some ideas for exchanging pro- 
grams (I'm thinking of some sort of two 
for one deal), drop me a line and I'll put 
together the ideas and get back to you 
with an operating proposal. 

Describe programs you've devel- 
oped, memory required, disk or cas- 
sette, or Model I, II, or III (Level also, if 
it's Level I). 

Jay Chidsey 

205 East Adams Street 

Green Springs, OH 44836 

Memory Chips Needed? 

Does the TRS-80 expansion inter- 
face require special memory chips? 
Some advertisers have different part 
numbers for the interface. 

I ordered a complete set from God- 
bout. They worked in the keyboard but 
not in the interface. Radio Shack's re- 
pair said they were too fast. Could you 
please explain this. 

Harvey Churkey 

3056 Water Street, Apt. 33 

Stevens Point, Wl 54481 

Model II Tabs 

After having used a Model I for 
several years to my full satisfaction, I 
have recently bought a Model II which I 
hope will be as reliable as my Model I. 
In the meantime I bought a new printer, 
the C.ITOH 8510 dotmatrix model, 
which I was told would sooner or later 
also be available in the U.S. I find it a 
fantastic printer which can easily com- 
pete with the popular ones available in 
the U.S. One of the features allows the 
user to set up individual Tabs and to 
call these then successively with 
CHR$(9) instructions. This allows the 
use of the proportional spacing func- 
tion and still have straight columns. 
Unfortunately, the Model II has preset 

continued on page 24 
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Our incredible 
low prices 

2% lower. 

Take an additional 2% off our listed prices, until December 24. 

Have a merry computer 
and a happy software. 




PRINTERS 

ANADEXDP9500 1296 00 

ANADEX DP 9501 1295.00 

CENTRONICS 739 765 00 

C-ITOH 25CPS PARALLEL 1440.00 

CITOH 25 CPS SERIAL 1495 00 

C-ITOH 45 CPS PARALLEL 1770.00 

CITOH 40 CPS SERIAL 1870 00 

C-ITOH TRACTOR OPTION 195.00 

EPSON MX-80 $CALL 

EPSON MX-80 FIX SCALL 

EPSON MX 100 GRAPHIC $CALL 

EPSON GRAPHICS ROM 90 00 

IDS 445G PAPER TIGER 779 00 

IDS-460G PAPER TIGER 945 00 

IDS-560G PAPER TIGER 1 195.00 

MALIBU 200 DUAL MODE 2695 00 

NEC SPINWRITER 3510 SERIAL RO 219500 

NEC SPINWRITER 3530 PARALLEL RO 2195 00 

NEC SPINWRITER 7710 SERIAL RO . .2645.00 

NEC SPINWRITER 7730 PARALLEL RO 2645 00 

NEC SPINWRITER 7700 D SELLUM OPTION . 2795.00 
NEC SPINWRITER 3500 SELLUM OPTION . . .2295 00 

OKIDATA MICROLINE 80 399.00 

OKIDATA MICROLINE 82A 569.00 

OKIDATA MICROLINE 83A 799.00 

OKIDATA MICROLINE 84 1199.00 



16K RAM SPECIAL 13.95 

SET OF 8 NEC 4116 ns WITH INSTRUCTIONS 
GUARANTEED ONE PULL YEAR 



MODEL I, III SOFTWARE 

LAZY WRITER MOD I II9.00 

LAZY WRITER MOD III 169.00 

MICROPROOF SPELLING CHECK 84.95 

PROSOFT NEWSCRIPT MOD I. Ill 9900 

PROSOFT MAILING LABELS 29.95 

PROSOFT NEWSCRIPT LABELS II5.00 

SPECIAL DELIVERY MOD I. Ill II9.00 

X-TRA SPECIAL DELIVERY MOD I. Ill . . I7900 

TRACKCESS MOD I 24 95 

OMNITERM SMART TERMINAL MOD I. Ill 89 96 

MAXI-MANAGER 89.95 

DOS PLUS 3.3 89.00 

LDOS 139.00 



DISKETTES 



ALPHA DISKS® 21.95 

SINGLE SIDED. CERTIFIED DOUBLE DENSITY 

40 TRACKS. WITH HUB-RING. BOX OF 10 

GUARENTEED ONE FULL YEAR 

VERBATIM 

MD 52541,10,16 26.50 

MD 550-01,10,16 44.50 

MD577-01. 10.16 34.80 

FD 32 OR 349000 36.00 

FD 32 OR 34-8000 45 60 

FD 34 4001 48 60 

DYSAN 

5V4. SS/DD, BOX OF 5 24.50 

DISKETTE STORAGE 

5% '• PLASTIC LIBRARY CASE 2.50 

8' PLASTIC LIBRARY CASE 3.50 

PLASTIC STORAGE BINDER WITH INSERTS . .9.95 

PROTECTOR5". 21.95 

PROTECTORS 24.95 

TRS-80 MOD I HARDWARE 

PERCOM DATA SEPARATOR 27.00 

PERCOM DOUBLER II 159.00 

TANDON 80 TRACK DISK DRIVE 429.00 

TANDON 40 TRACK DISK DRIVE 299.00 

LNW DOUBLER WITH DOSPLUS 3.3D 159.00 

TRS-80 MOD I 32K EXPANSION INTERFACE 355.00 

MODEMS 

NOVATION CAT ACOUSTIC 145.00 

NOVATION D-CAT DIRECT CONNECT 155.00 

NOVATION AUTO CAT AUTO ANSWER 219 00 

UDS 103 LP DIRECT CONNECT 175 00 

DC HAYES STACK Smart Modem (RS 232) . 249.00 
LEXICON LX-11 109.00 



CP/M* SOFTWARE FOR MOD II 

MICROSOFT 

MICROSOFT BASIC-80 299.00 

MICROSOFT BASIC COMPILER 319.00 

MICROSOFT FORTRAN 80 399.00 

COBOL 80 599.00 

MICRO PRO 

WORDSTAR 325.00 

MAILMERGE (REQUIRES WORDSTAR) 1 10.00 

SPELLSTAR (REQUIRES WORDSTAR) 199.00 

SUPERSORT 195.00 

DATASTAR 245.00 

PEACHTREE 

GENERAL LEDGER 595.00 

ACCT. RECEIVABLE 595.00 

ACCT. PAYABLE 595.00 

PAYROLL 595.00 

INVENTORY 595.00 

PROPERTY MGMT 799.00 

CPA CLIENT WRITE-UP 799.00 

MAGIC WAND 299.00 

OTHER CP/M® SOFTWARE 

SPELLGUARD 239.00 

SUPERCALC 229.00 

COMMX TERMINAL SOFTWARE 75.00 

dBASE II 599.00 

PICKLES AND TROUT CP/M* MOD II TRS-80 .175.00 



SUPPLIES 

AVERY TABULABLES 

1.000 3 V» X 15/16 8.49 

3.000 3 V. X 15/16 14.95 

5,000 3'/a X 15/16 19.95 

FAN FOLD PAPER ipdchf.o.b.s.p.) 

9ViX1l 181b white 3000 ct 29.00 

14 7/8 X 11 181b white 3000 ct 39.00 
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CORVUS 

TRS 80 MOD 1,11 

Controller. Case/P.S.. Operating System. A4T 

5 Megabytes ..... 3245 00 

10 Megabytes . 4845.00 

20 Megabytes ........ 5545 00 

MIRROR BACK-UP 725 00 



SPECIALS 
SPECIAL NO. 1 

TRS-80 DISK AND OTHER MYSTERIES. BOX OF 
VERBATIM DISKS, PLASTIC LIBRARY CASE 44 50 

SPECIAL NO. 3 

NEWDOS/80 2.0. BOX OF VERBATIM DISKSPLASTIC 
LIBRARY CASE 149 00 

SPECIAL NO. 4 

MICROSOFT BASIC COMPILER. BOX OF VERBATIM 
DISKS, PLASTIC LIBRARY CASE 190.00 

SPECIAL NO.5 

MICROSOFT BASIC DECODER AND OTHER 
MYSTERIES. BOX OF VERBATIM DISKS. PLASTIC 
LIBRARY CASE 49 95 

DOUBLE DENSITY SPECIAL 

PERCOM DOUBLER II NEWDOS/80, BOX OF 
VERBATIM DISKS, PLASTIC LIBRARY CASE . 279 00 

COMMUNICATION SPECIAL MOD I & III 

NOVATION MODEM. OMNITERM TERMINAL 
SOFTWARE. RS 232 CABLE 

ACOUSTIC SPECIAL 239.00 

DIRECT CONNECT SPECIAL 259 00 

DISK LIBRARY SPECIAL 

RACET DISK-CAT CATALOGING PROGRAM. FLIP 
SORT (50 DISK CAPACITY). 50 STICK-ON DISK 
LABELS 59 96 



TWO NEWOTHER MYSTERIES' 
BOOKS 

THE CUSTOM TRS-80 24 95 

MICROSOFT BASIC FASTER AND BETTER 24 95 



Alpha Byte is proud to feature the finest 
business software available for the TRS-80 
from Occupational Computing Co., Inc. 



TRS-80 GAMES 



TEMPLE OF APSHAI 34 95 

HELLFIRE WARRIOR 34 95 

STAR WARRIOR 34 96 

RESCUE AT RIGEL 24 95 

CRUSH, CRUMBLE & CHOMP 24 95 

INVAOERS FROM SPACE 17 95 

PINBALL 17 95 

STAR TREK 3 5 17 95 

MISSILE ATTACK 1198 

STAR FIGHTER 24 95 

Z CHESS HI 24 96 

ADVENTURE NO. 1.2*3 34 95 

ADVENTURE NO. 4.5 & 6 34 96 

ADVENTURE NO. 7.8 4 9 34 95 

DUEL N DROIDS 1795 

STARFLEET ORION 2195 

INVASION ORION 2195 

OLYMPIC DECATHLON 24 95 

ZORK 34.95 

MONTY PLAYS MONOPOLY 3195 

SARGONII 31.95 

BLACKJACK MASTER 27 95 

ROBOT ATTACK 17 95 

GALAXY INVASION 17 95 

SUPERNOVA 17 95 

TUESDAY MORNING QUATERBACK 28 95 

LUNAR LANDER 18 95 

THE MEAN CHECKER MACHINE 2195 

GAMMON CHALLANGER 1896 

SPACE ROCKS 18 95 

PIGSKIN 17 95 

ZOSSED IN SPACE 18 95 

ARCADE 80 21 95 

COMBAT 18 95 

SPACE INTRUDERS . 17.95 

SILVER FLASH ,......, 17.95 

MORTONS FORK 28 95 

PROJECT OMEGA 21.95 

CP/M is a registered trademark of Digital Research 



OCC A/R WITH BILLING AND 
INVENTORY CONTROL 

One step posting prints an invoice, 
reduces inventory, posts to customer 
ledger and accumulates sales analysis. 
Can be set up as Open Item or Balance 
Forward system. 

Model 1,111 750.00 

Model II 1495.00 

OCC PAYROLL 

Includes: Multiple Pay Freqencies, 
Salary or Hourly, Automatic Deductions 
(Federal, State, FICA. Disability In- 
surance). Commissions, Bonuses, Tips. 
Complete Journal. Check Writer, Check 
Register, Quarterly 94IA and Yearly W-2 
Reports. 

Model I. Ill 350 00 

Model II 495.00 

OCC UNION REPORTING 

Features: Interfaces with OCC Payroll 
(Data entry is from employee time card), 
Flexible Local Set-up (Union Codes and 
Classifications), Computation and repor- 
ting of Various Funds (Vacations. Dues. 
Pensions, Health & Welfare, Industry, 
raining. Promotion, Contract Ad- 
ministration). 
Model II 495.00 

OCC ORDER ENTRY 

Features: Allows On-Line Entry and 
Maintenance of Customer Orders. Sup- 
ports Credit Memos, Standard & Non- 
standard Discounts and Total Back- 
Order Control. Automatically Interfaces 
to OCC A/R, Billing & Inventory Control. 
Model II 995.00 




OCC MANUFACTURING 
INVENTORY CONTROL 

Features: Bill of Material 'Explosion' 
maintains inventories in up to 10 levels 
of sub-assemblies and/or components. 
Allocates and relieves raw materials 
based on input of production schedules 
and completions thru the bill of 
Materials Explosion Update and Prints 
Bill of Materials Cost Report. All or 
selected ranges of assemblies are "Ex- 
ploded" into the lowest level com- 
ponents; quantities and unit prices are 
extended for each component to give a 
unit cost for the entire assembly. Prints 
Inventory Exception Report and Sug 
gested Purchase Orders. Automatically 
interfaces to OCC A/R , Billing and In- 
ventory Control and OCC Order Entry 
Systems 
Model II 995.00 

All OCC Software is supplied with user 
oriented manuals that include easy user 
installation instructions. OCC Software 
is written in Radio Shack Basic and runs 
under TRSDOS. OCC Software uses 
Keyed Sequential Access Method 
(KSAM) File structure. Binary searches 
and fast Machine Language Sorts to in- 
sure the fastest possible execution. 
OCC's Exceptional Screen Control For- 
mat makes data entry as easy as filling 
out a form. Related OCC Software 
packages interface to form complete 
MENU DRIVEN Accounting systems. 

If you have a serious business applica- 
tion then you should consider OCC Soft- 
ware. Call for a complete description of 
any of OCC's Business Packages. 



We built a reputation on our 
prices and your satisfaction. 

We guarantee everything «e sen lor 30 days II anything is 
wiong |usi return the item and we'll make it r>gh' 
course we II Day the shipping charges 

We accept Visa anrj Master Card on a orders COD orders 
accepted up to S300 00 

Please add $2 00 tor standard UPS shipping and handling 

on orders under SO pounds delivered m ihe continental U S 

shipping charges on items that weigh more than SO 

pounds Foreign, FP0 and AP0 orders please add 15% tor 

shipping California residents add 6% sales tax 

Ihe pnces quoted are only valid tor stock on hand and ail 
prices are suciect to change without notice 



(213)706-0333 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 
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continued from pmg* 18 

Here' 8 how I recycle my ribbon. When 
the cartridge viewing window shows little 
ribbon left, it Is time to recycle. 

Remove the belt drive from the car- 
tridge and pry up the cover. Seven friction- 
fit pins hold the cartridge cover In place. 
Lift the transparent plastic disk from the 
empty supply reel. 

Locate the two pinch rollers. One has a 
heavy spring and one has a light spring. 
Note how and where the pinch rollers fit. 
Then, remove both to permit rewinding. 

To rewind, Insert a ball-point pen tip in a 
hub spoke of the supply reel and use as a 
crank. Ten minutes of rewinding does It 
(just think about the $8 as you rewind). 

Reassemble. Replace the pinch rollers; 
a paper-clip hook may help with the light 
spring. Take up the ribbon slack. Replace 
the transparent disk on the now-full sup- 
ply reel. Press the cartridge cover back on. 
Replace the cartridge drive belt. 



I next tape a label on the cartridge to 
make it easy to see whether an installed 
cartridge is fresh or recycled. 

Michael Meyers 
Montclalr, NJ 

Second Cousins 

There Is an error (technical error, not a 
program bug) In my program "Family Re- 
lationships" published In the August 
Issue. Though my wife has used this pro- 
gram for over two years, the particular er- 
ror never came up, but Colin Durston, 
Mount Sinai, NY found It. 

In lines 1860 and 2040, the third GOTO 
should be 1660 Instead of 1680. As it is, 
the relationship between a fourth and 
third generation is given as "Second 
Cousin Twice Removed" when it should 
be "Second Cousin Once Removed." In 
any event, they are distant cousins, and 



SJJA1D 



continual from ptge 21 

Tabs so that when a CHR$(9) Is sent, 
values in increments of nine are sent. I 
wonder, therefore, If there is any Model 
II user who knows a patch that would 
send pure CHR$(9)'s without any val- 
ues to the printer. Any help would be 
greatly appreciated. 

Rolf Roethlisberger 

34 Rue Daubin 

OH-1203 Geneva 

Switzerland 

Peripheral People 

Can anyone tell me what has hap- 
pened to The Peripheral People, P.O. 
Box 524, Mercer Island, WA 98040? 
Early this year I purchased a Data Dub- 
ber from them. I returned it in April for 
repairs. Since then I have heard 
nothing from them although I have 
written several times and even sent 
one letter certified, return receipt re- 
quested. The return receipt was signed 
but I could not read it well enough to 
determine who signed it. Any informa- 
tion would be appreciated. 

J. Paul Ward 
Route 2, Box 890 
Alton, VA 22920 



Freeing Memory 



In response to David M. McCord's 
letter (80 Aid, August 1981) to free up 
14, 831 bytes on the TRS-80 Color Com- 
puter (16K) try the following: 

POKE 25,6 
NEW 
CLEAR 

This Information is courtesy of Con- 
nection '80 of Woodhaven, NY. 

Joel Holler 

261-14 58th Avenue 

Little Neck, NY 11362 



Bowling Scores 

Our company recently formed a 
bowling league just for fun ... we don't 
know how long it will last, so we're not 
willing to spend a lot on it. Do any of 
your readers have some programs to 
compute bowling statistics on disk 
or tape? 

Dave McQIumphy 

4429 Paula Lane 

Red Bank, TN 37415 



there isn't much harm in it, but I felt you 
should know about the error. At least 
there are people out there not only reading 
the magazine, but analyzing the pro- 
grams! Great! 

Silam Horwitz, FPSA, ARPS 
Lake Mary, FL 



Star Trek 4.0 

We enjoyed your August 'Games' Issue 
very much. 

Star Trek 4.0 is especially well done 
except for the title page. The new lines 
120 and 130 gave us a more acceptable 
title page. 

120 CLS:A1» = - ':B1S- < ♦>':Y2» 791: FORM » 1TO 
100:X2=RND(1023):PRINToX2.\ , ;:NEXTM:PRINT 
0472/STAR TREK';:PRINT0138,'>!< , ;:PRINT#370. 
'♦ ♦ + ';:FORM ■ 1T010:PRINTOY2,A1I;:Y2- Y2-S5: 
PRINT©Y2,B1«;:FORJ1 - 1TO200:NEXTJ1,M:PRINTo 
936,INSTRUCTIONS? <Y/N)\ 

130 AS - INKEYSJFAS - ' Y THENQOSUB34eOELSEIFA$ 
ON THEN130 

Mike Salisbury 
Newport Beach, CA 



Basic XOR 



The designers of the TRS-80 Level II 
Basic were ingenious. They made It very 
flexible. It is suited for beginners and has 
features for us more advanced folks. The 
TRS-80 has three Boolean operators: 
AND, OR and NOT. The XOR operator, 
though not as popular, is sometimes 
needed. Since Basic does not include this, 
I have written a formula using the com- 
mands that Basic does have to XOR any 
two numbers. Instead of: C = A XOR B 
Use: C = NOT(A AND B) AND NOT(NOT A 
AND NOT B). 

Jim Hlckey 
Clearlake, CA 

For. . .Next Loops 

The September 1981 column, "Educa- 
tion 80," by Earl Savage, contains some 
good advice on flowcharting, for educa- 
tors and non-educators alike. However, 
his flowchart of a For . . . Next loop Is inac- 
curate, at least for the TRS-80. His Fig. 2 
shows a flowchart for a For. . . Next loop 
where X varies from 1 to 10. According to 
this chart, X will have the value of 10 after 
coming out of the loop. In actuality, X will 
have a value of 11 since the For. . .Next 
loop increments first and then tests for X 
being out of range. A more accurate flow- 

contlnutd on pag* 28 
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How to maximize 
your Model III : 



You don't have to settle for 
standard equipment. Let MTI 
and Alpha Byte help you build 
the Model III you want. 




EA 



MTI FLOPPY DISK ADD-ON KITS 

Now you can upgrade your I6K level II Model III to 
a lull 48K Disk System the easy way with MTI's 
Double Density Disk Controller and your choice of 
Disk Drives. You can choose 40 track. Double- 
Sided 40 track or Double-Sided 80 track Drives to 
supply your disk storage needs Forty Track 
Drives store I75K. Double-sided 40 Track drives 
store 350K Four Double-Sided 80 Track Drives 
provide up to 3 MEGABYTES of On-Line storage 

INTERNAL OISK DRIVE KITS 

The first drive kit includs one Tandon Disk Drive. 
MTI Double Density Controller. Switching power 
supply, 32K of RAM. all mounting hardware, 
cables and Detailed Installation Instructions The 
second internal drive kit includes a second drive 
and the necessary installation hardware. 



40 TRACK DRIVE SVSTEM 
DRIVE NO I KIT 
DRIVE NO 2 KIT 

40 TRACK DUAL HEAD SVSTEM 
DRIVE NO 1 


695 00 
279 00 

779 00 
389 00 


80 TRACK DUAL MEAD SYSTEM 
DRIVE NO I 
DRIVE NO 2 


929 00 

569 00 



EXTERNAL DRIVE KITS 

Two external drives can be attached to any dual 
drive Model III Computer. 

40 TRACK EXTERNAL DRIVES 
DRIVE NO 3 379 00 

DRIVE NO 4 359 00 

DUAL HEAO 40 TRACK EXTERNAL DRIVES 
DRIVE NO 3 499 00 

DRIVE NO 4 479 00 

DUAL HEAD 80 TRACK EXTERNAL DRIVES 
DRIVE NO 3 679 00 

DRIVE NO 4 659 00 

FIVE MEGABYTE EXTERNAL 

WINCHESTER HARD DRIVE 2795.00 

Add the Ultimate in Fast High Capacity Disk 
Storage to any Model III Floppy Disk system. 
Reliable Winchester technology provides enough 
storage for the largest business files Winchester 
disk drives have greatly increased data transfer 
rates and that means faster program and file 
loading This is a complete self contained system 
that connects to a standard Model III Disk System 
in minutes without any modification to the com- 
puter. 

MODEL III DIAGNOSTIC PROGRAM 49.95 

A complete diagnostic program for the Model III. 
Tests RAM and ROM. video display and all disk 
drives Catch problems while they're small and 
be sure that your Model III is in perfect running 
condition. 




MODEL III CP/M-80 NOW AVAILABLE! 849 00 
CP/M & 80 Column Kit. 

Now you can run proven CP/M based software on 
your Model III. with standard 80 column display 
A simple internal modification will transform your 
Model III into a NEW computer and allow you to 
run CP/M the industry-standard operating system 
and assure you of a large supply of fine software 
Includes CP/M 2.2. 

MODEL III SPEED-UP MOD 149 00 

Now you can run your Model III at 4 MEGAHERTZ, 
that's almost double the standard speed This 
simple-to-install kit does require some soldering 

MODEL III DISK DRIVE CLEANING KIT 24 95 

Uses soft non-abrasive cleaning material and in- 
cludes a disk head excercising program to insure 
thorough cleaning. 

DOSPLUS OPERATING SYSTEMS 
FOR THE MODEL III 

Solid BUG-FREE operating systems for the Model 
III. Supports different size drives on the same 
system and Basic Program Chaining with 
variables saved in memory 

40 TRACK 99 00 

80 TRACK 119.00 

EXPANDED DOSPLUS 3 3 8 149 00 

Read ana Write 40 Track Diskettes on an 80 Track System 
HARD DISK DOSPLUS 299 00 

Supports the MTI 5 MEG HARD DISK 



We built a reputation on our 
prices and your satisfaction. 

We guarantee everything we sell tor 30 days. If anything 
is wrong, just return the item and we'll make il right. 
And. ol course, we'll pay the shipping charges 

We accept Visa and Master Card on all orders COD 
accepted up to $300 00 

Please add $2 00 lor standard UPS shipping and 
handling on orders under 50 pounds, delivered in the 
continental US Call us lor shipping charges on items 
thai weigh more than 50 pounds Foreign. FPO and APO 
orders please add 15% for shipping California res- 
idents add 6% sales lax 



(213)706-0333 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 

^69 



SO INPUT 



80 DEBUg 



Scripsit Patches 



The modification described in my ar- 
ticle "Patching Across" (80 Microcom- 
puting, September 1981) will work with 
DOS 1.1 and DOS 1.3, but it will not 
work with DOS 1.2. Readers who need 
Scripsit on DOS 1.2 can write me for 
the additional patches needed with 
this operating system. 

Radio Shack has been changing the 
convention for setting EOF in the di- 
rectory. My version of Scripsit sets the 
EOF character incorrectly in DOS 1.3. 
Luckily, Scripsit is still able to read 
such files, so no harm is done. For 
cosmetic reasons, it would be best to 
fix this problem. Change 7D47 from CD 
6E 7A to 3A B9 7C, change 7DCD from 
EF 5D to 6C 7A, and change 9A6C from 
00 00 3A B9 7C B7 28 01 05 C9 to E5 CD 
EF 5D 21 BD 7C 35 E1 C9. 

I recommend that all users, regard- 
less of DOS, make two more changes. 
Change 7260 from 21 FF 00 25 7E to 2A 
1 1 44 18 05 and change 8595 from 0000 
to 2D 40. As a result. Scripsit will not 
overwrite programs protected in high 
memory and will return directly to DOS 
rather than rebooting when executing 
the command END. 

Richard Koch 

2740 Washington Street 

Eugene, OR 97405 



LINEINPUT Error 

In reference to my article "Take a 
Letter" which appeared in the August 
1981 issue: Thomas P. Winslow of 
Troutman, NC points out that the pro- 
gram is disk-oriented. Not having a 
disk, he encountered an L2 error on his 
Model III Level II system. 

The problem lies in the LINEINPUT 
statement. This statement will cause 
an error when execution is attempted 
on a non-disk machine. 

The only solution I could offer Mr. 
Winslow was to replace all LINEINPUT 
statements with the more familiar IN- 
PUT statement. The disadvantage is 
that any text lines containing delimiters 



such as commas will have to be en- 
closed using quotation marks. This 
will also prohibit the use of quotation 
marks in the actual text. Failure to 
enclose text with quotation marks 
when commas are used will be met 
with an Extra Ignored message and all 
after the initial comma will be lost. 

My thanks to Mr. Winslow for re- 
minding me to describe my particular 
system in future articles. 

Arthur T. Mullin, Jr. 

2395 Tyler 

Beaumont, TX 77703 



Mode Selection 

My article on the Epson Printer in 
the August issue was written for the 
Model I, Level II TRS-80. Since its 
publication, I have received several let- 
ters and phone calls on how to make 
the Mode Selection Program published 
in the article work with the Model III. 

As many of your readers know the 
Model I utilizes a memory mapped I/O 
to operate a line printer through the ex- 
pansion interface at address 14312 
(37E8H). The Model III doesn't use 
memory mapped I/O for the printer in- 
terface. Instead it uses one of the 256 
ports to operate a line printer, in par- 
ticular port 251 (OFBH). In order to run 
the Mode Selection Program in the 
Model III. all the POKE 14312 com- 
mands should be changed to OUT 251 . 
As an example line 30390 in the Mode 
Selection program would read as 
follows: 

FOR MODEL I: 30390 POKE 14312.15 
FOR MODEL III: 30390 OUT 251.15 

It should be noted that the Model III still 
uses address 14312 to provide printer 
status. 

If all the POKE 14312.XX statements 
are changed to OUT 251 .XX statements, 
the program will work fine in a Model III. 

One other note, somewhere in the re- 
view cycle, the text of the article and the 
program listings got confused. The arti- 
cle states that the examples in Fig. 1 
were made with Program Listing 1 . This 
is incorrect. The examples were run 
from Program Listing 2. The Mode Se- 



lection Program is referred to in the text 
as Program Listing 2, and it is really Pro- 
gram Listing 1. 

A. P. (Tony) Gitt 

11260 Overland #706 
Culver City, CA 90230 



Statistics Corrections 

My article "Vital Statistics" (August 
1981), has a few errors in the figures. 
On page 197, column 1 should read: 



GM = v^T 



is 1 



GM-\ 8-11.11li-12.5-18.5185 



v 20576.1 =11.9768° 



V 160/100 -1 =0.124662 
4„ 



GM = 



v 1.08-1. 11111-1. 125-1. 18519 

On page 198, column 1 should read: 



On page 200. column 1 should read: 



I (x, - x K 

i = 1 

n 



C. Brian Honess 
22 Shaftesbury Lane 
Columbia, SC 29209 



Up and Running 



I enjoyed Lt. Harrell's excellent arti- 
cle and programming presented in the 
July issue of 80. Thanks to that article 
my Tiny Pascal is up and running on 
disk. 

I found two minor bugs when run- 
ning with my 48K system and thought 
other users might be interested in the 
solutions I used. 

The Basic routine. Program Listing 
3. defines AD as an integer which 
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WHY 

TALKING 

ROBOT 

ATTACK 




ALL GAMES: 

16K Level 2. Mod i ♦ Mod 3 Cassette $15 95 

32k Level 2. Mod 1 ♦ Mod 3 Diskette $19 95 

10% discount tor 2 games, 15% tor 3 or more 

VQames may be played with or without loystick. 



IS THE ALPHA JOYSTICK 
SUCH A SUCCESS ? 

A Sofware support like this: 

TALKING 
ROBOT ATTACK 

INCREDIBLE! This amazing game actually TALKS 
without a speech synthesizer, through the cassette 
AUXplug 

You are armed with just a hand held laser In a 
remote section of the space station you encounter 
armed robots, some march towards you. some wait 
around corners Watch out. the walls are electrified 
Zap as many robots as you dare before escaping 
into a new section where more robots await you. 
The struggle continues With Joystick action and 




SCARFMAN 



SUPER NOVA* 

Asteroids Hoal MMM , M«M M 
screen You must aes'-D, M asvod*. 
betore they destroy »ct .Big asteroids 
break into little ones i Your snip will 
respond to thrust rotate hyperspace 
and tire Watch out tor that saucer MM 
me laser' As reviewed in May 1981 Byte 
Magazine 



1 



u 



♦ • * 

a 



GALAXY INVASION 

'ne -^.- r c ol tie • a«on is caiimg you 1 
mvade's have oeen spotted warping 
tov.a-d EMU you shin right and leli as 
you tire your lasers A lew break lorm 
ation and tly straight at you' You place 
,;ei on (he lire Dutton knowing 
shot must connect' Witn sound 
•Neds 1 




VOICE OUTPUT, this game will amaze you 






SCARFMAN 

THE LATEST ARCADE CRAZE now runs on your 

TRS-80 

It's eat or be eaten You control Scarlman around 

the maze, gobbing up everything in your path You 

attempt to eat it all before the monsters devour you 

Difficulty increases as game progresses Excellent 

high speed machine language action game From 

The Cornsoft Group With sound 

CAUTION: Played with the Alpha Joystick. Scarlman 

may become addictive 



ATTACK FORCE 



As your ship appears on the DOtlom ol 
the maze eignt alien ships appear on me 
lop. an traveling directly al you' You 
move loward mem and lire missiles Bui 
the more aliens you destroy me taster 
the remaining ones become II you gel 
too good you musi endure me Hag 
ship Wilhsourtf etiects' 




COSMIC FIGHTER* METEOR MISSION II* 



vour ship comes out ol hyperspace 
under a convoy ol aliens You destroy 
every one But another set appears 
These seem more intelligent You 
eliminate them loo Your tuel supply is 
diminishing You must destroy two more 
sets betore you can dock The space 
Station is now on your scanner Wiin 
sound' 



As you ioo« down on yOur view 
astronauts cry out lor rescue You must 
maneuver through me asteroids & 
meteors (Can you get back 10 the space 
station') Fire lasers to destroy ihe 
asie'oids bui waicn oul there couk) be 
an alien FLAGSHIP lurking includes 
sound effects' 



THE ALPHA JOYSTICK: 
REAL ARCADE ACTION 

■Features the famous ATARI JOYSTICK 
■Works with any Level II or disk system Model i 
■Plugs directly into KB or E/l (next to printer port) 
■Compatible with any other TRS-80 accessories 
■Saves your keyboard 

■Fun to experiment in BASIC Simply use A = INP(O) 
to read the joystick 
■Fully assembled, ready to plug in and use 

Price includes Atari Joystick + Alpha Interlace + 
instructions + demo program The Alpha Joystick 
is backed by an unconditional money back 
guarantee If you are not delighted with it. return it 
within 14 days for a prompt and courteous refund 



ONLY 
,$39.95, 




Toll Free 
Order Line 

(800) 
221-0916 



ADO 1 1. 50 PER ORDER FOR SHIPPING AND HANOlING 

All ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO.. 

COO AOOS? 00 EXTRA 

OUANTITY DISCOUNTS AVAILABLE 

N Y RESIOENTS ADD SALES TAX 
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85-71 79th Street Woodhaven. NY 11421 



(212) 296 5916 



SO INPUT 



80 DEBUg 



continued from page 26 

causes an Overflow in 11 error when 
you are saving a long program. 

The Basic routine, Program Listing 
2, is reserving more memory than a 
system running NEWDOS 80 has to of- 
fer when a full systems disk is loaded. I 
redimensioned A$ in line 2 to 220 lines 
and so far have not overrun memory. I 
might also add that CMD PAS32K sent 
my system into never-never land but 
CMD's = PAS32K' works swell. I sus- 
pect it has something to do with the re- 
locations invoked by NEWDOS under 
the CMD function. 

The correct version of the program 
appears below: 



1 POKE &H40B1.&HEF.POKE &H40B2.4H73. 
CLEAR 500CLS: DEFINT B-Z 

2 PRINT TABfW" TINY ■ PASCAL " FILE 
SAVER" 

3 PRINT 

4 LINE INPUT 'ENTER FILESPEC FOR PASCAL 
FILE: ":F$ 

5 IF F$ = — THEN 4 

6 ON ERROR GOTO 16 

7 OPEN 0".1.F$ ON ERROR GOTO 

8 AD = &H73F0 

9 A$ = "" 

10 J = PEEK(AD): IF J = 255 THEN 15 

11 AD = AD + 1 : IF AO = 32768 THEN AD = AD 

12 IF J = 13 THEN 14 

13 A$ = A$ + CHR$<J):GOTO 10 

14 PRINT#1.A$ PRINT A$: GOTO 9 

15 PRINT#1.CHR$(255);CHRS<255):CL0SE 
POKE&H40B1.&HFF:POKE4H40B2.&HBF 
CLEAR50END 

16 CMD E' RESUME 4 

Lynn Ludwig 

37 Church Street 

Alburtis, PA 1801 1 

Incomplete Listing 

I'm not sure how we did it after the 
careful scrutinizing of my article by 
myself and the staff of 80 Microcom- 
puting. The last eight lines were left off 
my "Video Space Ship Game" (August 
1981 issue). They are included below: 



4460 E = E + 1 

4470 GOSUB 3800 

4472 BLANKS BAM" 

4480 POKE Y.32P0KE Y - 1.32POKE Y - 2,32 

4490 T=0 

4499 RETURN 

10000 IF J>31 THEN J=0 

10010 RESUME NEXT 



I hope that the readers of 80 will for- 
give our oversight. 

Michael A. Duff in 

1507 East Avenue 

Berwyn, Illinois 60402 

Bubble Sort 

The program listing for a bubble sort 
on page 313, Listing 5 (August 1981, 
80 Microcomputing) contains a seri- 
ous error in logic. This sort will not 
work on 11 or more items. To make it 
work properly, the variable EE (swap 
flag) must be moved outside the P 
loop. Line 1210 becomes 1210 EE = : 
FOR P= 1 TO N - D and Line 1230 be- 
comes 1230 J = P. 

This sort is now serving my needs 
nicely. 

John McGugan 

Sunshine Golf Inc. 

13835 S.W. 77th Ave 

Miami, FL 33158 



Lifespan is Longer 

In my program "Lifespan," which 
appears on page 252 of the September 
1981 issue of 80 Microcomputing, the 
last two lines have been omitted. 

These should be added: 

1610 GOTO 40 

1620 "You are very fortunate to still be living!": 
RETURN 

Joseph Wailand 

1343 Millersport Highway 

Williamsville, NY 14221 



Cartoon Fix 



Sorry to inform you that line 900 in 
my TRS-80 Cartoon (September 1981, 
page 320), is wrong. The last statement 
in that line should be a 'RETURN', 
rather than 'GOTO 30'. 



Darren DeVigili 
Wilkes-Barre, PA 



continued Irom page 24 

chart would be as follows: 

i input 



X=1 



' 8 N 


.NO 


— H 






X> 10 


LPRINT X 


J 


. ? / 


1 






1 


X = X+1 






J 



Also in the September issue, on page 48 
("80 Applications"), the captions for Pho- 
tos 6 and 7 are reversed. Photo 6 should be 
labeled "Transistors" and Photo 7, 
"Diodes." 

Marie Matsen 

Microcomputer Lab Coordinator 

Lane Community College 

Eugene, OR 

Hard to Read? 

I must report that I find David Busch's 
"Kitchen Table Software" column, very 
hard to read. 

The reason for the difficulty is that I 
wear glasses, and several times during 
reading the column, I laugh until I cry, my 
glasses steam, my nose runs, and I have 
to stop to grab for a tissue. The Sep- 
tember column was a four tissue column. 

I am still laughing about MEMOLY 
SIZE? And the POKE which either prints a 
capital "A" or clears 4K bytes of memory. 

Ralph Nottingham 
Deerfield Beach, FL 

Bulletin Board 

Please inform your readers about a free 
Computer Bulletin Board in Jacksonville, 
FL. The name of it is the SEB BBS and is 
supported by SEB Computer. The hours 
are: Sun-Wed 6pm-8am, and Thu-Sat 
9pm-8am. The access number is 904-743- 
7050 and the sysop is Sam Bateh. 

Sam Bateh 
SEB Computers 
Jacksonville, FL 



Oops! 



This is in regard to the article "Rename" 
(page 317, August 1981). The author gives 
a rather complicated method of renaming 
disks for NEWDOS owners. 

The article could be replaced by: 
PROT:1 NAME = OOPS 
That is the command in NEWDOS to 
rename the disk on drive one to "Oops." 

William J. Richrath 
Elmhurst, IL 
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THE ALPHA 
I/O SYSTEM 

a complete failure? 

THE INSIDE STORY 



It happened 3 years ago when our President made a decision At me lime we speeded 
in custom analog and digital circuit design 'he decision was to attempt to develop a line oi 
standard interlace hardware tor the emerging microcomputers At the time (19771 we had lo 
decide which ot the new machines could become lie industry standard ol the iow cost 
micros 

Despite a lew aggravating put minor deficiencies the TBS 80 seemed lohave the mosi 
chance ot success and it had the Dest price/pertoimance ratio Also with some imagination 
their large sales organisation could Become the largest service network in the world a reassur 
ing through! lor the mjny novices in this new lieid 

it became clear that the TRS-80 could be used (with our then hypothetical system) to solve 
problems in many lieids where computers were not yet used mostly because ot their high cost 

The IDEA was simple' ALPHA PRODUCT would supply the missing link between the TRS 
80 and the outside world' imore about this outside world ' laten 

Early Survival 

DANGER! 'I Radio Shack entered the same mar«e! we probably would not nave survived but 
the expectation was that they would be too busy developing then basic line (drives printers 
modem etc I Thanks to our more specialised products we would not be competing with them 
BAD START! We began with a failure Our lust prodccl was supposed to be a simple low cost 
general purpose device It would a"ow the TRS-80 to accept inputs olhei than !he keyboard 
Many kinds of e»te<nai devices (the Outside world mentioned before) like photocells 
sensors thermostats, switcnes. contacts etc could be connected easily in addition there 
were two relays to control (on or oil) external loads such as motors tamps appliances 
heaters, etc etc In other words it would allow the computer to interact or interlace with 
external devices We called it Ihe INTERFACER 2 What a mistake 1 it sounded too much llki 
' expansion interlace Many enthusiastic TRS 80 users called thinking thai our INTER 
FACER 2 ' was a low cost Expansion interlace (at $8S that would have been a real bargain' i 
We wanted lo change the contusing name That meant reprinting the manual changing the ad 
snapping the tiyers discarding the silk screened cases Well INTERFACER 2' it would 
stay 

TROUBLE' We aiso found that me matonty of TRS-80 users were AFRAID of ihe hardware They 
could be very comfortable with tancy programming Bui though! you had to be a computet 
specialist or technically inclined to put me INTERFACER 2 lo work in truth some IMAGINA 
TION and a SCREWDRIVER is all you really need Anyone able to wre a switch could use this 
device 

WORSE! 'here was also the tear ol plugging a foreign device into the precious computer 
This notion has ail but disappeared as there are now so many quality products designed lor the 
TRS 80 that plugging in a non Radio Shack device has become common 

Our ad m Creative Computing, (80 Microcomputing did not ye< emsti hardly paid lor itself 




We had a decision lo Tiake Were we wrong or |ust loo early 1 Ou' tirsi INTERFACER 2 was sold 
lo someone who wanted lo and succeeded m controlling his tancy model railroad with his 
TRS-80 interesting. But what -"-ade us stick with Ihe concept was thai some ol our INTER 
FACERS began imdmg use III applications with fascinating possibilities Space is lacking to 
describe them but the most exciting was me successful use of the system in assisting a handi 
capped young boy We were pleased to hear ol such a ^eanmgtui application 



Today 



Three years later as you can see in our aos The INTERFACER 2 is alive and well The 
puce went up a bit and despite the introduction ot the more powerlui INTERFACER 80. me 
sales have been steady 

Then came Ihe least understood product' me ANALOG 80 This $139 nicely designed 
module is an Analog to Digital converter with 8 input channels Used with your TRS-80 it 
provides a powerlui data acquisition system This iargon simply means that you can 
monitor measure and record 8 mdependant varying voltages Very tew people realised us real 
power Such a system would r\avt cosi over ten thousand dollars iust a <ew years ago 

The possibilities in scientific and engineering environments are endless This system 
could replace chart recorders digital data recorders programmable calculators data analysers 
and many other specialised and expensive pieces ot equipment Furthermore up to 8 ANALOG 
80 s could be used simultaneously lor a total ol 64 channels o< analog input' They simply plug 
into the TRS 80 using out X series ol bus extenders (EXPANDABUSi 



The idea was simple. We would supply the 
missing link between the TRS-80 and the 
"outside world" 



Our next product was to be a second generation input 'Output interlace with more 
flexibility than the INTERFACER 2 Careful design and refinement yielded the INTERFACER 80 
the most powerlui real world interface on the market today it has 8 inputs, each optically 
isolated and 8 outputs, each with a relay contact The INTERFACER 80 is fully compatible with 
our ANALOG 80 allowing these to be used together in order lo create systems that control 
external devices based on sensed input under control of the TRS 80 
A FAILURE! in spile ol our extensive advertising, very lew are aware ol the existence ot the 
powerful ALPHA I/O SYSTEM 

The Facts Are: 

The ALPHA SYSTEM/ TRS-80 combination lorms an incredibly versatile and powerlui tool loi 

acquisition- processing/control 

in spite of its moderate cost, the system is sophisticated and reliable 

The entire system can Be easily programmed m BASIC using iNPiXiand OUT X.Y commands 

The modular approach and our EXPANDABUS aHow 'or mstant expansion as requirements 

demand 

■ he following pages contain more information about the devices mentioned here We invite 
you to call or write lo discuss you' particular application 

Device descriptions; NEXT PAGE + 



TIMEDATE 80 



^ 




Neat. Compact Design 
3 Years Battery Life 



Slips Inside E/l 
IY Option Shown) 



Real Time Without 
Expansion Interface 



•Complete sell contained true real time clock /calendar, TiMEOATE 80 continues to keep 

accurate time and date when me computer is turned oil or experiences a power failure 

•TIMEOATE 10 only needs to be set once, and II s two replaceable AAA batteries (not 

included) keep TIMEDATE 80 running in excess ol 3 years Costly Ni Cad Battcies and 

charging circuits are eliminated 

•The instant power is applied to the TRS-80 HMEDATE 80 provides MO/DATE/YR DAY 

ol WEEK HR MlN SEC and AM/PM information with quarts accuracy 

•TIMEDATE 80 replaces me computer s internal clock Extremely uselul tor automatic 

operation ol remote systems with no operator m attendance it me power tails and then is 



WHY LOSE PRECIOUS TIME ? 



restored only TiMEOATE 80 will update Ihe system with current TIME and DATE information 

an impossibility with the computer s internal clock 

•TIMEDATE N M quarts crystal based with INTELLIGENT CALENDAR including provisions 

lor leap year 1 TIME display may be By 12 hour AM/PM or By 24 houi military and Eruopean 

formal. 

•TIMEDATE 80 plugs directly mto the rear ot the TRS-80 keyboard and gives the HMES 

lunction even without an Expansion interlace For those with a d'Sk system it plugs into me 

left side panel of the Expansion interface An optional Y connector can provide for further 

expansion 

•TIMEOATE Mi small sise keeps the computer table uncluttered if you have an Expansion 

interlace. TIMEDATE 80 literally DISAPPEARS ' By slipping into the empty space in the 

bottom of the interlace 

•Two selsol software on cassette come with TiMEDATE 80 TiMESET and TIMES 

TiMESET ' is a step by step set of simple instructions for setting TIMEOATE 80. TIMES' 
is a sei of poke routines which patch DOS and Level II TIMES lo read TIMEDATE 80 and is 
easily incorporated into any user software TIMES win always print me time and dale 
when LISTING a program— great lor keeping track of revisions' 

•Other valuable uses for TiMEDATE 80 are accurate date and time mlormation tor Business 
reports like pay 'on records 'manciai reports elc or to various I/O devices requiring 24 
hour clock input such as laboratory instrumentation and to communication systems 
needing Log in/Log Out data (bulletin Boards i 

•TIMEOATE 80. fully assembled and tested 90 day warranty complete with instructions 
ana software on cassette $95 00 V option add $12 00 



NEW: Computer to Computer ordering: (2 12) 441-3755 (24 hr. data line) 



CALL 




ALPHA 



(212)296-5916 

Products • 



FOR FAST 

SERVICE 



85-71 79th Street. Woodhaven. NY 11421 
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5ft NEWS 

edited by John P. Mello Jr. 



Tandy Picks Arcnet 

Radio Shack and Datapoint join in networking venture 

arge, powerful, personal computer 
networks, impossible until now, may 
provide more bang for the buck than a 



minicomputer soon— at least to users of 
the Tandy Corporation's Model II. 

The Fort Worth, TX firm has announced 
it will use Arcnet— a system of protocols 
and software developed by Datapoint— to 
link Model lis and future Radio Shack 
computers into large scale systems. 

Tandy President John Roach said in a 
statement his firm chose Arcnet for its 
low cost, high speed, simple installation, 
proven reliability and future compatibility. 

Jon Shirley, vice president of computer 
merchandising for Radio Shack, added: 
"In concept and operation, Arcnet is 
similar to Ethernet, but unlike Ethernet, 
Arcnet is based on a proven, reliable 
technique with over four years of field 
operation. 

However, Larry Spellhaug, manager of 
marketing services for Xerox— which, 
with Digital Equipment Corporation and 
Intel, developed Ethernet— said the sys- 
tem has six years of experience behind it. 
He added the corporations involved are 
confident there is a demand for their sys- 
tem. Hewlett-Packard Co. and Nixdorf 
Computer Co. have pledged to use Ether- 
net in their networking communications. 

One business observer maintained the 
use of Arcnet by another company is con- 
sidered a strategic move by Datapoint in 
competing with Ethernet. 

Shirley added, "Today, adding one com- 
puter to an Ethernet system would equal 
five times the cost of the same addition to 
Arcnet." 

According to Roach, Arcnet is built 
from four inexpensive pieces of hardware: 
an interface card, coaxial cable, and two 
types of junction boxes. The interface 
card— produced by Texas Peripherals, a 
joint venture of Tandy and Datapoint 
—costs about $400 and plugs into an ex- 
isting slot in the computer. Thirty feet of 
RG-62 coaxial cable costs $30. A junction 
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FILE PROCESSOR 



Growing with Arcnet. Using a floppy disk-based computer system requires a sizable 
quantity of disks to change programs and store data. By adding a hard disk, a single 
Model II can perform the operations you need without numerous disks. But as a 
business grows, an operator will spend more and more time entering data Into the solo 
unit. Today, another Model II could be added, but the two machines would be unable to 
share the hard disk and printer. By adding the Arcnet interface card converts one com- 
puter to a file processor and the others to application processors. Then your operations 
can be performed on the application processors which share the hard disk file and 
printer. You have doubled your processing ability at a significantly lower cost than add- 
ing another TRS-80 system and without reprogramming. 



box for a four computer network costs 
less than $200; for larger systems, $2,000. 
"Clearly," Roach observed, "this in- 
dicates Tandy's commitment to high 
speed, low cost local networking." 

Tandy said in a statement several Model 
lis combined by Arcnet would provide more 
computing power than is possible with a 
comparably priced minicomputer. 

The capacity of a Model II network 
could be hiked, the company noted, by us- 
ing Tandy's bisynchronous communica- 
tions software package to hook the net- 
work into some main frame computers 
like IBM and DEC. 

Model Ms in a network could ac- 
cess common data bases— accounting, 
word processing, library— and share 
peripherals. 

Shirley said the Arcnet development 
was prompted by requests from the firm's 
large corporate clients. He added the Arc- 
net scheme allows those clients to re- 
place their dumb terminals with smart 
Model lis. 

First delivery of Arcnet, Tandy stated, is 
forecast for the second quarter of 1982. ■ 



Tandy denies 
report on TRS-88 

andy Corporation has vehmently de- 
nied a report it plans to unveil a new 
computer— the TRS-88— before Christmas. 

"That is totally and completely untrue," 
declared Jon Shirley, vice president of 
merchandising for computer products. 
"Everything about it [the report] is 
false. There is not a statement In It 
vaguely true." 

Although when announcing its tie-in 
with Arcnet (See related story on this 
page), Tandy noted "multiple TRS-80 Model 
Ms and future TRS-80 computers" could 
be linked by Arcnet networks, Shirley 
said no new computers would be released 
in 1981. 

Computer Business News reported 
September 14 in a column called "Page 
Two Report:" 

"Industry sources say Radio Shack's 
TRS-88 is due out sometime before Christ- 
mas. The machine is slated to use the In- 
tel Corp. 8088 chip IBM also selected for 
its Personal Computer." ■ 
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MOW/ MODEL I AIMD MODEL III ! 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III /I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95. 
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Toe line in Europe or else! 

Companies breaking law face jail terms and fines 



ail terms and heavy fines await com- 
puter companies that fail to toe the 
line in European countries, some 33 com- 
puter professionals were told at a seminar 
on international product safety standards 
held in Wakefield, MA by R & B Enter- 
prises of Plymouth Meeting, PA. 

One seminar member said his com- 
pany's agent in Switzerland was jailed for 
three days and fined $5,000 for failing to 
label equipment on four occasions. 

The penalties foreign nations levy on 
agents can make them very cautious, 
seminar leader Arnold Millar added. The 
product safety engineer noted his com- 
pany's agent in Britain once received 
notice of a new product for the British 
market and promptly sent corporate head- 
quarters a six-foot Telex containing pro- 
posed modifications which would assure 
the firm's compliance with local law and 
thus save its agent from the slammer. 

Millar, who has tested military and com- 
mercial data processing equipment for 23 
years, said complying with European 
standards can be costly. During one year, 
he revealed, his firm budgeted $120,000 
for tests and fees related to marketing six 
models of machines in the United States, 
Canada and Europe. 

He admitted, however, "This is budget 
information and for money purposes it is 
inflated." 

European authorities frown on manu- 
facturers who fail to accompany their ma- 
chines before testers. "If you don't ac- 
company your equipment," he observed, 
"they don't think you're very interested in 
getting it passed. You can have a hell of a 
time getting it approved." 

Another problem with Europe, he said, 
is every country has different stan- 
dards—even those with ostensibly uni- 
form standards like the Scandinavian 
countries. 

Millar, who is with the U. S.-based 
Research Development Division of Inter- 
national Computers, Ltd., gave the profes- 
sionals tips on expediting the tests of 
their machines by European inspectors. 

When an inspector tests radiation emis- 
sions from a machine's cathode ray tube, 
he noted, the measuring device should 
register to .2 milliroentgens per hour. 
European countries have had the .5 milli- 
roentgens standard for some time, he ex- 
plained, so approving the CRT to .2 can 
provide a hedge against future rule 




changes. 

One seminar member lightened up an 
otherwise form-oriented forum by asking 
Millar to explain "standard test finger." 

The seminar leader said the finger was 
a metal rod shaped like a finger. Testers 
use it to determine if a finger could poke 
the machine in hazardous places. "Let's 
be scientific, right?" he quipped. The 
finger cost $700. ■ 

Major computer 
architect calls it 
quits at Tandy 

major microcomputer architect has 
A\bolted from the Tandy Corporation. 
Steven W. Leininger, 29, said he left Tandy 
"primarily" for creative reasons. "The 
main reason is to strike out on my own," 
he added. 

The Arlington, TX resident said he has 
started a consulting firm and is concen- 
trating on computer hardware develop- 
ment. Manufacturing hardware "may be 
down the road," he observed, if he fails to 
find a firm interested in his ideas. 

Leininger was the architect of the Fort 
Worth, TX, firm's Models I, II and III micro- 
computers and its Color Computer. He 
came to Tandy five years ago from Nation- 
al Semiconductor, Santa Clara, CA.B 



Barry Passen 
starts s'ware 
store and club 

^/ou've heard of the Book of the Month 
Club and the Record of the Month 
Club, right? Now meet Software of the 
Month, the cerebral offspring of Barry J. 
Passen, 39, a former customer services 
marketing manager for Digital Equipment 
Corp. in Merrimack, NH. 

According to the Boston Globe, under 
Passen's plan a member's first software 
purchase— anything from a $29.95 com- 
puter game to a $700 business manage- 
ment program for dentists— is at 33 per- 
cent off and during the first membership 
year, a person must buy two more pack- 
ages at 10 percent to 30 percent off. 

Unlike its book and record counter- 
parts, however, members can try out this 
club's offerings at Passen's Microcon 
Software Center, which he opened last 
month in Watertown, MA. 

Passen told the Globe he intends to 
start up similar shops in New York, Phila- 
delphia, Chicago and Atlanta within the 
next 18 months and eventually to fran- 
chise up to 100 stores.! 
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Survey reveals users' wants 



CBS— A TT ready major test 

Info giants to 
break ground 
in home info 
marketplace 

he American Telephone & Telegraph 

. Co. and CBS Inc. are close to agree- 
ment on a joint venture bringing the two 
firms together for the first time in a major 
test of home computer information tech- 
nology, it was reported by the Washinton 
Post. 

The Post said the venture would be the 
most recent and perhaps most significant 
test of two-way home information systems. 

The venture also could represent a ma- 
jor turning point in AT&T's efforts to test 
home information retrieval systems, a pro- 
gram that ultimately could include types 
of advertising and shopping programs 
brought into the home by the Bell System. 

Harry E. Smith, CBS's vice president for 
technology, told 80 Microcomputing the 
Post story was "essentially correct." 

"We have been negotiating with CBS 
and with other prospective vendors," add- 
ed Pickard Wagner, a spokesperson for 
AT&T in Washington, D.C. 

Using unnamed sources, the Post re- 
ported the two companies are likely to 
test their joint program in New Jersey. 
Other sites being considered include juris- 
dictions served by AT&T in California and 
New York. 

The proposed system would bring CBS' 
news and publishing resources into the 
home via AT&T's telephone network. With 
assets of $125 billion, AT&T is considered 
the world's largest company. With assets 
of $2 billion, CBS is the nation's 94th- 
largest industrial corporation and one of 
its biggest communications concerns. 
AT&T would bring to the venture the 
capacity to carry information, through an 
existing network, to video screens in more 
than 80 percent of the nation's homes. 

In addition to controlling a vast world- 
wide news-gathering network through its 
broadcast holdings, CBS owns a variety of 
"consumer" magazines, such as Wo- 
man's Day and Mechanix Illustrated, part 
of a corporate unit consisting of 60 news- 
stand magazines and six book lines. The 
company also publishes a variety of text- 
books. All this information could be part 
of the two firm's system. ■ 



R More information aimed at business 
users is being offered by a Virginia 
computer data service in light of a survey 
it conducted last spring, according to 
Michael J. Rawl, manager of public rela- 
tions at The Source. 

He explained Source Telecomputing 
Corporation began pumping new busi- 
ness information into its system last 
month in response to a survey of 7,700 of 
its 10,000 users revealing 40 percent of 
them subscribed to the service for busi- 
ness or work reasons. 

According to a statement released by 
the firm— subsidiary of Reader's Digest 
Association Inc.— the most popular elec- 
tronic communication and information 
services for business professionals are re- 
search, electronic mail, business plan- 
ning and forecasting, news and financial 
market monitoring, personal portfolio 
maintenance and home education. 

Rawl explained the broad information 
needs of business professionals induce 
them to access electronic library services 
more than other users. 

In the press release from the McClean, 
VA firm, Vice President A. Martin Clark 
observed: 

"When computers were made easily ac- 
cessible to the individual in the mid-1970s, 
persons employed in the computer field 
were the first to use them, and they 
treated them as a hobby. 

"Now we are seeing a rapid spread of 
practical interest in the benefits of elec- 
tronic, computer-based services among 



business professionals." 

An indication of that, he noted, is The 
Source study— conducted by Staples In- 
formation Inc. of Houston, TX. It showed 
only 27 percent of the service's subscrib- 
ers belong to computer clubs. A year ago, 
he added, 44 percent of the subscribers 
said they belonged to clubs. 

A spokesman for CompuServe, a data 
service in Columbus, OH said that com- 
pany does not know how many of its 
13,000 users access its system for busi- 
ness purposes. That is difficult to deter- 
mine, he explained, because the line be- 
tween business and home use is blurred. ■ 

CompuServe in Canada 

anadian microcomputer enthusiasts 
can now tap into the CompuServe in- 
formation service. Kits to access the Co- 
lumbus, OH, firm's information are sold at 
Radio Shack stores in Canada and Data 
pac telecommunications network distrib- 
utes the service. 

CompuServe offers the latest news 
from major newspapers and the Associ- 
ated Press, corporate stock and commod- 
ities trading information, home banking, 
electronic mail and real time communica- 
tions, computer games, family informa- 
tion and computing power for program- 
ming activities. 

The service, an H&R Block Co., charges 
$5 an hour for access to its information on 
weekday evenings, all day weekends and 
holidays. Canadian subscribers pay an 
additional $12.50 an hour conveyance sur- 
charge charged by Datapac.B 
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neisiers 

indicted 

Brothers and company 
charged with robbing 
$3.5 million to $7 
million in computers 

A rraignments in connection with the 
A^theft of $3.5 million to $7 million 
worth of computers have been handed 
down in Massachusetts. 

The arraignments of two men and a cor- 
poration resulted from a six-month inves- 
tigation by Attorney Gereral Francis X. 
Bellotti, Massachusetts state police and 
First Security Services Corp. of Boston, a 
private firm which investigates white col- 
lar crime. 

Arraigned and charged with conspir- 
acy, larceny and receiving stolen property 
were Arthur S. Greenberg of Gerogetown, 
MA, and his brother, Alan T. Greenberg of 
Peabody, MA, both principals in the Com- 
puter Corral in Peabody. 

The case involves computers allegedly 
stolen from Nixdorf Corp. in Waltham, 
MA, and stored in the Computer Corral, a 
retail computer store. 

In a report published in the Boston 
Globe prior to the indictments, an un- 
named employee of the neighboring store 
said "quite a few trailer loads" of what ap- 
peared to be computer hardware were re- 
moved from the Computer Corral by inves- 
tigators. A spokesperson for Bellotti told 
80 Microcomputing "hundreds of pieces 
of equipment" were recovered by probers. 

When inspected by the Globe, the door 
to the Peabody store was locked. A sign in 
the window said "closed for inventory" 
and a pair of handcuffs hung from the 
door handle inside the store. ■ 





v V 

Bellotti: Nabs computer crooks 

Love spiced by micro 

computer spiced the love life of a ste- 
nographer in the Quebec legislature 
when she accidently went on public rec- 
ord complaining her la vie amoureuse 
was stale. 

During a break in a legislative commit- 
tee hearing, the woman input a letter 
into the legislature's Pro-Plus computer 
system grousing about her love life to 
a friend. 

While printing a neat, clean copy of the 
letter to send to her confidante, she acci- 
dently sent it into the system where it be- 
came part of the day's public record and 
was distributed to all members of the leg- 
islature, their aides and reporters. 

According to United Press Internation- 
al, the woman, believed to be in her mid- 
Ms, was unaware of the error until report- 
ers started calling her. She refused to talk 
with them and hired a lawyer who threat 
ened to sue anyone who published the 
woman's name. 

No disciplinary action is planned 
against the stenographer, 80 Microcom- 
puting was told by the legislature's direc- 
tor of computer services. He said, "We 
think she's been punished enough." ■ 

Cure for micro hunger? 

ungry for microcomputer informa- 
tion? A recent announcement by 
CompuServe might satisfy your appetite. 

The Columbus, OH, computer data ser- 
vice now includes Micro Advisor, a clear- 
inghouse for a wide variety of microcom- 
puting information. 

The new service offers information on 
equipment use and selection, peripherals 
and software, computer clubs, industry 
magazines and publications, and develop- 
ments in the microcomputer industry. ■ 




Quality Percom products are available 
from the following authorized Percom 
retailers. If a retailer is not listed for your 
area, call Percom toll free at 1 800-527- 
1222 for the address of a nearby retailer, 
or to order directly from Percom. 

ARKANSAS 

MICROCOMPUTER SYSTFMS INC Hoi Spnngs (SOI ) 623 5209 

ARIZONA 

SIMUTFK Tucson 1602)886 5880 

CALIFORNIA 

Al PHA BYTE STORFS Calebasas (213)883-8594 

BERKELEY MICROCOMPUTERS Berkeley (4151848 7122 
COMPUTER INFORMATION EXCHANGE 

San Luis Rev 1714)757 4849 

COMPUTER SFRV1CF CFNTER Hollywood 12131 8S1 3434 

DESMAR El ECTRONICS Santa Clara (408) 988 2208 

HOBBYWORID Northndge (213)886 9200 

COLORADO 

MICROCOMPUTER APPLICATIONS 

Denver (3031922 6410 

DISTRICT OF COLUMBIA 
THF PROGRAM STORF Washington (2021 337 4691 

FLORIDA 
FNTRONINC Largo 18131586 5012 

MICROCOMPUTER CONSUl TANTS 

Ormond Beach (904)673 5787 
MICROSYSTEMS SOFTWARE INC 

Hollywood 1305) 983 3390 

GEORGIA 
DAVIS SYSTEMS INC Atlanta (404) 634 2300 

HAWAII 
COMPUTER CENTER Honolulu (8081488 2171 

IDAHO 
OFFICE MAGIC COMPUTERS Borse (208) 376 4613 

ILLINOIS 
GARCIA & ASSOCIATES Chicago (312)782 9750 

KANSAS 
BESCO ELECTRONICS Shawnee (9131268 7633 

CARDENS INC Hutchinson (.316)669 8261 

KENTUCKY 
COMPUTER MAGIC Lo.nsv.lle (5021 893 9XV4 

MASSACHUSETTS 
OMNITEK Tewksbury (61 71 851 4580 

MARYLAND 

DAMASCUS RADIO SHACK Damascus (301)253 2101 

MICHIGAN 

Lansmg (517)487 3358 

MINNESOTA 

F.denPrame (6121934 1826 
MISSOURI 

Vienna (314)422 3353 

Florissant 1.314)838 7755 

NEBRASKA 

Columbus 



ALTERNATE SOURCE 
THE CODE ROOM 



LEMBERGER CO 
SOFTWARE CENTER 



COLUMBUS TV 
CURTRONICS 



Lincoln 



(402)564-5531 
(4021423 7771 



NEW HAMPSHIRE 

HARDSIDF Millord (800)258 1790 

NEW JERSEY 
CHANNEL 1 RADIO SHACK Medford (609)654 7454 

NEW MEXICO 
AUTEL ELECTRONICS Albuquerque (505) 255 64.5 1 

NEVADA 
PCSCOMPUTER Us Vegas (7021870 4138 

NEW YORK 
H & E COMPUTRONICS Spring Valley (914)425 1535 

80 MICRO COMPUTER SERVICES Cohoes (518)235 9007 

MICRO 80 SYSTEMS Brooklyn (212) 748 3236 

STONYCIOVE NewYorkCity (212)3918337 

OHIO 
FELDMAN ENTERPRISES Akron (216) 724 5583 

JFRRYS COMPUTER Cleveland 1216)6416719 

PENNSYLVANIA 
ADVANCED MECHANIZATION Iwtond (215)672 9000 

COMPUTFR ANA1 YSTS New Brighton (412)846 9323 

SUNRISE ELECTRONICS Chamhersburq (717)264-8214 

TENNESSEE 

COMPUTER WORLD INC Nashville (615)255 8330 

TEXAS 
ACCESS UNI IMtTED Richardson 



(800) 527 3475 
(2141690 0206 
1713)488 8022 
(214)484 2976 
1915)577 2931 
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COMPUTFX Webster 

QUA1 rTY SOFTWARE Dallas 

TEXAS COMPUTER SYSTEMS Brady 

UTAH 
MICRO MNFMONICS Sunset (801)298 6809 

WASHINGTON 
COMPUTER SERVICFS Kennewick (509) 582 9759 

WISCONSIN 
BYTE SHOP MILWAUKEE Greenheld (414)2817004 

FINAMORFS Marshheld 1715)384 9610 

FOREIGN DEALERS 
AUSTRALIA 

DICK SMrTH Fl ECTRONICS P O Box 321 North Tyde NSW 21 13 

CANADA 
VALERIOTE AND ASSOC Guelph Ontario (5191824-7041 

DVR El ECTRONICS Surrey BC 1604)576 1045 

MEXICO 
CIBERMATIC S A Mexico (9051 592 3433 

COMPUTADORAS Y ASFSORAMIENTO 

R»Panvcol4 MemcoSDF 
DOMINICAN REPUBLIC 
RADIOSHACK Santo Dommgo 1809)565 9121 




Disk Storage: It's No Place to Compromise. 



A dependable disk system 
means everything to the high- 
performance operation of your 
computer. At Percom, we know 
this. And we do something 
about it. 

For example, the connectors 
on our TFD drive systems are 
gold plated. 

Why? Because solder-plated 
contacts oxidize, forming an in- 
sidious insulation that can 
cause erratic operation. And 
then total failure. 

Gold-plated connectors are 
just one way we make better 
drive systems than the competi- 
tion. 

Now #1 for the Model III 

Quality Percom TFD drives provide more 
features, cost less. Add-on drives start at 
only $439.00. Complete First-Dnve Sys 
terns start at only $749 95 Features 
"Flippy" Capability - Record your 



To order products, or for the name of your 
authonzed Percom retailer, call toll free 
1-800 527-1222 




PERCOM DATA COMPANY. INC 

11220 PAGFMIll RD DALLAS tX 75?dl 
(214) 340 70B1 



" trademark oi Percom Data Company Ini 

trademark <>( Tandy Radm Sha< k Corporation uhiih has no relationship to Pv 



programs and data on either side of a dis- 
kette Greater Storage Capacity - 

Store 180 Kbytes — formatted on one 
side of a 40-track TFD dnve Store over 
twice as much on a TFD 80-track drive 
Think Megabytes — Your TFD dnve 
controller will handle up to four drives 
You can access almost 1.5 million bytes 
of on-line program and data files Either 
Add-in or Add-On — Your TFD First 
Drive System can be either internal 
(add-in) or external (add-on). In either 
case, you get a complete system in 
eluding the disk controller, drive, power 
supplies and disk-operating software 
BASIC Language DOS Included on 
diskette with each First Drive System is 
Percom's OS-80/IH' M . This easy-to-use 
disk operating system loads into 7 Kbytes 
of RAM and then frees the drive for other 
use With OS-80™ programs, you can 
have full, read write interchangeability 
between Model I and Model III diskettes 
Or Model III TRSDOS* TFD 40 
track drives work with Tandy's Model III 
TRSDOS. without modification For 80- 
track operation. TRSDOS can be easily 
modified with diskette patches supplied. 

Still #1 for the Model I 

Besides greater storage capacities, more 
quality control measures and lower pri- 
ces, all Percom Model I drives are rated 
for double-density operation. 

Plug a DOUBLFR '" in your Expansion 
Interface and enjoy the same double- 
density disk storge capacity as Model III 
owners Included with each DOUBLER is 
a TRSDOS compatible double-density 
disk operating system DOUBLEZAP 
programs are available for upgrading oth 
er popular DOSs for DOUBLER opera- 



tion. And our double -density version of 
OS 80'" costs just $49 95 

Of course you don't have to upgrade 
your Model I for double density opera 
tion to use Percom disk drives. But it's 
nice to know you can 

Percom TFD dnves for the TRS-80* 
Model I are available in 40-. 77- and 80- 
track versions, in 1 , 2 and 3-drive con 
figurations Pnces start at $399.00. 

System requirements: Model III TFD dnves work 
with a 16 Kbyte system (min) and Model III BASIC 
The initial dnve must be a first dnve system An op 
honal interconnecting cable is available (or expand 
ing with external dnves #3 and #4 Model I TFD 
dnves work with a 16 Kbyte system (mm) equipped 
with an Expansion Interface, level II BASIC and 
DOS software, and an interconnecting cable Two 
and (our dnve interconnecting cables are available 
(rom Percom 



Yes -I'd like to know more about 
the best for my TRS-80 computer. 
Send me free literature about quality 
Percom products. 

4odel ! : Model ill 

Send to 

PF.RCOM DATA COMPANY. Inc., 8-C 

11220 Pagem.ll Rd Dallas. TX 75243 
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city 


state 


zip 


phone number 
MAIL TODAYI 



Delia Ounpanv 
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EDUCATION 530 



by Earl R. Savage 



"Computers will not solve 
the problems of instruction. . . " 



tntire school districts are marching 
into the computer age. Actually many 
are running as fast as financial limitations 
will permit to get into the business of mak- 
ing every student (and teacher) computer 
literate. 

Not all school systems, however, view 
computers so positively. Some students, 
parents and administrators are dragging 
their schools almost against their wills in- 
to computer consciousness. Other sys- 
tems steadfastly ignore the computer re- 
volution. Such systems progress slowly 
if at all. 

Computers will not determine whether 
a school is good or bad. Computers will 
not solve the problems of instruction, 
schools, students, parents, or a society 
such as ours. 

Where does your school or school dis- 
trict stand vis-a-vis computers? Is prog- 
ress being made, and if so, at what rate? 
What are the impediments to satisfactory 
progress? (Remember the greatest im- 
pediment is not always money.) 

If you are a student, teacher, adminis- 
trator, parent or an interested citizen, 
make it your business to find the answers 
to these and similar questions. Offer your 
support, encouragement or influence, as 
needed, to those responsible for the cur- 
rent status. As one who is knowledgeable 
about computers, you can help. Lets hear 
it for an adult Computer Boosters' club 
along side of the Athletic Boosters' club. 

Isn't Life Ironic 

I have observed recently a school dis- 
trict with at least one TRS-80 in each of its 
schools. They even have a fairly good se- 
lection of software. Unfortunately, the 
personnel familiar with the computers 
have moved on to greener pastures leav- 
ing the machines to do little more than 
collect dust. 

Another district strained its resources 
to acquire a single TRS-80 to be used for 
instructional purposes. An impossible 
number of teachers want to use that lone 
computer, when within 75 miles there is a 
government agency with literally hun- 
dreds of computers, large and small. 

For the want of $3,000 there are 



countless hours wasted by school person- 
nel who struggle to: 

• manually keep journals and ac- 
counts books and write vender books; 

• use a calculator to figure each em- 
ployee's pay, then manually transfer the 
results to records and again to pay checks; 

• laboriously type and retype reports, 
papers and other documents through one, 
two or a dozen revisions; 

• type the same letter over and over to 
different addresses; 

• figure and type monthly and quarter- 
ly financial reports; 

• manually schedule students into 
classes and complete a schedule form for 
each one; 

• keep cafeteria financial, commodity 
and lunch records and complete reports 
of same; 

• make pupil accounting, pupil records, 
report cards, personnel records, inven- 
tories, library lists, transportation records 
and local/state/federal reports, reports 
and more reports. 

The list goes on. 

One cannot help but wonder if it was 
this difficult to sell the bosses typewriters 
so their secretaries could discard their 
quill pens. Well, it's a good fight and I see 
indications that the tide is turning— slowly. 



After Selling The Idea, 
Select The Computer 

From time to time, I am asked for advice 
in the selection of a school (or other) com- 
puter. Here is the list of my words of 
wisdom laid on those who ask and even 
those who don't. 

Terminals vs. Micros 

Surprisingly, there is a strong undercur- 
rent of support for the installation of ter- 
minals hooked to a big computer— their 
own or someone else's. Usually, the two 
fundamental reasons for this support are 
finances and computing capacity. Any re- 
buttal must include both of these points. 

Financially, the terminal proponents 
don't have a prayer. First, add up the hard- 
ware costs: the terminals, time-share 
equipment (depending on the system), the 



computer itself (or the cost of using some- 
one else's) and the leased phone lines. 

Next, add in the installation costs and 
don't forget the supplementary and alter- 
nate locations. 

Finally, throw in the very high cost of 
software or the higher cost of pro- 
gramming software. The end result is that 
a microcomputer costs look good in 
comparison. 

The answer to computing capacity is 
just as simple but harder to relay because 
those who control the purse-strings are 
almost always technologically illiterate. 
Nevertheless, explain as best you can that 
the air defenses of the nation need not be 
controlled through your TRS-80. Teaching 
students requires far less computing cap- 
acity—whatever that is, exactly. In lay- 
man's terms, one-fourth of a 48K machine 
can hold enough to tax the brightest stu- 
dent through a long class period. 

After you have the terminal proponents 
on the ropes, give them a few more 
punches: 

• When the "big" computer breaks 
down (sure they do!), so do all the termi- 
nals and you are out of business for the 
duration. When a micro breaks down, it's 
one down and 19 still going — or you just 
haul out a spare one. 

• Micros require absolutely no installa- 
tion. A table and power are all that's re- 
quired to put them into operation. Not on- 
ly does this affect the cost but it means 
that micros are just as portable as type- 
writers. One or a dozen can be taken to the 
science, math, business or language arts 
classroom whenever instructionally 
desirable. 

• Micro software is available for 
almost every subject field at every grade 
level, pre-school through postgraduate. It 
is being produced by hundreds of sources 
ranging from one-man outfits to some of 
the largest producers of textual and A-V 
instructional materials. 

• Micro software is much less costly 
than that for larger computers. Competi- 
tion among the many producers assures 
that fact. 

Well, that's enough. Who was it 
again that suggested the installation 
of terminals! ■ 
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adventure has gone GOLD! 

AND WE WANT YOU TO CELEBRATE WITH US.* 

I he 12 Scott Adams' Adventures are presented in our Limited Gold Edition. Each tape and disk is ii 
cJivieJually numbered, and guaranteed until July 10th. 2001. Each package contains a certificate of 
authenticity, a registration card and an autographed, (rather interesting) photo of the author. 
The 12 Adventures normally retail for $239.40 individually on tape and $159.80 for 4 triple-pack disks. 

The Limited Gold Edition is yours . . . forever 
^ -^>- for $100.00 tape or di; for value. 

To Order: The Limited Gold Edition is available 

in very limited quantity, from interested Soft 

M ware Retailers Ask your local dealer. If he does 

not have The Limited Gold Edition Then call 

ifornia 

.vi 1 1 reel you to a dealer who doe"- 
Limited Gold Edition Supply Is Limited! 






J^dv«», 






The Limited 
Gold Edition 
is available in 
the following 
different 
configurations. 
• Apple 2 Disk 



package 
• Atan Tape 
Atari Disk 
TRS-80 Tape 

100.00 Each 




In Keepmg with the Adventure. 

$1 000.00 in Gold Coins is hidden within 
Th- Limited Gold Edition Its waiting for you. 





Limited Gold Edition 
ributed exclusively 

6 SO. LA CIENEGA BLVD • INGLEWOOD, 



SO ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



t has often been said that a computer 

installation really begins when the tech- 
nicians leave. Although technicians rarely 
install TRS-80's, this observation is still 
true with a vengeance. The euphoria of 
owning a computer fades, and disillu- 
sionment often sets in when the TRS-80 
does not meet the new owner's high 
expectations. 

To avoid these post-installation blues, 
plan before you install the computer. Per- 
sonal computers are highly dependent on 
the environment in which they will be 
used. This requires a thorough under- 
standing of the tasks to be automated, the 
personnel who will operate the device and 
the physical location of the equipment. 
Unfortunately, little thought is given to 
these factors until the equipment has 
been delivered. 

We accountants can help our clients 
avoid unpleasant installation experi- 
ences. Our help should begin as soon as a 
computer installation is under consid- 
eration. Almost without exception, clients 
are led to expect too much of the micro- 
computer. Experience has shown us that 
the microcomputer can do general ledger, 
accounts payable, billing and receivables 
and word processing but it cannot do all 
these tasks at the same time. In addition, 
all models of the TRS-80 are single user 
devices. 

Even if the micro is not a TRS-80, 
microcomputers are slow by current data 
processing standards. Speed is not a 
problem as long as the process is 
restricted by the speed of an operator 
entering data. However, when many re- 
ports must be printed or a large amount of 
data shuffled the slow speed of the com- 
puter becomes troublesome. Unfortunate- 
ly this fact is rarely obvious when the 
device is demonstrated before delivery. 
Most demonstration programs are run 
with limited size sample data files. When 
the files acquire normal amounts of data, 
processing slows. 

If your business decides to acquire a 
microcomputer we can use our knowl- 
edge of the client and our hands-on experi- 
ence on the TRS-80 to help select limited 
applications for automation. Of course, 
we must satisfy ourselves that the config- 
uration on order can process the transac- 



tion volumes of the applications selected. 
Undercapacity is a frequent problem in a 
new microcomputer installation. 

Computer Placement 

Once your business has selected a tar- 
get application and defined its capacity 
requirements, we must discuss a proper 
environment for the computer. This is 
rarely a simple task. A small business 
micro such as the Model II has noisy fans 
in both the main and the expansion units. 
In addition, the Daisy Wheel II is quite a 
noise generator. All this noise in a previ- 
ously quiet office can be quite distressing. 

The obvious solution, putting the com- 
puter and operator in a separate room, 
may not be a viable alternative. If the 
room is small, the temperature quickly be- 
comes uncomfortable. The computer and 
related peripherals dissipate a good 
amount of heat. Although the computer 
usually handles the heat better than the 
operator, it is advisable to plan for ade- 
quate ventilation (natural or air 
conditioning). 

For a desk top computer, the Model II 
requires a surprisingly substantial 
amount of space. If you do not order the 
system desk, you must find space for the 
disk expansion unit. You must also allo- 
cate space for the printer, printer table 
and paper storage. Cable restrictions limit 
placement variations for these compo- 
nents. Thoughtless placement can ad- 
versely affect the operation of the com- 
puter and its related peripherals. 

The Model II is particularly sensitive in 
this regard. Because of Underwriters 
Laboratory (UL) requirements the expan- 
sion interface has a separate on-off 
switch. For some reason it is placed 
where it can be easily flipped off by acci- 
dent while the computer is in operation. 
Should this occur, system programs and 
files on disk in both the expansion inter- 
face and the main computer could be lost. 
This unfortunate occurence happens fre- 
quently if the expansion unit is in a well 
traveled area. 

Once you have found an appropriate lo- 
cation, you must obtain a reliable source 
of electric power. Unlike the Model I, most 
business micros have some internal filter- 
ing. Despite this, it is good practice to 



"The hardest part 

of installation is 

finding an operator/ 1 



place the computer on as clean a line as 
possible. Put a warning note on the circuit 
breaker protecting the computer's electri- 
cal line. Hopefully this will prevent the 
breaker from being set to an off position 
inadvertently, crashing the program 
running. 

Despite the physical problems associ- 
ated with installing the micro, the hardest 
part of an installation is finding an opera- 
tor. The average small office has a variety 
of clerical and secretarial skills. Unfortu- 
nately, none of these skills are directly 
transferable to the computer. In fact, 
some of the most skilled employees will 
resent and avoid the computer because 
they suspect the new machine will cost 
them their jobs or their skills. 

Management often inadvertently en- 
courages this attitude. Prior to installa- 
tion, some managers make comments 
about the great changes to be made. Em- 
ployees often interpret these comments 
as criticism of their efforts. This reserve 
and apprehension must be dispelled as 
quickly as possible if the installation is to 
be a success. 

In this process, the accountant as an 
outsider can be quite helpful. As a familiar 
presence, the accountant is rarely per- 
ceived as threatening by the staff. They 
know that as soon as the work is complet- 
ed the accountant will leave. Another ma- 
jor advantage is that the accountant is 
outside the pecking order of the office 
staff. As a result, any choice of a can- 
didate for data processing operator by the 
accountant will be rarely viewed as politi- 
cal in nature. 

Installation Guides 

Once the installation of the new com- 
puter system has been depoliticized, the 
system can become a functional part of 
the office. Typically this process includes 
several phases: 

• Debunking computer myths. 

• Establishing the manual procedures 
for acquisition of the computer data, 
storage of disk files and distribution of 
printouts. 

• Installing and testing the target 
system. 

• Infecting the balance of the staff with 
"micro-philia." 
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SANTA'S GONE SOFT 



TRS-80* BUSINESS AND APPLICATIONS 

ORDER NO. PROGRAM NAME PRICE 

0316RD Climate Comp (Disk) 24 95 

0287R Electronic Breadboard (T»p«) 49.95 

0258RD Find II Quick (Disk) 49 95 

0168R Label (Tape) 24 96 

TRS-80* UTILITIES 

OROERNO. PROGRAM NAME PRICE 

0246R Compression Utility Pack (Tap*) 19.95 

0232R The Disassembler (Tape) 9 95 

018ORD Disk Editor (Disk) 

0139RD Disk Scope (Oiak) '9 95 

0231RO DLDIS(Disk) 19 95 

0228R Dynamic Device Drivers (Tape) 19 95 

0199RD Dynamic Device Onvers (Disk) 24 95 

0250B Irv (Tape) 24 95 

0350RD Irv (Disk) 29 95 

0058R Programmer s Converter (Tape) 9 95 

0245R Programmer s Primer (Tape) 9 95 

0133R Renum/Compress (Tape) '4 95 

0230R TLDIStTape) '«9S 

50O3R Ultra Mon (Tape) 24 95 

TRS-80' EDUCATION 

ORDER NO. PROGRAM NAME PRICE 

0136R Beginners Russian (Tape) 

0137R Everyday Russian (Tape) 

0071 RO Geography Explorer USA (Disk) 49 95 

0212RD Russian Disk (Oisk) 24 95 

0127R Surveyor s Apprentice (Tape) 

0214RD Teacher s Aide (Disk) 

0099R Typing Teacher (Tape) 12 95 



TRS-80* GAMES. SIMULATIONS AND ENTERTAINMENT 



OROERNO PROGRAM NAME 

0017R Air F'ight Simulation (Tape) 

0106R Airmail Pilot (Tape) 

0240R Alien Attack Force (Tape) 

0213RO The All Stars (Disk) 

0051R Ball Turret Gunner (Tape) 

0141R Battleground (Tape) 

0223R Cosmic Patrol (Tapel 

0224RD Cosmic Patrol (Disk) 

0237R Danger In O'tMt iTape) 

50O6R Dragonquest (Tape! 

5O07RD Dragonquest (Disk) Model I 

5010R3D Dragonquest (Disk) Model III 

021 BR Dr Chips (Tape) 

0171R Flight Path (Tape) 

02O5RD The Flying Circus (Disk) 

02 1 9R House ol 30 Gables (Tape) 

01S9R jet Fighter Pilot (Tapei 

0378RD Master Reversi (Disk) 

0117R Night Flight (Tapel 

0023R Oil Tycoon (Tape) 

0120R Perfect Pong (Tape) 

0043R Santa Paravia & Fiumaccio (Tape) 

0332R Space Shuttle (Tape) 

0312R Swamp WailTape) 

5012R Temple ol the Sun (Tapel 

5011RD Temple ol the Sun (Disk) Model i 

TRS-80* HOME AND PERSONAL 
ORDER NO. PROGRAM NAME 

0084R Music Master (Tape) 

0151RD QSL Manager (Disk) 



Instant Software 



PRICE 
996 
MB 

995 
34 95 

995 

995 
14.95 
19.95 
14 95 
1595 
2195 
2195 

995 
1495 
39 95 

9 95 
14 95 
29 95 

995 

1495 
995 
14.95 
1495 
1995 
29 95 



PRICE 
9 95 
19 95 



^532 



APPLE* * EDUCATIONAL 
ORDER NO PROGRAM NAME 
0339AD Capitalisation (Diski 

0283AD Russian Disk (Disk) 



PRICE 
34 95 
?4 95 



APPLE" GAMES. SIMULATIONS ft. ENTERTAINMENT 



OROERNO. PROGRAM NAME 

0148A Air Flight Simulation (Tape) 

0161AD Apple Fun (Disk) 

0254AD Or Chips (Oisk) 

0018A Goil(Tape) 

0025A Mimic (Tape) 

0079A On Tycoon (Tape) 

0183AD Paddle Fun (Disk) 

0080A Sahara Warriors (Tape) 

0174A Santa Paravia 4 Fiumaccio (Tape) 

0229AD Santa Paravia & Fiumaccio (Disk) 

0183A Skybombers II (Tape) 

027! AO Skybombers II (Disk) 



PRICE 
995 
19 95 
14 95 
9 95 

g m 

9 95 
19 95 

995 

9 M 
1995 

995 
1995 



APPLE** HOME AND PERSONAL 

OROERNO. PROGRAM NAME PRICE 

0235AD Solai Energy tor the Home (Disk) 34 95 

0242AD Astrology (Disk) '9 95 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

TO ORDER: 

See your local Instant Software dealer 

or call toll-free 1-800-258-5473 Dept. A-65 

In New Hampshire 1-603-924-7296 Dept. A-65 

Mon.-Fn 8O0 am - 4 30 pm EST 
Include 2.50 lor Shipping & Handling. 



Peterborough, N.H. 03458 USA 



A division of Wayne Green Inc. 



■TRS-80 is a trademark ol Radio Shack a division ol Tandy Corporation 
"APPLE Is a trademark ol Apple Computer Inc 



#0 ACCOUNTANT 



• Monitoring the client's installation of 
the second application. 

Although most installation guides start 
with the third phase, we have found that 
the first two phases are usually required. 
It is surprising how much misinformation 
the average person has acquired on the 
subject of computers. By far the most 



functioning, restore the system and ap- 
plication program disks by repeating the 
Format and Backup lesson. 

Phase two, the establishment of pro- 
cedures to control the flow of data and 
storage of disk files, depends largely on 
its application. Word processing may not 
require controls over the flow of data, but 



"By far the most prevalent 

myth is that 
computers are intelligent" 



prevalent myth is that computers are in- 
telligent. It is therefore quite distressing 
when the computer literally follows even 
the dumbest instruction. 

Phase one starts when the computer is 
delivered. The accountant should assem- 
ble the client's staff and present a demon- 
stration of the computer. Following the 
demonstration, the candidate previously 
designated by management should be in- 
structed in front of the other staff mem- 
bers in the proper turn-on protocol. The 
balance of the staff should be advised 
that the candidate is now considered as 
the key employee to handle computer op- 
erations. If any processing is desired, it 
will be the key employee's responsibility 
to turn the computer off and on. 

After the other staff members have 
returned to their tasks, the accountant 
should instruct the candidate in such 
machine utilities as Format and Backup. 
Have blank disks on hand for this lesson. 
During this session make copies of the 
operating system and several application 
program:; To be on the safe side, make 
duplicates to take back to your office. Do 
not attempt to progress beyond Format 
and Backup during the first session. 

When you leave, expect the candidate, 
their friends and management to try out 
the new computer. Chances are that they 
will destroy the sample system disks 
which you helped prepare during the first 
session. They might even destroy the 
main system disks which were the source 
for the backup. You will probably be glad 
you made safety copies to take with you 
at the end of the first session. 

When you return, the candidate will be 
somewhat sadder, but a lot wiser about 
the limitations of floppy disk computers. 
Hopefully, the myth of the infallible com- 
puter will be debunked. After you have 
established that the equipment is still 



it will require controls over disk storage 
and file management. On the other hand, 
if the application replaces data, intensive 
manual processing procedures such as 
billing, new controls on data handling and 
balancing must be designed. 

If the application requires historical 
data, design controls for the data conver- 
sion portion of next phase during phase 
two. This requires that management de- 
cide which portion of the historical data 
base to convert. To illustrate the problems 
involved, consider automation of a gener- 
al ledger. If the client expects to see com- 
parative f inancials on a monthly and year- 
to-date basis, the prior year's monthly 
balances must be obtained and entered 
during system initialization. If a compari- 
son to budget is required, budget data 
must also be entered at this time. If the 
data source does not have the required 
detail, the information must be developed. 
Needless to say, this could require a ma- 
jor effort. 

Data conversion is usually controlled 
by dividing the material to be entered into 
small batches, each with their own control 
totals. It is unreasonable to expect a new, 
untrained operator to enter an enormous 
amount of information without making 
many errors. Small batch control totals 
help localize errors for quick correc- 
tion. The techniques designed for file con- 
version can be adapted to normal pro- 
cessing once the file conversion has been 
completed. 

Fine tune the computer environment 
during phase two. Adjust little irritations 
such as desk height, equipment place- 
ment, noise and heat. If these are inconve- 
nient during phase two they will become 
major problems during phase three. 

By the end of phase two, the accoun- 
tant should have formed an opinion as to 
the suitability of the computer operator 



candidate for the task at hand. If the in- 
dividual selected cannot master com- 
puter usage, it is dangerous to continue. A 
new candidate should be selected and 
portions of phases one and two repeated. 
In the event that management is the com- 
puter operator, it is the accountant's duty 
to point out frankly the dangers of conti- 
nuing. Hopefully, the client can be con- 
vinced to consider another application or 
hire a more suitable computer operator. 

For illustrative purposes, it is helpful to 
divide micro applications into two groups: 
applications which directly replace 
manual processing procedures, such as 
general ledger and billing; and applica- 
tions that have no precise manual analog, 
such as word processing and VisiCalc. 
The problems associated with direct 
replacement applications are most severe 
during phase three. Run these applica- 
tions in parallel with their manual 
equivalents to verify the accuracy of the 
data processed and the validity of the 
reports generated. 

Parallel processing is expensive and 
difficult to achieve if the automated 
system does not exactly resemble the 
manual system it replaces. Therefore it is 
often disregarded. Should this be the 
case, make every effort to prove the ac- 
curacy of the new system by installing in- 
dependent data controls. For best opera- 
tion, locate these outside the system and 
balance them to internal system controls 
at frequent intervals. 

Phase three should last until a com- 
plete cycle of the target system has been 
completed successfully. This can be as 
short as a day or as long as a year. To 
hasten the process shorten the cycle with 
backup data. With this technique, a week 
could be two days. A month could be two 
weeks and a year could be two months. 
The only limitation of this method is the 
time required to develop proof totals verify- 
ing successful completion of each cycle. 

Phase four can proceed concurrently 
with the other phases. As the system in- 
stallation progresses, more employees will 
regard the micro as useful and non-threat- 
ening. They should be encouraged. A 
favorable impression of the micro installa- 
tion will expedite phase five, the installa- 
tion of other applications. Achievement of 
phase five and client micro proficiency is 
the ultimate goal. 

An open question is, "Should the Ac- 
countant provide software development 
support to his client?" We have found 
that packaged software does not always 
meet a client's precise needs. Possible 
solutions will be the subject of a future 
column.! 
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TRS-80- MOD III 46K 

WITH YOUR CHOICE OF MPI DISK 
DRIVES INSTALLED UP TO 4 MEG 
ON LINE STORAGE 



48K MOO Ml with (2) INTFRNAI 4CXU DRIVES 

AS A9DVE EXCEPT WITH (2) INTERNAL 8C* DRIVES 

AS ABOVE EXCEPT WITH (2) INTCPNA. 40/40Wi DRIVES 

AS ABOVE EXCEPT WITH (2) INTERNA. 80/80ttk DRTVES 

RS232 INTERFACE INSTALLED • ADO 

E«i»noi odd on On* Cable 

BSIsdOhk S3O900 B62s^OMOm< 

B91s-8C*k S420OO B9? s-80/flC*k 



moo hi trscos 1 2 Diskette 

MOO ill TRSOOS MANUAL 
MOO in DOSPLUS " 

" tecu«ed la doubte-necw a maed drives 



6 MONTH LEVEL IV PRODUCTS INC. 

LIMITED 32461 SCHOOLCRAFT 

WARRANTY LIVONIA. MICHIGAN 48150 

ON PARTS toll free 800-521-3305 

AND LABOR instate 313-525-62CO 

visa-master card C O D 



S18590O 
S21I90O 
52)49 CO 
S2440OO 
S 890O 
S 2S00 

$445 OO 

S570OO 



514 95 

69fi 

9995 



rvpw 



BW«mW« 




EMMANUEL B GARCIA. JK 
& ASSOCIATES 

203 N WABASH 

CHICAGO, ILLINOIS 60601 

PHONI '3121 782 9750 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 

• Dealer of quality software and hardware— 
we sell only the best, proven items. 

• Sponsor of CHICATRUG— monthly learn- 
ing sessions for TRS-80 users. 

• Publisher of "CHICATRUG News." month- 
ly publication for TRS-80 users. 

■ ■ Send for sample issue ■ ■ 

• Author of "Pensionmaker," the revolution- 
ary defined benefit pension system run- 
ning on the TRS-80 Model I where other 
pension actuaries are using mainframes. 

• Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

See us in Chicago. 

E.B G. & Associates is NOT affiliated with Tandy Corporation or Radio Shack 

'TRS 80 is a trademark o> Tandy Corporation 



ICuTOflM TOul&mE IMil fOB TOE TO! 

"* ^ Will you SCARF your way to 

victory? 




Can you avoid the speedy MONSTERS that 
guard the maze? 

Answers to these questions await the brave, who 
dare to enter the maze where the monsters live. 
SCARFMAN is a new arcade game for the TRS-80' 
by the author of MISSILE ATTACK. Written in 
machine language, SCARFMAN features quality 
GRAPHICS, SOUND, REAL TIME MONSTERS and 
hours of ENJOYMENT. Nine progressive skill 
levels make the game more difficult as you get 
better. SCARFMAN is compatible with Alpha 
Product's joystick. 
Do you have what it takes to reach skill level 9? 

ORDER NOW! 



The Cornsoft Group ^ 

6008 N. Keystone Ave., Indianapolis, IN 46220 (317) 257-3227 
Model I & III tape — 16.95 Model I disk — 20.95 Model III disk — 20.95 

Prices include shipping and handling 
Checks, Money Orders, VISA and MASTER CARD accepted. 

( TRS-80 i» a Tandy Corporation trademark) 



^ Saa U$l ol Advertisers on page 418 
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News From 

KITCHEN TABLE SOFTWARE, INC. 



by David Busch 
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itchen Table Inc. (KTI)— Americans 
l\ leading fictitious supplier of space 
age computer products has launched a 
national computer network called 
Hollerith 'Asynchronous Realtime Ex- 
ecutive Network (Harenet), named after 
the anonymous founder of KTI, Scott 
Nolan Hollerith. 

Harenet works with almost any micro 
with an RS-232C interface and 300 baud 
modem. However, some early models of 
KTI's TLS-8E computer can't be tied to the 
network due to an oversight The Sri 
Lankan designers of the micro thought 
KTI specified a cereal instead of serial 
interface. 

Harenet was introduced to the industry 
at a press conference attended by one 
reporter. I suspect this was a case of 
"once burned, twice shy." At the last KTI 
press conference, several journalists suf- 
fered radiation burns when a TLS-8E color 
monitor converted itself into an X-ray 
machine without warning. 

On hand to introduce Harenet was a KTI 
spokesperson who asked to remain anon- 
ymous. (It was KTI's president, the reclu- 
sive Hollerith.) 

The host computer for Harenet was a 
massive bank of 100 TLS-8E Model II com- 
puters tied to more than 600 telephone 
lines. I feel this alternative to a costly 
IBM main frame is a stroke of genius, al- 
though it operates on the 240 volt 50 cycle 
current used in some European countries 
and only 160 volt 60 cycle is used in the 
United States. 



However, the KTI spokesperson (you 
know who) pointed out the cost of 100 
Model lis is about 50 percent of one IBM 
370/158— even when you include the cost 
of running an extension cord to France to 
obtain 240 volt 50 cycle power. 

Tying into Harenet is simple. Load 
a dumb terminal, intelligent terminal 
or other communication to match your 
IQ, connect the modem to the phone sys- 
tem, call Western Union and ask for 
Operator 80. 

When the operator connects you to 
Harenet, one of the following messages 
will appear: All Ports Busy, Host Not 
Available, Host Down, Circuits Busy, 
Dropped by Host System, or Try Again in 
Five Minutes. You can safely ignore these. 
The KTI spokesperson explained the sig- 
nals are camouflage designed to fool high 
school kids attempting to obtain illegal 
access to the system. Legitimate users 
can proceed by typing "Bug Off!" and 
their access code. 

"Harenet is cheaper- 
even including 
the extension cord 
to France. " 

Currently, KTI charges $5 per hour of 
hook-up time billed in increments of a mi- 
crosecond. Solvent users can charge their 
payments on their credit cards. Others 
can pay by the hour by slipping quarters 
into a slot on the front of the TLS-8E. A 
uniformed attendant stops by once a 
month to retrieve the accrued payments. 

Harenet offers many programs to 
users. My first choice was CB Simula- 
tor. Computerdom has always attracted 
lots of riff-raff originally involved with 
amateur radio. (If you don't believe me, 
take a look at two popular magazines: 73 
Magazine and 80 Microcomputing. See 
the connection?) 

Just as CB radio provided an audience 
for dummies too dimwitted to copy code 
at five words per minute, Harenet's CB 
simulator brings computerists a similar 
outlet. This should be very popular among 
persons barred from the airwaves be- 



cause they lacked the intelligence to fill 
out the Federal Communication Commis- 
sion's free license application. 

To run CB Simulator, enter your Hare- 
net user ID number and password and 
type R.CB. The CRT clears, then is com- 
pletely filled with requests from other 
users for the correct time. 

In flipping through the CB Simulator's 
channels, I found several dominated by 10 
year-old kids and found myself wondering 
what sort of person pays $5 an hour to use 
a $2,000 computer as the world's most ex- 
pensive CB set. 

Another note on the simulator: Users 
with early TLS-8Es (the ones with gener- 
ous radio frequency output) can bypass 
Harenet and still use the CB program. 
Download CB/CMD from Harenet and run 
it. Any personal computer owner or televi- 
sion viewer within three miles will receive 
your transmissions with no difficulty. 

A handy item is the Harenet's national 
bulletin board, BULLBOARD. As soon as 
KTI implements a way to retrieve these 
notes, this feature has all the makings of a 
first-class electronic mail system. 

FEEDBACK allows KTI to tell Harenet 
users what the company thinks of them. 

A variety of games are available to 
Harenet users. There is a fine computer 
version of Bocce Ball and a game called 
High Stakes Hangman where if the com- 
puter wins, it destroys the directories on 
your disks. 

I also liked Time-Share Simulator, 
which simulates a session with a large 
time-sharing computer. The user can sim- 
ulate performing tasks on the big Harenet 
system. It's quite realistic. In fact, KTI 
charges the user an additional $5 an hour 
to play this game. 

Harenet also offers a number of utility 
programs like a very good text editor 
called Binary File Generator (BILGE) and 
EXPLAIN/CMD, which provides logical ex- 
cuses for more than 300 hazardous do- 
mestic situations. 

Many more features of Harenet can be 
found in a handy guide to the system titled 
"Handy Guide on How to Use Harenet." 
This tome is available directly from KTI for 
$27.95 or on the "Manager's Special" 
table at your local computer store at a 
slightly lower price. ■ 
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Just 55 hours ago, 5.3 million pounds of thrust from two solid fuel boosters sent the 
Space Shuttle Columbia into orbit Now, on-board computers performing 325,000 
separate operations every second will help guide the Columbia safely and gracefully 
home to Earth. 

Instant Software's SPACE SHUTTLE puts you in the command pilot's chair of America's 
first reusable space vehicle. And, until commercial space flight becomes a reality, this is 
the closest you'll get to the Ultimate Flight. 
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THE EXCLUSIVE ORACLE 



by Dennis Kitsz 



Q: A minor Assembly-language problem— I think. Shown is a 
short Basic program to determine how many divisors (2 to given 
integer - 1) divide evenly into a given dividend. 

10DEFINT I N: K = 

20 INPUT DIVIDEND (UNDER 32768) ;N 

30 FOR I ■ 2 TO N - 1 : IF N/1 = INT(N/I) THEN K ■ K + 1 

40 NEXT I . CLS PRINT "K = ;K : GOTO 10 

From this Basic program I developed the Assembly-language 
coding. The divide algorithm comes from Bill Barden's book 
TRS-80 Assembly Language Programming, page 143. 

The Assembly-language works with integers 100 (64), 555 
(022B), 999 (03E7), 1000 (03E8), 3000 (0BB8), but not with 2000 
(07D0), nor 4000, 5000, 6000, 10000. 

I have been told that a rounding off error might affect results. 
In the listing the dividend is loaded into HL and the answer is 
held in C. 

Dan Belemecidi 
Jamestown, CA 95327 



A: Dan, I have modified your code to run from Level II Basic pro- 
gram level (with a USR call), commented the lines, and added the 
mnemonics. Otherwise, it functions the same as the program 
you sent me in hex notation. Furthermore, I've put the original 
Basic program back-to-back with this one to test it. Readers who 
want to test the routines are reminded not to input a value greater 
than 32767 (which will result in an OV ERROR) or less than 3 
(which will hang up the machine-language routine). 

What results did I receive? Matching ones. Why? Dan didn't 
tell me if his Basic program produced correct results, nor what 
the incorrect results were, but hand calculation showed that 
some of the results he claimed to be wrong were reported 
correctly. 

Readers may wonder why this question was included if there 
was no problem with the program. First of all, it's an interesting 
program; but more important, it points up a problem most pro- 
grammers face. When something isn't working, you have to look 
in the right place. Dan Belemecidi concluded his original pro- 
gram with JP 4380H. I don't know what the program at 4380H was 
supposed to do, but I suspect the problem lay with transferring or 
displaying the results. The machine-language program shown 
here could be optimized for time and memory space, but it 
does work. 



1$ POKE 16526, • ■ POKE 16527,74 ■ REM FOB DISK DEFUSR»-*H4AM 
2$ INPUT 'VALUE TO CHECK FOR DIVISORS' |X i REP. GET A DIVIDEND 
3» Y - USR(X) i REN FOR DISK Y • USM(X)| USR ROUTINE SETS Y 
*» PRINT 'NUMBER OF DIVISORS IS')Y i REM PRINT VALUE RET'D 
5i PRINT 'NOW RUNNING BASIC PROGRAM ... PLEASE STAND BY' 
(,$ DEFINT I-N : K-» i REM ELIMINATE ROUDING ERRORS IN BASIC 
It N - X < REM USE SAMr "ALUE OF X AS USED IN BASIC ROUTINE 
81 FOR 1 - 2 TO N-l t ' 'I - INT(N/I) THEN K - K ♦ 1 

91 NEXT I i PRINT'NUMB P DIVISORS IS';K : GOTO 21 



Program Listing 1. 



"The protected software dilemma 

is becoming more 

and more common. " 





1 SETUP 


DIVIDEND, DIVISOR, COUNTER, AND SAVE DIVIDEND 




CD7FJA 


CALL 


«A7FH 


1 HL HAS DIVIDEND VALUE 


4A«3 


E5 


PUSH 


HL 


1 READY TO TRANSFER DIV'D 




DDE1 


POP 


IX 


; TRANSFER TO INDEX REG. 




11I2M 


IB 


DE.MI2 


; 1ST INTEGER DIVISOR 


4 At 9 


• Eft 


10 


C,M 


1 SET COUNTER TO ZERO 




I ACCOMPLISH DIVISION BY 


SUCCESSIVE SUBTRACTION 


4AIB 


B7 


OR 


A 


1 RESET CARRY FLAG (SBC) 


4AIC 


EDS2 


SBC 


KL.DE 


1 1ST SUCCESSIVE SUBT'N. 


4AIE 


FA144A 


JP 


M.4A14 


1 DONE IP NEGATIVE RESULT 


4 All 


C3SB4A 


JP 


4A0B 


; ELSE SUBTRACT AGAIN 


4A14 


19 


ADD 


HL,DE 


; ADD, RESTORE POSITIVE 




1 TEST 


IP EVEN 


DIVISION (RESULT IS EXACTLY ZERO) 




MM 


LD 


A,»f 


1 SET ACCUMULATOR TO ZERO 


4A17 


84 


ADD 


A,H 


1 TEST DIVIDEND HIGH BYTE 


4A18 


C2224A 


JP 


NZ.4A22 


1 ir NOT ZERO, THEN GO 


4A1B 


3EIC 


LD 


A,M 


; ELSE RESTORE A TO ZERO 


4A1D 


(5 


ADD 


A,L 


» GET DIVIDEND LOW BYTE 


4A1E 


C2224A 


JP 


NZ.4A22 


1 IP NOT ZERO, THEN GO 




1 INCREMENT COUNTER ONLY 


IF EXACTLY ZERO RESULT 


4A21 


•C 


INC 


C 


) INCREMENT COUNTER 




; RESTORE ORIGINAL DIVIDEND, TEST IF PROCESS IS 




» COMPLETE (DIVISOR-DIVIDEND) , REPEAT IF NOT DONE 




DDE5 


PUSH 


IX 


; READY TO TRANSFER BACK 


4A24 


El 


POP 


HL 


; ORIC. VALUE AGAIN IN HL 


4A25 


13 


INC 


DE 


1 GET NEXT DIVISOR READY 


4A26 


B7 


OR 


A 


; RESET CARRY FLAG (SBC) 




ED52 


SBC 


HL.DE 


r AND BEGIN SUBTRACTION 


4A29 


CA324A 


JP 


Z.4A32 


1 JUMP OCT IP NOT ZERO 


4A2C 


DDE 5 


PUSH 


XI 


1 READY TO TRANSFER BACK 


4A2E 


u 


POP 


HL 


1 ORIGINAL VALUE IS BACK 


4A2F 


C3BB4A 


JP 


4AIB 


I DO IT ALL AGAIN 




I TRANSFER COUNTER TO HL 


RETURN TO BASIC WITH RESULT 


4A32 


KM 


LD 


B,M 


; SET HIGH XPER BYTE TO ■ 


4 A3 4 


C5 


PUSH 


BC 


,- LOW BYTE HAS THE ANSWER 


4A35 


■1 


POP 


HL 


I TRANSFER TO HL FOR RET. 


4A36 


C39ASA 


JP 


■A9AH 


; BACK TO BASIC W/ RE8ULT 






Program Listing 2. 



Q: My problem is protected tapes, such as the Sublogic FS-1 
Flight Simulator program, which take control over from the 
ROM and then load and execute the main program. My desire 
is to load these things on my Exatron Stringy-Floppy. I am using 
an RSM-2 monitor to look at the machine language, but it's about 
impossible to tell where the execution point is. I don't know 
enough about machine language to decipher the preloaders, 
either. They might work after I load the machine code from my 
Stringy if I knew the execution point. Do you know where I could 
find some info about the System loading routines? Also, how is it 
that with some programs, if I hit the Reset button the computer 
locks up somewhere and can't be reset to Basic or anything? My 
Electric Pencil does this, and others. Is this a hardware problem 
or a software quirk? I thought Reset was supposed to reset 
everything and return to the Basic prompt, but it doesn't always 
work. Is there some vector in RAM (reserved RAM) that gets 
changed by the programs? 

Michael A. Czuhajewski 
APO New York 

A: The protected software dilemma is becoming more and 
more common. Software companies are undecided: Some offer 
totally unprotected software and encourage backup copying, 
whereas others lock their software and throw away the key. Sub- 
logic's loader, however, can be broken. First of all you will need to 
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write a Model I leader reader 



XORA 


; DRIVE ZERO 


CALL0212H 


; DRIVE ON 


CALL0296H 


; FIND LEADER 


LDHL.7A00H 


; STORE AREA 


LOOP CALL0235H 


, READ A BYTE 


LD(HL),A 


; STORE BYTE 


INC HL 


; INC STORAGE 


JPLOOP 


; ENDLESS LOOP 



Put an AM radio next to the computer so you can hear when the 
pause in data occurs. That's the end of the loader. Reset the com- 
puter, and use your monitor to examine locations 7A00 and for- 
ward. Print out a copy, and start taking it apart; all the informa- 
tion is there. Here's a hint: The FS-1 program itself is stored on 
tape with an ever-changing offset value being added to each 
byte. Also, the delay from preloader to program is important— so 
important that the program won't even load if your recorder runs 
more than about five percent fast. 

The short routine above will help you crack most tape-based 
preloaders so that you can get them on your Stringy-Floppy. 
You'll still have to do some machine-language footwork, but at 
least you'll have a leader you can disassemble. For detailed infor- 
mation on the System loading routines, refer to my article 
"Through the Ins and Outs of Tape" in The Alternate Source, 1:6 
(now sold as a bound issue including the six issues of Volume 1). 

Q: Many days back I installed the upper/lowercase mod 
published in the March 1980 issue of 80 Microcomputing. Every- 
thing went fine, even though I have those high-rise a's. But then 
along comes Scripsit, and it does not work. Scripsit is really the 
only time I have use for lowercase. You mentioned writing to the 
original authors for a modification update, so this I did— twice. 
But alas I have heard nothing. Perhaps other readers have had 
the same luck. Could you furnish the necessary changes that will 
allow upper/lowercase with Scripsit? 

Peter Ashley 
Portland, ME 

A: Okay, Peter, get out the soldering iron. You'll need just one 
2102 memory chip (Radio Shack sells them, part #276-2501), and 
a few bits of wire. Read from the top left on the chip, down, and 
around, and find pins 11 and 12. Bend these upward. Piggyback 
the chip on Z45, 46, 47, 48, 61, 62 or 63— any one of these will do. 
All the pins except 11 and 12 will be soldered to the chip below. 
Do it very carefully, because there are lots of tiny circuit traces 
running around that area. If you've done the March 1980 mod, 
you probably already have one of these memory chips soldered 
in place. 

Next turn to Z25 on board the computer. It contains four OR 
gates, the last of which is not used. Remove as much solder as 
you can from pins 11, 12 and 13 (use solder wicking braid, Radio 
Shack #64-2090). Take an Exacto knife and cut pins 12 and 13 free 
from each other and from the ground lead which connects to pin 7. 

Find the circuit trace running from 260 pin 4 to Z30 pin 13. It's 
tricky to locate, so use an ohmmeter if you need to. Cut it. (Make 
sure it's not the one that goes from Z60 pin to Z27 pin 13.) Again, 
you probably have done this if you've made any earlier lower- 
case mod. 

Connect: Z60 pin 5 to Z25 pin 13, Z30 pin 13 to Z25 pin 12, Z25 
pin 11 to the new memory chip pin 11, and Z60 pin 4 to the new 
memory chip in pin 12. The modification is complete and switch- 
less; it should work with Scripsit, Electric Pencil or most any 
other lowercase driver routine. 

Q: I've owned a Bally Arcade Home Computer for approximate- 
ly four years now, and one week ago I purchased a TRS-80 Model 
I Level I from a friend. A little under two years ago, I bought eight 



4116s to expand my Bally, but learned the Basic with that 
machine ignored anything above 4K, which brings me to the first 
question. 

I've never seen an article on putting in your own 16K chips. Can 
you either tell me how to, or where I can write to find out, without 
buying more 4116s (at the time I paid $10 per Id). 

I don't like Level I Basic and want to have Level II. The problem 
is, I can't see paying Radio Shack to install it when I can quite 
easily. So where can I purchase Level II ROMs? I've read an arti- 
cle where a man built his own computer using Radio Shack 
ROMs but bought them from an outside source. 

I recall reading about a keybounce problem from time to time. 
But I keep whatever articles I think I'll need and throw away the 
rest— never planning to buy an 80. How do I hardwire in a de- 
bounce circuit? 

P.S. How could I put in Level II while keeping Level I? 

Alvln C. Pruitt 
Pasadena 

A: Welcome to the TRS-80, Alvin. Just when I think there aren't 
any more beginners on the Model I, a passel of letters comes in 
the mailbox. So here goes. 

Upgrading to 16K and Level II at the same time is easy. Your 
Level II ROM set might come in several versions. The "old" set 
from Radio Shack used an outboard circuit card and a connector 
cable; the newer set contains only two ICs which fit right into the 
sockets. As far as I know, Radio Shack is the only source for a 
complete, compatible chip set. There is a three-chip set built into 
the PMC-80, but Personal Micro Computers sells these only as a 
replacement part, and without the satellite board necessary for 
the TRS-80. LNW Research also offers Level II Basic, but as a six- 
chip set using 2716 erasable memories. Likewise, it is not im- 
mediately compatible with the TRS-80's innards. (Readers who 
know of other legal sources can forward information to me, and 
I'll send it along to Alvin.) 

Now let's get started. Find Z3 and Z71, which are shorting bars 
(shunts) used for selecting ROM and RAM memory. You'll need a 
new set of these, a pair of eight-position DIP switches, or if you 
just can't wait you can use ordinary staples inserted in the 
sockets. Tape them down so they don't fall out and short out 
other circuits. 

Your new Z71 should read (from the top): shorted, broken, 
shorted, broken, shorted, broken, broken, broken. All eight bars 
of your new Z3 for the three-chip ROM set should be shorted 
across; for the two-chip ROM set, break the topmost bar. 

Now remove the 4K RAMs; these are socketed and numbered 
Z14-Z20. Save them in aluminum foil and give them to a friend. 
Lift the new 41 16 RAMs by the ends and insert them in the sock- 
ets in the same direction as the ones removed. Press carefully 
but firmly until they are in place, making sure no leads squeeze 
underneath or out the sides of the sockets. The 16K RAM 
upgrade is finished. 

To insert the two-chip ROM set, merely remove the Level I 
ROMs from their sockets (Z33 and Z34), and replace them with 
the new ones, ROM A in socket Z33 and ROM B in socket Z34. For 
the three-chip satellite board, remove the Level I ROMs, plug in 
the cable to either socket Z33 or Z34 (with the cable arrow to the 
top left), and fasten the satellite board down with double- 
face tape. 

Four (or six) wires remain from the satellite board. The yellow 
wire goes to A1 1 (Z51 pin 6 or Z37 pin 6), the red wire to A12 (Z51 
pin 10 or Z21 pin 13), the orange wire to A13 (Z21 pin 3), the green 
wire to ROM* (Z74 pin 9). The white and black wires (which you 
may or may not have) go to power: white to + 5V at any IC (say, 
Z25 pin 14) and black to ground pin 7 of the same IC. The Level II 
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Even if you have one of the other versions on the market, 
you'll still consider this program a MUST for your collection. 
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upgrade is complete. Power on should be MEMORY SIZE? or 
MEM SIZE?, and after pressing Enter, a PRINT MEM will reveal 
15572 (three-chip set) or 15570 (two-chip set). 

Because there were more than 30 "standard" Model I TRS-80's 
made or updated, if you upgrade in two steps, or if you have an 
"A" board (silk-screened 1700069A), you'll need more help. Refer 
to the TRS-80 Technical Reference Manual (Cat #26-2103) and to 
my book, The Custom TRS-80. To add Level I and II, turn to "Appli- 
cations," 80 Microcomputing, September 1980. 

Finally, unless you are hardware-mad, don't think about a 
hardwired fix for keyboard debounce. The options are a software 
debounce routine such as Radio Shack's KBFIX, or purchase of 
the Hall-effect keyboard upgrade (the "ALPS" keyboard) sold by 
Radio Shack. You can keep it very clean, too, lifting the keycaps 
and cleaning with compressed air on a regular basis. 

Q: Help me! Something is wrong with my Mod I, and nobody 
can tell me what it is. I have a 16K keyboard with the Programma 
80 Graf ix board installed, a 32K expansion interface, one 40-track 
Vista V-80 disk drive, an Epson MX-80 printer, RS-232 card and 
modem, a voice synthesizer and a Vox-Box. The cable between 
my keyboard and expansion interface was homemade and is two 
feet long. (I thought I might as well tell you everything —just in 
case). These are my problems: 

• Frequent crashing, mostly Basic programs. I have almost no 
problem with machine-language programs, except getting them 
to load, as I will explain. 

• False Syntax, Undefined Line Number and Next Without For 
errors are very popular. Listing the offending line number will 



AMAZING PROGRAM SPEEDS UP BASIC 

Your time is valuable, so why wast* it on slow-running 
BASIC programs? PROFSOFTs TASTER" will analyse those 
programs whilm they run. then show you a simple change 
(usually on* now lino) that can reduce run- time* by up to 50% . 

Accounting systems, financial models, engineering and 
scientific programs all run faster; so do games. Largo, complex 
programs improve the most, and 'TASTER" is easy to use. 

THIS ISN'T A COMPILER! Your BASIC programs remain read- 
able and can be changed later on. While your programs run. 
TASTER" counts how often each variable" is used, then shows 
you the correct sequence for these variables. Afterwards, the 
computer finds them sooner, so your programs run faster. 

Does it really work? Yesl Personal Computing said so in their 
May, 1961 issue (p. 116); we've received many letters from custo- 
mers who've gotten 20-50% improvements; and we will make 
you this offer: 

Order TASTER" now. Try it on your bread-and-butter pro- 
grams. If you don't get an overall run-time reduction oi at least 
20% , return it within 30 days for a prompt and cheerful refund. 

TASTER" costs only $29.95 and runs on TRS-80 Models I and 
m, 16-46K. tape or disk. 

CALL MOW TOLL-FREE FOB ORDERS ONLY: 

(800) 824-7888, Oper . 422 

Calif: (800) 852-7777, Oper. 422 

Alaska; Hawaii: (800) 824-7919, Oper. 422 

For technicai in/ormatjon, write or call us directly: 
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P.B. 839 / No. Hollywood. Ca. 91603 / (213) 764-3131 

Ch*ck. M/C. VISA ok. Add J2.00 lor COD. 6". talos lax in California, and $6.00 lor 
ihlpmonl ouUid* North Amorica. 



mostly reveal a perfectly good line, but every so often the line will 
be screwed up. 

• Things worsen drastically when a device such as the voice 
synthesizer or Vox-Box are hooked up and on, although the prob- 
lems are not eliminated when these are removed. A Basic pro- 
gram will run for no longer than 10 seconds without crashing. 

• Here's another sequence: 

A. Power up. MEM = 48338, correct. 

B. Execute DOS, run a program, Reset with Break. 
MEM = 15627. 

C. Reset again. MEM = 15879. 

D. Reset again. MEM = 16224. 

E. Reset again. MEM = 15424. 

F. Reset again. MEM = 18687. 

G. Reset again. Only "R/S L2 BA" appears, and the initial- 
ization doesn't finish. 

• I can still PEEK and POKE into the memory it says I don't 
have. If I were to try to execute a program in DOS that loads into 
the top 32K after one of the unnatural memory sizes, I would get a 
Tried to Load Read Only Memory DOS error. What does the pro- 
gram loader do that POKE or LD doesn't? The only way I can 
regain control over the computer is by a power-down. 

I've done all the testing I could, and I've run memory 
tests— and this is what happened. I ran one test and all memory 
was fine. I ran it again and found a bad byte in my top 16K. I ran 
the test again and found another bad byte before the old one. 
When the test ran over the byte with the old error it checked out 
fine. I then removed my top 16K hoping that I would have 16K less 
memory with no problems. I was wrong— everything was 
the same. 

I have three different types of RAMs, 400 nS, 200 nS, and 150 
nS. I have been told that this causes no problems at the normal 
TRS-80 clock speed. Before my problems started I was using my 
system for months without any difficulties. I have also cleaned 
my contacts. 

To me this sounds like a memory problem, but I'm convinced 
that it's not the memory itself but something controlling it. I have 
the new models of the keyboard and the expansion interface. 
Could it be a problem with the bus in the expansion interface that 
makes the whole system susceptible to noise? 

Michael Robin 
New York City 



A: You've got the universal weary system blues. With a fully ex- 
panded Model I, problems are almost inevitable. I've not had a 
chance to look inside the Vox-Box, but the mailbox has been 
filled with letters telling me that problems started when the Vox- 
Box was attached. But there are other things. The Programma 
board increases the noise inside the keyboard unit dramatically, 
and its method of attaching (pressure fitting on top of existing 
ICs) is suspect. If you're in love with the Programma board, then 
lightly solder its connections in place; otherwise, take the 
headers off one by one and clean them thoroughly with contact 
cleaner, or remove the board entirely. That will get you started 
toward eliminating those program crashes. 

Next, shorten the cable to the expansion box. This cable is a 
distinct source of electronic noise to start with, and the cable 
provided with the TRS-80 is shielded to help cut down that noise. 
If you must have a long cable, contact a supplier of Belden cable 
and invest in the shielded type, or at the very least obtain 
Spectra-Twist communication style multiconductor cable (sold 
by such surplus outlets as BNF Enterprises and Poly Paks). 

The Vox-Box would probably work better connected directly to 
the keyboard unit. Exatron and Alpha Products both sell cables 
with several connectors; place one of these between your cable 
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and the expansion interface, and connect the Vox-Box there. 

The above suggestions take care of potential system noise 
first. But your analysis of the symptoms is probably correct: The 
memory crashing problems are likely related to insufficient ac- 
cess time to the memories themselves. This has very little to do 
with the memory speed and a lot to do with total propagation 
time along the length of the system. When your DOS discovers 
any block of memory which does not report back the same infor- 
mation it was just given, it assumes that it is trying to load a pro- 
gram into ROM; hence the message you received. POKE/PEEK 
programs seem to work because you probably haven't encoun- 
tered the random memory select problems the fast, constant 
DOS writing process does. And most machine-language pro- 
grams will work if they don't depend heavily on writing to high 
memory; reading is lots easier. 

Since Basic keeps its operating parameters (the "Basic 
stack") in high memory, it is constantly writing into it information 
about the line being processed, error conditions, subroutine 
returns, and For. . . Next loops. Any change while the program is 
running will look like an error to Basic, and so perfectly good 
lines will be presented as incorrect. 

There is a solution that has worked in virtually every case. The 
change is something I've published before, but is such a lifesaver 
I'll mention it again. Open the keyboard unit and find Z69. Locate 
the circuit trace running from pin 5 (it runs back underneath Z69). 
Cut that trace. Jumper pins 10 and 12 of Z69 with a short piece of 
wire. That modification will advance the memory select circuitry 
enough to take care of aging memory or buffer circuits and make 
that memory reliable again. 

Q: My computer hangs up during disk access. I use LDOS. I 
tried Shift/Break to restart the drive, but it doesn't work. I also 
contacted the manufacturer and they said I must have a problem 
with my system. Help! 

Over 20 Readers 
Everywhere, U.S.A. 

A: Shift/Break is supposed to work, but there is a partial hard- 
ware solution. The disk drives are held in an "on" condition by a 
capacitor which can suffer from aging, especially in the earlier 
expansion interfaces. Replacing this capacitor with a larger 
value will not only overcome the aging, but also keep the disk 
drive on longer and avoid the "silent death" problem that 
Shift/Break was meant to overcome, but doesn't always seem to. 

In the expansion interface, find C48 (C62 in the newer expan- 
sion boxes and C12 in the LNW expansion). This is currently a 
33mF electrolytic capacitor. Obtain a 47 or 68 mF, 16-volt, bead 
tantalum electrolytic capacitor. These are expensive (respective- 
ly $3.73 and $4.72 each from Digi-Key, Hiway 32 South, P.O. Box 
877, Thief River Falls, MN 56701 —part numbers P2042 or P2043), 
but will wear well in the system. Note the polarity of the capacitor 
already in the expansion box and insert the new capacitor in the 
same direction. Your problems should be solved. 



Desperate? Address your questions about TRS-80 Model I 
(including LNW-80, Its System Expansion, and PMC-80), and 
TRS-80 Color Computer to Dennis Kltsz, Roxbury, Vermont 
05669. By the way, I cannot usually answer questions about 
specific commercial software or hardware unless It comes 
under the category of "standard" (e.g., Electric Pencil, 
NEWDOS, Editor/Assembler, Stringy-Floppy, etc.) Please con- 
tact the manufacturers.! 



*■ S— List oi Advertisers on page 418 



Programs and 
Books For Beginners 

Everything you need to know to get started 
programming your own computer. Nine brand-new 
books, each jam-packed with easy to-understand info 
for beginners, laymen, novices, general consumers 
who want to know how to make a computer work for 
them. Good for advanced novices and programmers 
too. These handy manuals, guides and program 
sourcebooks are crammed with hundreds of tips, 
tricks, secrets, insights, shortcuts and techniques, 
plus hundreds of tested, ready-to-run programs. 

Color & Pocket 

TRS-80 Color Computer. TRS-80 Pocket Computer. 
Sharp PC 1 211 Pocket Computer. Three of the most- 
popular computers for beginners. Among our 9 freshly- 
written books are scores of programs, tips, tricks and 
learn by doing instructions for beginners. 

BASIC- language 

BASIC Made Easy, easiest way yet to learn the 
worlds most popular computer language, 
140 pages. $8.95 

Universal BASIC Coding Form, programming 
worksheets make writing software a breeze, 
40-sheet pad. $2.95 

Pocket Computer 

50 Programs in BASIC for the Home, School & Of- 
fice— 2nd Edition, useful plug-in-and-run software, 
for the Pocket Computer, 96 pages. $9.95 

50 MORE Programs in BASIC for the Home, School & 
Office, sourcebook of tested ready-to-run software, 
for the Pocket Computer. 96 pages. $9.95 

101 Pocket Computer Programming Tips & Tricks, 
secrets, shortcuts, techniques from a master pro- 
grammer, 128 pages. $7.95 
Murder In The Mansion and Other Computer Adven- 
tures— 2nd Edition, murder mystery, space, 
adventures, loads of fun, 24 programs, 
96 pages $6.95 
Pocket Computer Programming Made Easy, new fast- 
and-easy way to make the worlds smallest computer 
work for you, 140 pages $8.95 
Pocket-BASIC Coding Form, programming 
worksheets make writing pocket computer software 
easy and fun. 40-sheet pad. $2.95 

Color Computer 

101 Color Computer Programming Tips & Tricks, 
learn-by-doing instructions, techniques, shortcuts, 
insights. 12 8pages. $7.95 

55 Color Computer Programs for the Home, School & 
Office, practical ready-to-run software with graphics, 
96 pages. $9.95 

55 MORE Color Computer Programs for the Home, 
School & Office, sourcebook of useful plug-in-and- 
run software with graphics. 96 pages $9.95 

Order direct from this ad. Send check or money order. 
Include $1 shipping for each item ordered. Or write 
for our free catalog. Mail orders to: 

ARCsoft Publishers 

Post Office Box 132 L 
Woodsboro, Maryland 21798 

telephone (301) 663-4444 
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Tired of typing in all 
your programs? 

Save time 
and money! 




D 



LOAD 80 



ALL THE 

MAJOR PROGRAM 
LISTINGS FROM 
80 MICROCOMPUTING 
ON CASSETTE 

EACH MONTH 

$9.95 

plus $1 00 ea postage & handling 



SAVE HOURS OF 
TYPING & AGGRAVATION 



"Frankly, after hundreds of hours of frustration, I 
seldom ever try to keyboard a published program. 
Inevitably, I mess it up when I keyboard it. Who needs the 
aggravation? 
"This is why I started a new series of cassettes called 
LOAD-80 Each cassette will have program dumps of the 
listings in an issue of 80 Microcomputing. These listings 
are direct from the authors and tested by the 80 
Microcomputing staff. All but the very short program 
listings will be on the LOAD-80 cassettes. Thus, you will be 
able to save hours of inputting programs and even more of 
debugging your keyboard errors." 



Wayne Green 

Publish*! M Microcomputing 




The LOAD-80 cassette is simply the program listings 
that appear in the articles in 80 Microcomputing. It was 
created to save you the time involved in typing the listings 
yourself. Successful loading of the programs depends on 
reading the documentation in the articles. If you have your 
current magazine at hand when you load the cassette, you 
should have no difficulty. If you still have problems, please 
return the tape for replacement. 

LOAD-80 began with the April 1981 issue. To order back 
issues, look for the back issue advertisement in this 
magazine or ask your local dealer. 

To order LOAD-80, fill in the attached card and we will 
send you your LOAD-80 cassette for the major programs in 
this issue. If the card is missing, fill in the coupon below (a 
photocopy is acceptable) and mail to: LOAD-80, 80 Pine 
Street, Peterborough, NH 03458. 



YES, I want December LOAD-80 

lJ Check/Money Order ($9.95 plus $1 .00 ea. p&h)^ MasterCard Lj VISA D Am. Ex. 



12/81 



Name: 



Address:. 



City: 



State: 



Zip:. 



Signature: 



Card# 



Exp. Date: 



LOAD-80 is manufactured Dy Inslanl Software, a division ol WAYNE GREEN INC 80 Pine Street Peterborough. NH 03458 Tnere is no warranty 
expressed or implied that LOAD 80 will do anything other than save you I , 



SOFT BITS 

a basic/assembly column 



by Roger Fuller 



This column is dedicated to those who 
have read the books but still can- 
not write assembly or machine language 
programs. 

Before I got a TRS-80 my only contact 
with a computer was in my college Fortran 
class. I bought my computer to individu- 
alize a math class for low ability students. 
Since there was little software in this area 
I was forced to write some myself. But 
somehow the initial thrust was diverted 
from teaching with to teaching about 
computers. I slowly replaced my remedial 
classes with computer math classes. 
Here I applied the skills developed in 
teaching the low ability student to teach- 
ing the beginning computer programmer. 

At first I tried the classical methods 
with which I was taught. They did not work 
as well as I wished so I tried other tech- 
niques. I settled on a combination of inter- 
active lecture-demonstration and labora- 
tory assignment. My approach was to 
develop problem solving skills by teach- 
ing Basic programming as a craft rather 
than as a language. This is much slower 
but gives the student a firm foundation in 
"right thinking." I found no cases of foun- 
dation collapse as sometimes occur when 
a student just stores knowledge with no 
skill in using it. 

I teach a machine language class for 
the Dallas TRS-80 Users Group. Over the 
years the many people in it have given me 
a great deal of insight in the problems of 
learning machine and assembly program- 
ming. The most common refrain has been, 
"I have read all the books but I still can't 
do anything." The reason is lack of "right 
thinking" and proper equipment. In this 
column I will attempt to correct these 
problems. 

If you already know Basic you may have 
problems learning assembly and machine 
language. Trying to relate assembly and 
machine language to Basic causes confu- 
sion. Compounding this problem is the 
distinction between machine language 
and assembly language. The crushing 
blow is the absence of an equivalent to 
the command mode in Basic. 

To understand complex ideas you must 
reduce them to simple ideas or compare 
them to known concepts and principles. 



This holds true even for a genius. The 
following analogies could be a Rosetta 
Stone for you: 

• Basic keywords are to a Basic pro- 
gram what machine language instruction 
bytes are to a block of memory. 

• Basic line numbers are to a Basic 
program what memory addresses are to a 
machine language program. 

These analogies are imperfect. But you 
must understand the above to achieve 
"right thinking." You can conclude from 
the above that a machine language pro- 
gram is a block of memory and machine 
language is memory byte oriented. To 
drive home this point, let's investigate the 
TRS-80's memory. Although we know our 



"This is slower 
but provides 
a firm foundation. 



programs are stored in memory, not every- 
one is sure of where or how. Basic's PEEK 
function lets you examine memory con- 
tents. Type this into your computer and 
run it: 

10 ADDRESS = 

20 PRINT PEEK (ADDRESS) 

What did you see on the screen? That 
number represents the contents of the 
first memory location. Let us improve on 
the program to examine the first 10 ad- 
dresses. 

10 FOR ADDRESS = to 10 
20 PRINT PEEK (ADDRESS); 
30 NEXT 

How many numbers are displayed on 
the screen? We used a loop to count from 
through 10, for a total of eleven. Always 
be careful in determining counts because 
a mistake can be disastrous. 

Notice that this program displays only 
numbers on the screen. Use the next pro- 
gram to make a more thorough investiga- 
tion. What conclusions can you draw from 
what you saw? I am most interested in the 



lowest and highest numbers you found. 
Are these the only possible values for 
lowest and highest? Why were there no 
big numbers or negative ones? 

'0 ADDRESS = 

20 BYTE = PEEK (ADDRESS) 

30 LOW = BYTE 

40 HIGH = BYTE 

50 FOR ADDRESS -1 to 12288 

60 BYTE = PEEK (ADDRESS) 

70 IF BYTE<LOW THEN LOW ■ BYTE 

80 IF BYTE>HlGH THEN HIGH -BYTE 

90 PRINT BYTE. 

100 NEXT ADDRESS PRINT 

110 PRINT LOW= ' LOW 

120 PRINT HIGH = HIGH 

The answers lie in the very nature of the 
TRS-80's RAM chips. We use numbers 
easily, but have you every stopped to think 
what they truly are? A number is an idea 
we understand best when counting. But 
just as a picture of a person is not the per- 
son, a symbol for a number is not the num- 
ber itself. We know both the Roman nu- 
meral V and the Arabic numeral 5 repre- 
sent the number five, and so the numerals 
on the screen represent only the contents 
of the appropriate memory location. If 
numbers represent only the contents of a 
memory location, just what are the con- 
tents? They are patterns of electrical 
charges. 

Numbers are an easy way of describing 
these patterns. These numbers are why 
your computer is called a digital comput- 
er. But the patterns are made up of 
charges. To diagram these patterns we 
need only two symbols: a symbol for 
charge present and a symbol for charge 
not present. By tradition the symbols 
chosen for this job are 1 and respectively. 

Let's use some paper and pencil to 
make a short experiment. Write all the 
possible combinations of four 1's and 0's. 
(You should find sixteen different arrange- 
ments.) Now, suppose you had five boxes 
instead of four. Is there a way of determin- 
ing the correct number of patterns without 
trial and error? There is. Consider that the 
fifth box could contain a followed by the 
sixteen arrangements in the other four, or 
a 1 followed by sixteen arrangements in 
the other four. This makes 32 possible ar- 
rangements of 1's and 0's in five boxes. 
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Six boxes would produce a 1 with 32 
arrangements and a with 32 arrange- 
ments or a total of 64 arrangements. What 
would be the number of arrangements in 
eight boxes? 

The resulting number of arrangements 
in eight boxes almost matches the high- 
est number you found by PEEKIng into the 
memory addresses of your machine. Can 
you explain the difference? Remember 3? 
If we count the lowest number found and 
all the others, the total is a perfect match. 

But which of those 256 patterns 
matches which of those 256 numbers? 
The eight boxes in your experiment match 
the eight bits in a byte. "Bit" is a word 
coined from the first letter of "binary" and 
the last two letters of "digit." "Byte" 
describes eight bits just as dozen de- 
scribes 12 of something. Each of those 
boxes in your experiment could represent 
a bit's position in a byte. We could put the 
boxes in order by numbering them. But 
should we number left to right or right 
to left? 

If the first digit of a number is 3, can you 
pronounce the number without knowing 
the other digits? No, since the number 
could be "three something" or "thirty 
something." We must examine a number 
from right to left in order to read it. This 
idea provides us with the location to begin 
numbering bits. But shall we start with 
one or with zero? This question is funda- 
mental to any counting done with a 
computer. 

Let's discover whether we start count- 
ing with a zero or one. Place a few coins 
before you. Now count them. Easy, isn't 
it? Remove all except the last coin and 
then do your counting. Now remove the 
last coin and count. You could count the 
coins even when none remained. That is 
because you started counting at zero, not 
one. The boxes, therefore, shall be num- 
bered right to left starting at zero. 



16 8 

Fig. 2. 



Look at the diagram in Fig. 1 and burn it 
into your mind's eye. How many boxes are 
there? Don't forget box 0. You should have 
answered "eight." With the boxes num- 
bered correctly, we could place ones and 
zeroes in them to make 256 different 
patterns. 

A confusing practice in the computer 
field is calling bit positions bits. Which is 
meant is not always clear to the inexper- 
ienced. This problem is compounded by 
the close relationship of bit (binary digit) 
and bit position. Draw a byte box (eight bit 
positions) and number each position, and 
we will clear things up a bit. 

Look at the byte box you have drawn 
and tell how many bits (binary digits) are 
in it. The answer, of course, is none 
because you must actually write a 1 or a 
to have a digit in each position. So in your 
byte box you could have 1, or nothing in 
each bit position. A RAM chip is a collec- 
tion of electronic byte boxes in which 
each bit location is either charged or not 
charged with voltage. Since each location 
is either charged or not charged (repre- 



sented by 1 or 0) it is not possible to repre- 
sent nothing in a bit location. For this rea- 
son, bit and bit position are inseparable 
when discussing a computer's memory. A 
bit then can describe a binary digit (value 
1 or 0) or a particular position in a byte 
such as bit 7 or both. 

Still unanswered is which of those 256 
bit patterns represent which of those 256 
numbers. This requires a short review of 
our decimal numeration system. Numera- 
tion refers to how we use numerals to 
represent numbers. Numerals are sym- 
bols whereas numbers are ideas universal 
in concept and abstract in essence. Dif- 
ferent numerals (the Roman numeral V 
and the Arabic numeral 5) can represent 
the same number. 

The decimal numeration system uses 
our familiar numerals through 9 to repre- 
sent the numbers zero through nine. 
Numbers larger than nine may be repre- 
sented by the ingenious place value de- 
vice. Each position in a decimal numerat- 
ed number is a power of ten. For this 
reason the decimal system is called a 
base ten system. The first place is the 
units place, or 10 to the power. The sec- 
ond place is the tens place, or 10 to the 
first power, and so on. 

By placing the correct numeral in the 
correct position, we can represent any 
number. The binary or base 2 system uses 
the same concept of place value. 

Another byte box labeled with the 
powers of 2 and their values is shown in 
Fig. 2. As you can see, each bit (binary 
digit) can stand for the value of the ap- 
propriate power of 2. If all eight bits were 
zeroes, the total value of the byte would be 
zero. If all bits except bit seven were 
zeroes, the value would be 128. If all bits 
except bit were zeroes, the value would 
be 1 . What would the value of the byte be if 
all bits were ones? This answers the 
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"which pattern matches which number" 
mystery. I suggest you construct a chart 
showing the bit patterns and decimal 
values of numbers through 15. 

The above exercise is but a nibble on 
the next idea. Four bits are a nibble. Two 
nibbles make a byte, so we can represent 
our byte box as two nibble boxes. This 
new system is based on nibbles and has 
some new numerals or digits added to the 
usual through 9. Recall that a nibble (four 
bits) can represent the decimal numbers 
through 15, or a total of 16 numbers. We 
need more numerals or symbols for the 
extra six numbers in this system. The 
decimal number 10 is two numerals long 
and uses place value. We cannot use one 
place value system inside of another 
place value system. We will use the first 
six letters of the alphabet: A,B,C,D,E,F. 

This new system of six more than our 
normal ten digits is called hexadecimal. It 
is a base 16, or nibble-based numeration 
system. Remember, numbers will be the 
same whether represented in binary, deci- 
mal or hexadecimal notation. For example: 

BINARY DECIMAL HEXADECIMAL 
1011 = 11 = B 

I have labeled each column to identify 
which number system I used, but there are 
other ways to designate which base a nu- 
meration system uses. One way is to write 
the base as a subscript after the number: 
1011,= 1, = B„. We shall use one- 
letter suffixes such as: 101 1 B = 1 1 = 0BH 

Equipment 

I highly recommend the following 
equipment: TASMON from the Alternate 
Source and Microsoft Basic Decoded & 
Other Mysteries by IJG Computer Ser- 
vices. I expect everyone who is serious 
about learning machine and assembly 
language to have them or their equiva- 
lents. This concludes the first installment 
of "right thinking." In future columns I will 
expand on these and other concepts. 

The Listing is a short program of the 
type this column will be presenting. If you 
have written a machine code routine of 80 
or less bytes I encourage you to submit it 
to me care of this magazine. Please en- 
close a signed release making it public do- 
main software with no restrictions, for I 
will not knowingly publish anyone's copy- 
righted code. 

The code works in Level II or Model III 
Basic whether DOS or not. The purpose is 
to disable those keys which will mess 
up your Input statements, such as the 
Clear key and shifted back arrow. Call- 
ing this subroutine enables or disables 
the keys.B 
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I BOUGHT IT 

My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BASIC 
is spent 
inserting 
my diskette." 

SCOTT ADAMS ■ PRES OF ADVENTURE INTL 



Reduce your programming time significantly with Snappware's EXTENDED 
BASIC. The program is written entirely in machine language for super fast 
execution and is fully integrated into the TRSDOS* BASIC interpreter, re- 
quiring no user memory. Here are just some of the ways EXTENDED 
BASIC can make your programming task easier: 

• Quick way to recover BASIC program following a New, System 
or Accidental re-boot. 

• Single character abbreviations for the most frequently used 
commands. 

• Six single key stroke commands to list the first, last, previous, 
next or current program line. Even edit current line. 

• A powerful cross-reference facility with output to display 
and/or printer. 

• Ability to trace a variable through the code. 

• Determine easily if a variable is in use. 

• Permits programmer to display and/or print the value of any or all 
program variables. 

• Identifies the variable type for all variables. 

• Lists each element of any array separately. 

• Program line renumbering facilities allowing for specification of 
an upper limit of the block of lines to be renumbered, relocation 
of renumbered blocks of code and duplication of blocks of code. 

• Cross reference facility for key words and character strings including 
global replacement of key works. 

• Compresses your BASIC program to an absolute minimum by remov- 
ing extraneous information. 

• Merge lines. 

• Deletes statements that could not be executed. 

If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 



•TRSDOS™ Tandy Corporation 






MODEL II . 
MODEL III 



$200.00 
$12500 



•:•.:*• .:• :■:•:: •":': 



:' ■ :- ■ 



J:: •:=::; Hi!:::::: 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell 
Cinti., Ohio 45236 
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^APPLICATIONS 

^^ *mP K\# Ronnie Kitc-7 



by Dennis Kitsz 



'Amaze your friends 

with your talent 

for obscurity." 



jolly merry 

hollyberry 

jollyberry 

bellymerry 

hollyheppy 

jollyMolly 

marryJerry 

merryHarry 

hoppyBarry 

heppyJarry 

boppyheppy 

berryjorry 

jorry jolly 

moppyjelly 

Mollymerry 

Jerryjolly 

bellyboppy 



merryholly 

happyjolly 

jollyjelly 

jellybelly 

jorryhoppy 

hollymoppy 

Barrymerry 

Jarryhappy 

happyboppy 

boppyjolly 

jollymerry 

merrymerry 

merry merry 

merryChris 

ammerryasa 

Chrismerry 

asMERRYCHR 

YSANTHEMUM 



"The Computer's First Christmas Card," 
by Edwin Morgan. From Since Feeling is 
First, James Mecklenburger and Garry 
Simmons, eds. New York: Scott Foresman 
& Co.. 1971. Reprinted by permission. 

What? You forgot to order your per- 
sonalized greeting cards tor the 
holidays? And it's already December, and 
the Postal Service is clamoring for you to 
mail them right now! Well, you've got a 
computer. And chances are, you've been 
looking for the opportunity to tell your oc- 
casional friends, distant relatives, and 
former classmates about it. right? So 
here's your chance. . .the Holiday Junk 
Mail Poetry Generating System — 
HJMPGS! It writes poems just like 
HJMPGS is pronounced. 

Flexible vocabulary can expand to over 
2,000 words on a 48K system. Virtually 
every poem is unique, and the program fol- 
lows such minimal rules of syntax that it 
sounds poetic even if it means absolutely 
nothing. Amaze your friends with your 
talent for obscurity. And if you thought 
Interlude was entertaining, include an 
"adult" vocabulary— your TRS-80 will em- 
barrass you with its frank but disinter- 
ested results. 

Originally this program was called 
"Rando's Poetic License" and was run in 
reduced form on a 4K Level II machine. It 
was included as part of a multimedia/ 
dance presentation called Festive Occa- 



Program Listing. Rando's Poetic License 

^0 CLS * REM **************************************************** 

20 

30 

40 

50 

60 

70 

80 



REM * RANDO'S POETIC LICENSE was first presented in a 
REM * different form at the Washington Project for the 
REM * Arts, Washington, D.C., in late October, 1978. 
REM * It was part of a multimedia/dance performance with 
REM * David Gunn, Dennis Kitsz, and Michele Pecora. 
REM *************************************************** 
REM 



90 DIMK$(50) ,L$(50) ,M$(80) ,NS(60) ,O$(60) ,Q$(40) ,R$(40) ,U$(40) 

100 X*l : REM * The ARTICLE group is read into memory below: 

110 READK$(X) :IFK$(X)«'KKKKKK"THEN120ELSEX=X+1:GOTO110 

120 Kl-X-ltX-1 : REM * The ADJECTIVE group is read into memory: 

130 READL$(X) :IFL$(X)-"LLLLLL'THBN140ELSEX=X+1:GOTO130 

140 L1»X-1:X»1 : REM * The NOON group is read into memory: 

150 READM$(X) :IFM$(X)-"MMMMMM"THEN160ELSEX=X+1:GOTO150 

160 M1-X-1:X«1 : REM * The ADVERB group is read into memory: 

170 READNS(X) :IFN$(X)»"NNNNNN"THEN180ELSEX=X+1:GOTO170 

180 N1«X-1:X=1 : REM * The VERB group is read into memory: 

190 READ0$(X) :IFO${X)*"OOOOOO ,, THEN200ELSEX=X+1:GOTO190 

200 01-X-1:X-1 : REM * The CONJUNCTION group is read to memory: 

210 READQ$(X) :IFQ$(X)-"QQQQQQ"THEN220ELSEX-X+1:GOTO210 

220 Q1-X-1:X=1 : REM * The PREPOSITION group is read to memory: 

230 READR$(X) : IFR$ (X) ="RRRRRR"THEN240ELSEX=X+1 :GOTO230 

240 R1«X-1:X-1 : REM * The EJACULATION group is read to memory: 

250 READU$(X) :IFU$(X) «"UUUUUU"THEN260ELSEX-X+1:GOTO250 

260 Ul-X-1 : REM * Start-up message display and variable setup 

270 CLS:PRINTCHR$(23) :PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: 

PRINT'RANDO'S POETIC LICENSE" :PRINT: PRINT'BY" : PRINT:PRINT 

"DENNIS BATHORY KITSZ" 
280 FORAA-1TO1000:NEXT:CLS:J«1:Z-1:LL=6:PRINTCHR$(23) :GOTO1150 
290 Q-RND(8) :ONQGOTO300 ,350 ,440 ,620 ,700 ,870 ,920,970 
300 K-RND(Kl) : PRINT" "K$(K) ; :GOSUB1180 :GOTO340 : REM ARTICLES 
310 REM *** ARTICLE LIST BEGINS HERE. ENDKEY = KKKKKK *** 
320 DATAits , the , which , my , that , the , this , the , what , a ,any , some ,a 
330 DATAKKKKKK 

340 BB-RND(3) :ONBBGOTO350 ,350 ,440 : REM Adjective/noun select 
350 L-RND(Ll) : PRINT" "L$(L) ; :GOSUB1180 :GOTO440 : REM ADJECTIVES 
360 REM *** ADJECTIVE LIST BEGINS HERE. ENDKEY = LLLLLL *** 
370 DATAraerry, joyous, happy, freezing, bright, cheerful, peaceful 
380 DATAmerry, jolly, snappy, crystal clear , snowy, white, musical 
390 DATAsmiling , laughing , squealing , loving , lively , sweet , nifty 
400 DATAfine, warm, thrilling, grand, special, enlightened, fulsome 
410 DATAdreamy, overwhelming, inspiring, beautiful, remarkable 
420 DATAersatz, shiny, spark ling, inebriated, dreamy 
430 DATALLLLLL 

440 M=RND (Ml ): PRINT" "M$(M) ; :GOSUB1180 :GOTO560 : REM NOUNS 
450 REM *** NOUN LIST BEGINS HERE. ENDKEY = MMMMMM *** 
460 DATASanta, snow, Christmas , holiday, cheer , gift, song, new year 
470 DATAlove, Saint Nick, reindeer , chimney, tree, punch, happiness 
480 DATAChristmas, day, Santa Claus, family , toy, carol, paradise 
490 DATArosebud, evergreen, decor ation, light, star , winter , cold 
500 DAT Awarm th,mag i c,box,memory,f i rep lace, day , home, Grandma 
510 DATAYuletide, choir , Eskimo, Jack Frost, red nose , nipping, rum 
520 DATAhot toddy , chestnut , elves , north pole, whiskers, whisky 
530 DATAsugarplum,Schmaltzmas , snowball , snowman, stocking, present 
540 DATAwreath, candy, pumpkin, dinner, happiness, midnight, log 
550 DATAMMMMMM 

560 Z-Z+1:IFZ«6GOTO1120 : REM Check if time for suspsn. points 
570 B=RND(50) :IFB>20ANDB<47GOTO1020 : REM Punctuation eval . 
580 IFB>47ANDJ=2PRINT". " : J=l :GOTO970 : REM Time for period? 
590 IPB>47ANDJ-1GOTO600 : REM Sentence syntax branching sub. 

Program Listing continues 
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sions for Dance, performed by composer 
David Gunn, dancer Michele Pecora and 
myself at the Washington (D.C.) Project for 
the Arts. In 1978 the TRS-80 was a relative 
newcomer, and its use together with 
dance, live and recorded instrumental 
sound, live whispered and amplified 
speech, and audience participation 
caused comment and confusion The au- 
dience was called upon to select the 
vocabulary and to respond to video 
screens and loudspeakers scattered 
through the seats during the performance. 
Audience sound was fed back through an 
amplification system, mixed with instru- 
mental and electronic sound, and mated 
with the poetry generated from the audi- 
ence's vocabulary ^entered during in- 
termission). 

The HJMPGS version of Rando is syn- 
tactically the same as the original, adopt- 
ing a linear approach to sentence con- 
struction (start somewhere, get at least a 
noun and verb, and add some punctua- 
tion). Otherwise, HJMPGS is much faster, 
allows for easier vocabulary expansion, 
and syntax refinements eliminate some 
linguistic incongruities. The results, more- 
over, are entertaining and often hysteri- 
cally funny. 

The Listing presents the complete 
HJMPGS with a screen display. By modi- 
fying Print statements to LPRINT state- 
ments, your computer printer can produce 
endless heaps of junk poetry. 

About HJMPGS 

The construction of the poetry program 
is fairly simple. The vocabulary is ar- 
ranged by parts of speech; arrays are pre- 
pared, and the words are read into memo- 
ry (lines 90-260). After a sign-on message, 
the program goes to work. 

The initial part of speech is chosen at 
line 290, and the sentence is constructed 
linearly from there. Articles proceed to ad- 
jectives or nouns, tilted toward adjectives. 
Adjectives go to nouns (though a line may 
be added with a random bias that pro- 
ceeds mostly toward nouns, but allows an 
occasional double adjective). Nouns 
check for suspension points (added after 
every sixth noun in a single sentence). A 
punctuation evaluation follows (lines 530- 
540), and the program allows branching to 
verbs or other parts of speech. 

Adverbs check for verbs before pro- 
ceeding (line 710), then transitive and in- 
transitive verbs are selected (line 720), or 
none at all (line 810). Conjunctions can be 
entered from several locations, as can 
prepositions. Ejaculations occur at sen- 
tence start, or occasionally inside a sen- 
tence. You can select a variety of punctua- 
tion depending on whether a verb ap- 
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I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BUILT IN 
FUNCTIONS is 
spent inserting 
my diskette." 

SCOTT ADAMS - PRES OF ADVENTURE INTL. 



Snappware's EXTENDED BUILT IN FUNCTIONS is a collection of much 
needed additions to the TRSDOS* BASIC interpreter which greatly ex- 
tends its convenience and utility. The following features become part of 
your BASIC language and provide the enhancements without requiring 
any additional memory. The most important component of EXTENDED 
BUILT IN FUNCTIONS is an in-memory sort routine, guaranteed to be the 
fastest general purpose in-memory sort on the market. Along with this 
you also receive other EXTENDED BUILT IN FUNCTIONS Here is a 
sampling: 

SRT— Sorts one or more arrays into a specified sequence 
FMT— Arranges data into a string variable as with PRINT USING 
PDAT/UDAT$— Permits user to do arithmetic on dates. 
PK$/UPK$— Compresses strings to save disk space. 
ETIM$— Shows the difference between two times. 
CLEAR— Specifies the number of file blocks to be allocated when 
you specify high memory and string space. 
DELETE— Allows you to dynamically remove portions of a BASIC 
program. 

In addition to these, there are functions unique to Model II and to Model 

III. The exclusives to Model II are long error messages and PEEK/POKE. 

The exclusives to Model III are: 

SWAP— Supports exchange of variables with a single statement. 

HEX$— Converts numbers to hexadecimal strings. 

RESTORE— Allows you to set READ pointer to location of choice. 

If you consider your programming time to be worth money, call us and let 

us show you how to get more of it. 

MODEL II $100.00 

MODEL III $ 75.00 



'TRSDOS™ Tandy Corporation 
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Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell 
Cinti., Ohio 45236 
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Program continued 

600 GOTO710 : REM Further syntax branching refinement (really?) 
610 ORND{3) :ONCGOTO710,870,920 : REM Conj/Prep, or branch 
620 N-RND(Nl) : PRINT" "N$(N) ; :GOSUB1180 :GOTO710 : REM ADVERBS 
630 REM *** ADVERB LIST BEGINS HERE. ENDKEY - NNNNNN *** 
640 DATA joyfully, cheer fully, happily, again, pleasantly, icily 
650 DATAonce more, songf ully,wondrously, magically ,blusteringly 
660 DATAmusically,8piff ily, quick, lovingly, joyfully, warmly 
670 DATAinspi rationally, hast ily, lazily, oddly, slowly, nicely 
680 DATAeven, now, then, when, how, ever , never , where, he re, why 
690 DATANNNNNN 

700 G«2 : REM Set question mark flag on initial sentence verb 
710 IFJ-1THEN720ELSE300 : REM Syntax branching refinement #2 
720 J-2:0»RND(01) :IFO-16THEN810ELSEIFO<16THENPRINT" "0$(0);: 

GOSDB1180:GOTO810:ELSEIFO>16THENPRINT" "0$(0) ;:GOSUB1180: 

GOTO290 
730 REM *** VERB list begins here. Line above must be changed 
740 REM if the list of transitive verbs is to be increased 
750 REM to greater than 15. Note the blank value in 0$(16) 
760 REM which must be adjusted. Intransitives follow the 
770 REM blank 0$(16) value. ENDKEY - 000000 *** 

780 DATAceleb rates, goes, ruminates, thinks, savor s, expresses 
790 DATAsings , whistles , vanishes , approaches , considers , en joys 
800 DATAsnows , relaxes , celebrates , 

810 E-RND(3) :ONEGOTO620,870,920 : REM Transitive branching 
820 DAT Abe comes , cuddles , unwraps , gives , covers , overwhelms , holds 
830 DATAre tains, beckons, nourishes, squanders, gives, elicits, fends 
840 DATAmourns, concocts, croons, gropes, contemplates, tang rams 
850 DATAceases , is begone, speaks, oozes 
860 DATAOOOOOO 

870 Q-RND(Ql) -.PRINT" "Q$(Q) ; :GOSUB1180 :GOTO910 : REM CONJUNCTS. 
880 REM *** CONJUNCTION LIST BEGINS HERE. ENDKEY - QQQQQQ *** 
890 DATAand, or , but, because, since 

900 DATAQQQQQQ 

910 F-RND(3) :ONPGOTO300,710,920 : REM Post-conjunction branch 
920 R-RND(Rl) : PRINT" "R$(R) ; :GOSUB1180:GOTO300 t REM PREPOS'NS 
930 REM *** PREPOSITION LIST BEGINS HERE. ENDKEY - RRRRRR *** 
940 DATAto,for , with, by, during, over , at, under , from, through, off 
950 DATAon, except , of , since, to, about, at, for 
960 DATARRRRRR 

970 J-liU-RND(Ul) : PRINT" "U$(U) ; :GOSUB1180 :GOTO290 : REM EJAC ' S 
980 REM *** EJACULATION LIST BEGINS HERE. ENDKEY « UUUUUU *** 
990 DATAEurekal ,Whoopiell ,Phooeyl , Rats 1 1 ,Yecchi ,Nol ,Yesl 1 , 
1000 DATA" Aah,", Hal, Zounds I ,WowI , Oh I, See! , "So,", Hark I 
1010 DATAUUUUUU 

1020 IFJ-2THEN1030ELSE1050 : REM Punctuate if verb present only 
1030 IFG»2THEN1100ELSE1040 : REM Random question mark select 
1040 W«RND(8) :ONWGOTO1070, 1080, 1090, 1100, 1110, 1130, 1140, 1140 
1050 GOTO710 : REM Return to syntax branching start select 
1060 REM *** PUNCTUATION LIST BEGINS HERE (NON-DATA LIST) *** 
1070 PRINT". "; :J-1:LI«1:GOTO1160 : REM Reset punctuation flag 
1080 PRINT","; :GOTO290 : REM Return to main syntax branching 
1090 PRINT" I ";:J-1:LI*1:GOTO1160 : REM Reset punctuation flag 
1100 PRINT"? ";:J«1:G«1:LI-1:GOTO1160 : REM Reset punct'n flag 
1110 PRINT"; ";:GOTO290 : REM Return to main syntax branching 
1120 Z-lt PRINT". . . "zGOTO290 : REM Return to main branching 
1130 PRINT" — ":GOTO290 : REM Return to main syntax branching 
1140 LI-1: PRINT".": PRINT: PRINT§990, "****" ;:FORX-1TO2000: NEXT 
1150 RANDOM :CLS: PRINT" ( »";M; ") " :PRINT : REM Show poem number 
1160 S-RND ( 50) :IFS>23THENPRINT: PRINT : REM Opening spacing 
1170 FORX-1TO500:NEXT:GOTO290 : REM Delay and start the poem 
1180 LI«LI+1:IFLI>LLTHENPRINT: PRINT" ";:LI-1 

1190 RETURN : REM Subroutine determines words/line (set LL>4<8) 



pears, and if it appears before a noun 
(question mark mode). 

Various delays, carriage returns, and so 
on give a free-verse look to the results. 
Completion of the poem is determined 
randomly (a poem can be a single word or 
several dozen lines). The process repeats 
atttt a short delay. 

Give your friends some real junk mail 



for the holidays— the original kind they'll 
feel too bad to throw away. 

Building Projects 

The holidays are the traditional time to 
construct projects we have put off for 
months. From time to time readers have 
asked me to provide printed circuit boards 
for the projects in this column; unfortu- 



nately. I cant gauge actual response to a 
project before it appears in print. More 
than 70 readers asked for a printed circuit 
board for May's micro front panel; after 
the board was ready, only 12 actually pur- 
chased it. This isn't a complaint; instead. 
I'll try to publish printed circuit layouts so 
readers can roll their own. 

Creating a PC layout is sometimes 
tedious but with the right materials it can 
proceed smoothly and provide some sat- 
isfaction—as well as a professional look- 
ing finished product. Like having your own 
darkroom, creating PC boards is a way of 
personalizing and optimizing yourTRS-80 
system. 

The following pages describe the steps 
and suggest the magnitude of any printed 
circuit board project. Construction details 
are supplied along with the materials you 
will need and a short list of suppliers. 



There are many reasons for making 
a double-sided board: to avoid using 
dozens of jumpers, to alleviate crowd- 
ing of traces and widely spaced parts, 
to reduce board size, and to reduce 
system noise. For an experimenter, the 
reasons are mostly the same. Most 
commercial circuits today are de- 
signed by computer or hand drawn and 
digitized. A computer then optimizes 
the design to eliminate wasted layout 
space, and keeps things very regular. 

Hand-designing a double-sided 
board requires patience, a healthy 
memory, and a good eye for design. It 
may require a half-dozen sketches to 
produce a compact layout of parts and 
short traces. You start with the ar- 
rangement of parts: Place integrated 
circuits which are connected together 
as near as possible to each other. ICs 
should be parallel and regularly ar- 
ranged. Address and data lines, which 
are normally run in parallel groups, 
should be given the shortest overall 
path throughout the circuit. Power 
lines should run on opposite sides of 
the board if possible, and use thick cir- 
cuit traces. 

So far it is much like designing a 
single-sided board. The real advantage 
to two sides is that you are more likely 
to achieve these goals. Draw the cir- 
cuit in two colors (red and blue), with 
each color representing a side. Run the 
parallel traces together. Where lines 
must cross, try putting them entirely 
on the opposite side of the board. Let 
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unes cross from side to side only at in- 
tegrated circuits or other parts. When 
almost ail the traces are drawn in, 
some will still cross others. Run the 
line as far as possible on one side, then 
switch to the other. At that point, araw 
in a through-ho-e. " In commercial 
boards these would be plated through, 
but here they are drilled through and 
wires soldered to connect them. 

When you complete the board 
sketch you can begin the actual layout. 
Use layout tracing paper with 1/10-inch 
grid, or acetate sheets over grid paper. 
Put the patterns in place, run all the 
traces on one side and then complete 
the other side. Look for close spacing 
or physically difficult runs (such as 
through-holes under ICs). Make every- 
thing as clear as possible. You can 
now have negatives made and produce 
a board using double-sided, sensi- 
tized, copper-clad board.! 



"Hand-designing. . , 
requires patience, 
a healthy memory, 

and a good eye. . . ' 



Parts Mounting and Tasting 

It's almost time to mount parts on the 
board. Heat the soldering iron. Shine a 
strong light through the board. Use a mag- 
nifying lens to look for hairline cracks 
along the copper traces— always a possi- 
bility when creating a board from a hand- 
taped layout. Look especially at the point 
where the PC patterns connect to taped 
designs. If you find any cracks, take a 
piece of wire-wrap or other thin wire, bend 
it into an "L" shape, and solder the foot of 
the L across the crack. Clip off the remain- 
der when the solder cools. 

With single-sided boards, parts inser- 
tion is simple. "Form" each part by bend- 
ing the leads so they slip easily through 
the holes you have drilled. With small 
parts (resistors, capacitors, diodes), push 
the parts as far as they will go, bend the 
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I BOUGHT IT 

My biggest loss 
of programming 
time using 
Snappware's 
AUTOMAP and 
AUTOFILE is 
spent inserting 
my diskette." 

SCOJT ADAMS - PRES OF ADVENTURE INTL. 



When working with direct files or creating a formatted screen, Autofile 
and Automap are indispensible aids. 

Autofile is designed to automate for the BASIC programmer the task of 
moving data elements to and from a direct file. Previously, this was a 
time consuming chore because the FIELDed variables may not be directly 
referenced by user logic. The FIELD statement was eliminated, thereby 
relieving you of the guessing game as to where the FIELDed variable is. 
In addition, the LSET and the CVx functions are performed automatically. 
The software, when installed, becomes part of your BASIC interpreter 
providing the enhancements without additional memory. 

Automap is designed to automate for the BASIC programmer the task of 
presenting information on the video display and accepting information 
from the keyboard operator. The software consists of two main compo- 
nents: the OFF-LINE COMPONENT used to describe to the system the 
screen formats and the ON-LINE COMPONENT from within your BASIC 
program to initialize a screen, send data to the video display and receive 
data from the keyboard operator. This facility when installed, becomes 
part of your BASIC interpreter. 

Both products complement one another and, if used in conjunction, can 
save a significant amount of programming time. 
If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 



AutomapMODEL II 
MODEL III 

Autofile MODEL II 
MODEL III 
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$100.00 

$ 75.00 

$ 75.00 

$ 60.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell 
Cinti., Ohio 45236 
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leads sharply where they protrude 
through the board. Clip most of the ex- 
cess, but leave about 1/16-inch. Put inte- 
grated circuits and sockets on the board 
next, insert them fully, and bend two leads 
on opposite diagonal corners so the 
socket stays in place. Transistors go in 
place last, but get soldered first. Allow 
them to rise about 1/4 to 1/2-inch off the 
board and solder the leads from below. 

Now solder the small parts in place, and 
then the sockets. Finally, solder the ICs. 
To keep things cool, I solder all the pin 1 "s 



Photo 1. If you are designing your own 
board from a schematic, you will need 
some graphic arts supplies. The basic ma- 
terials for starting the layout process in- 
clude colored pencils, tracing paper, a 
straightedge and an eraser for sketching 
the route of circuit board traces. Expect to 
spend the greatest portion of time doing 
this preparation; make lead paths as short 
as possible. Prepare a double-sided board 
if you have to, but design in wire "jumpers" 
to avoid doing a double-sided board as a 
first project. Use two different colors for 
the upper and lower circuit traces. You'll 
also need supplies for the final artwork: 
layout tapes and printed circuit patterns. 
These patterns are holes, pads, integrated 
circuit patterns, edge connector strips, 
and other conveniences sold on plastic 
sheets. A drafting pen (Rapidograph, 
Mars Micrograph or similar) and ink are 
essential for touch-up work, as well as for 
lettering pin numbers, guides, and other 
information on the board. 



Photo 2. The actual layout process 
demands great care. The IC patterns, re- 
sistor and capacitor positions, edge con- 
nectors, etc., must all be put in place so 
that the real parts actually fit when you 
are done. Since the layout is done with 
patterns that are twice actual size, looks 
can be deceiving, so measure your parts. 
You'll also need sheets on which to do the 
layouts, such as tracing paper; I do them 
on frosted acetate. Although this is ex- 
pensive, it is easy to make changes, and 
you'll only need two sheets at most for 
each project. Circuit traces are put in 
place using lithographer's tape, mylar de- 
sign tapes, or black crepe tape. The crepe 
is the most flexible, allowing circuit traces 
to curve smoothly, but the litho tape is 
best for areas where the traces will be very 
dense. In this photo a razor blade cuts the 
tapes, but you can use a scalpel or Exacto 
knife. Keep in mind whether you are laying 
out the top or the bottom of the circuit, 
especially if you are working up a double- 
sided board. 



"If any IC gets 

too hot to hold, 

take a break. " 



first, then all pin 3's. pin 5's and so on. and 
let the whole thing cool. Then I do all the 
even numbered pins. If any IC gets too hot 
to hold, take a break. 

Double-sided boards are another ques- 
tion. Commercial boards are done with 
"plated-through" holes, where the hole 
makes an electrical connection between 
the top and bottom of the board. With 
homemade boards, all parts will have to 
be soldered on the top and on the bottom 
of the board. If you use sockets, this is 
very difficult unless you take wire-wrap 



i« 



■' 




llllllll llllllll Hill 



■ HIIIII llllllll 
llllllll llllllll 



iiiiiii 

iiiiuii iiniiii 
iiiinii iiiiuii 



""ii iiiiuii iiiiuii i M 



Minimum nniiiiiiiiiii 

1 1 1 1 : 1 1 i iiiiuii 

IIIHIIHIIIIII I I III I I I I 

iiiiiiniiiiiii iiiinimmii 



1 1 in in in iii i in hi 

iiniiiiiiniii iiinii'Niiiii 

nullum iiiuimiiihi 

MIMMMM MNMMM 



""•Ml,,,, 



"iiiiuii inn iimiMiiiii.Vr&Ti 



•••...... 

••••••••« 



• •••••••-. 




58 • 80 Microcomputing, December 1981 



MM 



It 




sockets and let them rise about 1/8-inch 
off the top of the board so your soldering 
iron will reach the pins underneath. Where 
circuit board traces lead from one side of 
the board to the other, insert bits of wire in 
the holes to make that connection. 

Where to Get Materials 

Your local stationery or graphic arts 
shop stocks tracing paper (Herculene is 
excellent) or frosted acetate, drafting 
pens and ink (not India ink), and often car- 
ries templates for laying out boards or cir- 
cuit diagrams. You can purchase stan- 
dard lithographer's tapes in various widths 
from about 1/64-inch to 1/4-inch at any 
print shop as well as well-stocked graphic 
arts shops, i nese are sometimes called 
ruby tapes or blockout tapes. PC patterns 
are also available in larger stores. 

Graphics tapes, PC patterns, blades, 
etc.. are sold by Chartpak (their catalog 



now///' 




Photo 3. The finished layout can be a very 
pretty design, something which will give 
you satisfaction. However, that satisfac- 
tion may get in the way of an important 
process— proofreading. Every trace must 
go where it's supposed to; so get a friend 
to read aloud and check off each wire in 
the schematic. Listen and verify that every 
connection is made on the circuit pattern. 
Record any corrections, making them all 
when the proofreading is finished. Then 
proofread again. If my emphasis is not 
enough, then experience indeed will be 
the better teacher. When all the parts have 
been soldered irrevocably in place, the 
power turned on, and the circuit self-de- 
structs. . . then the importance of proof- 
reading will be clear. If you have chosen 
the shortest possible paths throughout 
the circuit, proofreading will be easier, 
and the circuit might even work the first 
time. 










I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
COLLEGE EDUCATED 
GARBAGE COLLECTOR 
is spent inserting 
my diskette." 

SCOTT ADAMS ■ PRES OF ADVENTURE INTL. 



The Snappware College Educated Garbage Collector (SNAPP-VI) is an 
intelligent processing function which greatly improves performance of 
typical BASIC applications And here's why. 
Microsoft uses a variable length string' in the BASIC interpreter. Each 
time the string is assigned a new value, it is relocated in a string pool. 
Periodically the string pool must be reorganized and condensed into a 
single contiguous area. Performing this string space reclamation is time 
consuming and inefficient because this approach evaluates and collects 
each string individually. The time required is roughly proportional to the 
square of the number of active strings in the resident program. During 
reclamation the system seems to 'lock-up' and does not respond to 
the operator until the process is completed 

This time consuming approach requires a better solution. Snappware has 
developed a solution which takes advantage of the auxiliary memory 
available. SNAPP-VI requires only four bytes per active string as a work 
area. When free storage space is available, our system temporarily bor- 
rows, uses and returns the space to the free storage pool when com- 
pleted If storage is not available, our system will temporarily transfer out 
to disk enough of the BASIC program to make room for our work area and 
return the "paged out' information to its correct location when completed 
Benchmarked times show, in some situations, SNAPP-VI performs one 
hundred times as fast as the Microsoft approach 
If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 



MODEL II 
MODEL III 



•TRSDOS™ Tandy Corporation 
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..$100.00 

$ 75.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE. 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell F 
Cinti, Ohio 45236 5 
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Photo A. At this point your double-size 
layout is complete. Take it to your local 
newspaper or print shop (the former usu- 
ally is cheaper), and have a negative 
made. Specify "50% film negative, emul- 
sion down." You'll receive a negative like 
the one in this photo for between two and 
five dollars. However, it probably won't be 
ready to use as is. Shine a soft light 
through it and examine it for pinholes and 
scratches. If you can get some lithograph- 
er's opaquing, use it to cover these spots. 
Otherwise, drafting ink or bits of litho tape 
will do. Next search all the traces for 
cracks — black lines running through them 
where the copy camera interpreted razor 
blade cuts as white lines. Use a tine 
needle to scrape the emulsion (dull) side 
of the negative, removing the black crack 
lines. The negative is now ready to use. If 
you use a layout from a magazine, it will 
probably be the correct size already, but it 
may be either positive or negative; make 
sure your print shop knows you want them 
to make a film negative (clear traces on an 
opaque background). 



says "look in the Yellow Pages under 
Drafting Supplies") or Bishop Graphics 
(5388 Sterling Center Drive, P.O. Box 5007. 
Westlake Village. CA 91359). The Bishop 
catalog includes excellent recommenda- 
tions and instructions on PC layouts. Get 
the catalog tor an idea of what's involved 
in putting your own circuit board together. 

PC board blanks can be obtained (un- 
sensitized) from Radio Shack, and some 
stores still have stocks of spray photo 
resist, which was discontinued about a 
year ago. Radio Shack now also stocks 
some templates, ferric chloride etchant 
and touch-up resist pens (don't use these 
actually to draw circuitry, contrary to the 
instructions with them). 

Complete stocks of PC supplies (pat- 
terns, sensitized boards, developing and 



Photo 5. Use a glass fiber board, clad with 
copper and sensitized with emulsion, to 
make the final circuit board. You can pur- 
chase it ready-made, or make it yourself 
with emulsion spray. In either case, you'll 
want negative process emulsion, and pro- 
fessional epoxy glass board. Handle 
these boards only in a darkroom; you can 
simulate a darkroom by covering the bath- 
room windows with black paper or felt, 
and wrapping a 7-watt nite-lite in amber 
cellophane (can you still buy cellophane?). 
Once your darkroom is ready, remove a 
board from the black envelope, and place 
it in a photo proof-frame. This is another 
item you can make yourself: it takes a 
wooden base, 1/2-inch of sponge foam, 
and a piece of clean glass Heavy-duty 
stationery spring clips hold the assembly 
together. If you are making your sensi- 
tized boards, take some copper-clad lami- 
nate, clean it with very tine steel wool. 
wash and dry it. Lay it on clean paper, 
spray a complete but light coating of 
emulsion. Air dry overnight or bake dry in a 
dark oven at 200 degrees for an hour. 



etching chemicals, drills, etc.) are carried 
by Kepro Circuit Systems (630 Axminister 
Drive, Fenton. MO 63026) and Vector Elec- 
tronics Company (12460 Gladstone Ave- 
nue. Sylmar. CA 91342). Kepro offers a 
professional line as well as service to hob- 
byists, is very cordial, and will send a com- 
plete sheaf of instructions on all PC board 
making with orders for any supplies. Vec- 
tor has an unusual catalog full of proto- 
typing aids of all kinds, and has been a 
long favorite with experimenters. 

Hobby shops sell drills and drill bits 
(Dreml and Exacto make good sets). You 
can purchase photoflood lamps at any 
photo shop, as well as exposure frames 
(proof or contact frames), graphic arts film 
and developers, trays, and other things 
that make life easy for experimenters. 



Photo 6. Place the negative over the sen- 
sitized board, and sandwich it under the 
glass. Make sure the negative faces cor- 
rectly—if you add some pin number 
guides in the original layout, this is easier. 
I usually write (in the direction it eventual- 
ly will be read) "This is the bottom" or 
"This is the top. " If you are making a dou- 
ble-sided board, matching up the two 
sides can be tricky. Here's how I do it. Ask 
your printer to leave plenty of margin on 
the film negatives. Match up the top and 
bottom negatives, and tape two perpen- 
dicular edges together tightly. You are 
making a pocket in which the doublesid- 
ed copper blank can be inserted. Carefully 
slide in the sensitized board (be sure not 
to scratch the emulsion if the fit is tight), 
attach the board to the negatives (both 
sides) with a few pieces of tape, and sand- 
wich the whole works in the exposure 
frame You can now expose one side, re- 
move the board and expose the other side 
without shifting the image 



Holiday Stocking Stuffers 

I'm not much of a "games " person, but 
something came in the door last week that 
touched that mad. obsessive part of me. 
It's a program called "Fly.'' Another flight 
simulator, thought I. until i loaded it and 
saw these questions. Number of flies' 5 
Number of swatters? Speed of Flies? 
Number of Walls? Yep. it's a fly swatting 
program, with the little buggers buzzing 
about and being incredibly maddening— 
for every one you swat, another appears! 
If it can be won. I haven't found a way. (In 
one session I swatted 439 flies before my 
time ran out.) Only one surprise: Fly isn't 
for sale. Until March 31 it's being given 
away by the publishers of The Alternate 
Source (1806 Ada Street. Lansing. Ml 
48910) with a yearly subscription. I may 
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Call or Write 
Your Nearest 
Snappware 
Distributor 



MICRO-80 
284 Goodwood Road 
Clarence Park 
Adelaide South Australia 
Ph-(08) 21 17224 

DIGI-TEK SYSTEMS 
65 Thornndge Circle 
Kitchener Ontario NZM-4V9 
Ph-(519) 743-1699 

Strawflower Electronics 

50 North Cabrillo 

Half Moon Bay. California 94019 

Ph-1415) 726-9128 

COMPUTER MAGIC 
115 Wiltshire Avenue 
Louisville. Kentucky 40207 
Ph-(502) 893-9334 

E-C DATA 
Tornevangsvej 88 
P.O.B. 116 
OK-3460 
Bikered, Denmark 
Ph-45(0) 2/818191 " 

System Soft 
49. Dunvegan Drive 
Rise Park 

Nottingham, England 
NG5 5Dx 
Ph-(0602) 275559 

Programs Unlimited 
20 Jericho Tpke. 
Jericho. Long Island, 
New York 11753 
Ph-|516) 333-2266 

AEROCOMP 
Redbird Airport 
Hanger 8 

Dallas, Texas 75232 
Ph-(214) 339-5014 



nappware 
Goes On Trial! 

You Be 
The Judge! H 

Snappware knows your programming time is valuable. That's why we are 
offering a trial package that will cut your programming time up to 75%! 

This unprecedented offer allows you to judge for yourself the value of our 
software using your hardware at your convenience. Our five best selling 
products: EXTENDED BASIC. EXTENDED BUILT IN FUNCTIONS. COLLEGE 
EDUCATED GARBAGE COLLECTOR. AUTOMAP and AUTOFILE. are all 
available to you on a trial basis for only $50.00 for the Model II and 
$35.00 for the Model III We're convinced that after you see how well our 
software helps you perform programming tasks, you will purchase them 
like thousands of others have. 

Our trial package consists of a master diskette which may be used to 
create one working copy Your purchase price for the trial package will be 
credited toward the purchase of any software Snappware sells. 

If for any reason you are not satisfied, just return the trial diskette and 
working copy and we will refund your money, no questions asked With 
an unconditional guarantee like this, you can't lose. 

Call our toll free number 800-543-4268 to put us on trial We're sure your 
verdict will be: Snappware saves you time and money 



MODEL II Trial Package $50 00 

MODEL III Trial Package $35 00 



:. :•. .:• V : "i. :.■:•. i":'l",J' 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell 
Cinti , Ohio 45236 



^ See List ot Advertisers on page 4 18 
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Photo 7. Exposure of virtually all sensi- 
tized boards is done with ultraviolet light. 
Now that's not really special: there's plen- 
ty m the sun, but it's hard to control. In- 
stead, you can use a phototlood bulb (not 
a floodlight, but the ones everyone used to 
need for home movies). Set a fairly new 
bulb (old ones lose their UV capabilities) 
about 18 inches from the exposure frame, 
and let it shine for at least 7 minutes; to be 
safe, I let it go for 9 or 10. Graphics film is 
plenty opaque, and you will not expose 
anything under the black parts. Before 
turning on the bulb, put any unused 
pieces of photosensitive board away! 
Also make sure that the negative meets 
the board perfectly; the smallest gap can 
allow stray light to reflect under the 
negative, causing streaks (and eventual 
shorts) in the final circuit board. When you 
have exposed the board, there will be ab- 
solutely no visual evidence that anything 
has been done to it—iust keep it in the 
dark until you develop it. 



like their magazine, but Fly is worth the 
price of the subscription. Stuff that stock- 
ing with flies. 

There's a new version of Accel2 from 
Allen Gelder Software (Box 11721 Main 
Post Office. San Francisco. CA 94101). 
You can get it on tape, disk, or Stringy- 
Floppy wafer, and I think it's the easiest 
Basic compiler (actually, a "semi-compil- 
er") to use. Audition one at a computer 
club meeting, then buy one of your own 
from Allen. It turns plodding game pro- 
grams into remarkable challenges. 

For the bad spellers among us. there's 
Microproof (Cornucopia Software. P.O. 
Box 5028. Walnut Creek. CA 94596). for 
Models I. II and III. This program isn't 
cheap, but if you're running a word 
processing system with your business, 
and you're always in a hurry, then try 



Photo 8. Developing the board is easy, but 
has one nasty aspect. You must ventilate 
the room where you use the developer — 
and don't smoke. Board emulsion devel- 
oper is not like film developer; instead, it is 
a volatile liquid that can knock you right 
down. Drop the board face up in the liquid, 
and follow the manufacturer's directions. 
Generally, you would agitate the board 
smoothly in the developer using glass 
rods or by shaking the tray; again, 
because the liquid is extremely volatile 
like acetone, don't use your hands. In the 
photo, a glass tray is filled with the devel- 
oper; the developing chemical attacks 
plastic, so don't use ordinary darkroom 
trays. An old Pyrex or Corningware glass 
tray stolen from the kitchen (and never to 
be returned!) will do just fine. When the 
development is complete, the board must 
be drained upright against a solid object. 
Never shake or blow dry the board. This 
will disturb the solid emulsion surface. 
Room lights may now be turned on. 



Microproof. Documentation is good and 
support is forthcoming from the author. 
(A nice touch — "Microproof" was mis- 
spelled in the copyright notice in the 
documentation). 

I've talked about the ROM information 
in Supermap and Inside Level II before, 
but there's another book full of good 
things: Microsoft Basic Decoded, by 
James Farvour (IJG Inc.. 1260 W. Foothill 
Blvd.. Upland, CA 91786). By now. disas- 
sembled Level II listings have become 
commonplace, but this one is fully com- 
mented, in tear-out form, and with a very 
detailed and revealing (though barely liter- 
ate) introductory text. Though oriented 
toward "big computer" lovers, it is still an 
information bonanza. 

Color Computer owners sick of reverse 
caps for lowercase can build last month's 



Photo 9. Save the developer; it can be 
used many times. The emulsion on the 
board is still soft. Handle the board by the 
edges, and avoid shaking it or blowing on 
it. You must now dry it — either overnight 
at room temperature, or in an oven. I prefer 
the latter method, because at a low tem- 
perature (200 degrees or less), the emul- 
sion dries solid in less than 15 minutes. 
Preheat the oven, but turn it off if it is not 
an electric stove (remember, the remain- 
ing developer is still volatile). Lay the 
board face up (single-sided) or on edge 
(double-sided). Air should circulate 
around it. Remove it in a quarter hour, but 
remember it will be hot, so use tongs, 
gloves, or a potholder (not a fuzzy one). If 
you dry the board overnight, keep it in a 
relatively dust- (and cat-) free area. Hairs 
embedded in the emulsion will prevent et- 
ching, leave almost invisible shorts, and 
can cause all sorts of electronic havoc. 



Applications project, or buy a complete 
version of the Lowerkit from MSB Elec- 
tronics (Drawer 766, Barre, VT 05641). The 
plug-in board is the first add-on for any 
TRS-80 with a 128 ASCII character. 7 by 9 
matrix character set with descenders. You 
can purchase Greek, French, generalized 
European (all those umlauts and tildes, 
you know), math symbol, and Japanese 
(Kata Kana) plug-in character ICs for it as 
well. (And I don't mind saying I designed it, 
either.) 

The best dollars any Model I disk owner 
can invest are in the plug-in data separa- 
tor made by Percom (211 N. Kirby Street. 
Garland. TX 75042). Not much more can be 
said about this product— just ask any disk 
owner who has one. Another "standard" 
product is the Archbold Electronics high- 
speed modification (10708 Segovia Way, 
Rancho Cordova, CA 95670). There are so 
many options (several speeds, slow on 
disk or cassette access, etc.) that it's 
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FED UP WITH PATCHES? 

THEN MOVE UP TO 
PROSOFTS NewScript: 



Easy-to-use Full Screen Editing 

Headings, Page Numbering, 

Centering 

Global Search and Change 

Table of Contents, Indexing 

All 12 MX-80 fonts + underlining 

Italics on GRAFTRAX MX-80 

Supports Diablo, Microline, Anadex 



Typehead — never loses 
keystrokes 

Form Letters, Big Documents 
Double Width, Underlining 
Sub-scripts, Super-scripts t 
Proportional font right-margin 
justification on 737, 739, L.P. IV, 
and now R/S Daisy wheel II 



160 pages of excellent documentation includes "EZEDIT", "EZSCRIPT", 
self-study tutorial, and hundreds of examples 

* see review in Computronics, July 1981 

* runs under TRSDOS, NEWDOS, NEWDOS/80, LDOS, DOSPLUS 
Requires 48K TRS-80 with one disk drive. Specify Model I or Model III 

TSome features work only if your printer has the mechanical capability. 



NewScript 

Mailing Labels Option 

Special: New Script + Labels 



$ 99.95 
$ 29.95 
$115.00 



RPM 

RPM measures the rotational speed and variation of your disk drives, and reveals a common 
cause of unexplained errors. Simple one-key operation, runs under any DOS, interchangeable 
between Models I and III. Shows current and average speeds, plus fluctuation history. Recovers 
from severe errors. Documentation explains how to adjust drives. Use RPM monthly for best 
results. 

32-48KModelIorIIIdisk: $24.95 



FASTER 





Monitors your BASIC programs while they run, then displays a simple change 
(usually one line) that can reduce run-times by as much as 50%. No hardware 
changes, and handles programs that cannot be compiled! Complex programs 
benefit the most. See review in Personal Computing, May, 1981. 



16-48K Model I or III, tape and disk: 



$29.95 



QUICK COMPRESS 



Order from your Software dealer, or from: 

tf^k ffc ^^fc /* (-TV -. "X p^C T^ Small (276 bytes), fast (processes 800 lines in under 3 seconds) 

LJ mM m m \. ^\ ( j )^ utility removes blanks and remarks from your BASIC programs. 

m II ^^m Pv2> J • V c k Produces smaller, faster programs, and doesn't alter the 

original logic. 

16-48K Model I or III, tape and disk: $ 19.95 

SPECIAL FASTER + QUICK Compress: $39.95 

Dept.C Box 839 
North Hollywood, CA 91603 

ORDERING INFORMATION: We accept checks. Mastercard. Visa. Money Orders, C.O.D. (C.O.D. under 
$50.00. add $2.00). and even cash. Please, no purchase orders. California residents add 6% sales tax. 
Add 15% outside North America. 



CALL TOLL-FREE FOR ORDERS ONLY: 

(800) 824-7888. Operator 422 
CALIF: (800) 852-7777. Oper.422 
ALASKA/HAWAII: (800) 824-7919 
FOR TECHNICAL INFORMATION CALL: 

(213) 764-3131. or write to us. 
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Photo 10. Care must be taken with all 
steps, but with the etching chemicals it's 
especially important. The most common 
etchant is ferric chloride. It is not only 
moderately corrosive but also stains just 
about anything. Use a plastic tray and pro- 
tective gloves, and avoid splashing the 
chemical. Make sure the ferric chloride is 
at room temperature, and do not dilute the 
solution. If you purchase solid etchant. 
add as much as the water will hold (a sat- 
urated solution). Slide the exposed and 
dried board into the etchant, and agitate 
very gently. The unprotected areas of the 
board will immediately turn dark as the et- 
chant dissolves the copper; the iron pre- 
cipitate will cloud the solution, and even- 
tually become globs of blackish rust. Lift 
the board from time to time; look for areas 
where the copper is gone and the fiber- 
glass shows through. The copper will etch 
away following your agitation pattern, so 
turn the board occasionally so the pro- 
cess continues evenly. 



Photo 11. You can reuse the etchant sev- 
eral times; since built-up iron precipitate 
might scratch the emulsion of later pro- 
jects, filter the etchant through laboratory 
filters (coffee filters will do). Always store 
it in a plastic bottle; keep the used solu- 
tion separate from the stock batch. The 
board must now be thoroughly washed, as 
even the smallest trace of etchant can 
continue the etching process long after 
you're actually using the circuit. Wash 
first in cold running water, rinsing the 
board, the sink and the area around: 
etchant can damage porcelain if not 
washed off within a minute or so. Wash 
the board until it is thoroughly clear, and 
examine for unetched areas; put it back in 
the etchant it there are any dull copper 
areas left. You can hold it up to the light 
tor a better look. After the first wash, 
place the board in a clean tray and rinse in 
running water or with regular changes of 
water for about 10 minutes. Dry the board, 
once again make sure the etching is com- 
plete, set it aside and then clean all the 
trays, utensils and gloves you have used. 

amazing the documentation is clear 
enough to lead the user through it all. It's 
the only documentation, by the way, to 
provide a full-size, annotated photograph 
of the installation process. 

The HolmeS Engineering Internal Mem- 
ory Expansion kit (6246 West 2705 South, 
Salt Lake City. UT 84120) isn't easy to in- 
stall, but the results are worth it. There is 
no soldering needed, but the press fit into 
the RAM sockets is really tight. I like this 





board, and hope that anyone who pur- 
chases it will follow the directions to work 
it in place very slowly, and not grow impa- 
tient. Check it out; I've put several in and 
have never seen one that failed. 

Alas, some warnings— before you buy: 
Ask about the service policies on any dou- 
ble-sided disk drives. I don't want any 
more on my workbench. . Read the ser- 
vice policy and note the $75 minimum 
charge on LNW-80 repairs— and the mini- 



mum charge even for an estimate ... As 
software proliferates, especially for the 
Color Computer, you'd better try before 
you buy. I've seen more bad stuff than I 
ever saw for the Model I . . . Check out the 
documentation, instructions, flexibility 
and work you have to do to install the Ex 
atron high-speed board before buying 
(especially compared with the Archbold or 
Mumford products). . .Don't be surprised 
if your Color Computer power supply 
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Photo 12. Remove the emulsion from the 
board with a thorough scouring using fine 
steel wool, or by soaking in a commercial 
emulsion stripper. In either case, the 
board should be carefully cleaned and 
dried again before the final steps— drill- 
ing and mounting parts. A complete hob- 
by hand drill set is inexpensive, though 
just the #66 size drill bits will do most of 
the work for you. Holes should be drilled 
very gently, and true to the center of the 
pattern; be very careful not to tear copper 
traces off the bottom of a double-sided 
board. I generally use a small Sears vari- 
able-speed drill and press, as #66 bits fit 
firmly in its chuck. Be careful not to 
scratch the board as you move it from hole 
to hole, and use thin cloth gloves to keep 
hand oils from getting on the clean cop- 
per. Check that you have drilled all the 
holes. Brush off bits of copper and board, 
clean it for the last time in a good deter- 
gent, and rinse it thoroughly. 



shuts down with the new Exatron disk in- 
terface/memory expansion. (Come on, 
boys, do it right! More than 50 ICs pow- 
ered by the Color Computer edge connec- 
tor?!) I hope it's corrected by the time you 
read this. 

Now how about somebody stuffing my 
stocking. Here's what I'd like to find in it: A 



Color Computer version of Forth (a com- 
plete one) on disk or Exatron Stringy- 
Floppy. Pascal for real people on any ma- 
chine. A bus communications protocol for 
all the TRS-80 machines. 64K pseudo- 
static RAMs for the Color Computer. A 
photocopier interface. Merry Christmas, 
folks. ■ 



Then that overwhelming box my cheerful 


Wow! except that 


candy — 


bright tree nicely that inebriated 


under the squealing family. . . 


snowball? warmly whistles songfully a 


to 


dreamy red nose what smiling 


my enlightened winter a cold a 


snowman — a north pole. . . 


grand toy. 


but 


Yes!! Ha! because any 


the laughing box? my memory 


pumpkin speaks nicely which lively 


overwhelms and for what inspiring 


pumpkin. . . 


reindeer, this thrilling dinner? then 


but through what star the overwhelming 


thinks by which pumpkin . . . 


light the thrilling Santa; Yes!! 


to 


over some Yuletide concocts this 


a stocking the dreamy Saint Nick a 


punch. . . 


merry Jack Frost, this peaceful red 


present which sweet saint Nick some 


nose enjoys warmly a fireplace. . . 


special present! Yecch! or through my 


fulsome hot toddy. 


box becomes slowly my sparkling 


because over the red nose 


magic. . .but the 


sugarplum holds 


merry family its sparkling Yuletide the 


so, laughing Saint Nick celebrates 


fulsome wreath this happiness some 


lazily which thrilling winter — 


inspiring whiskers. . . 


lovingly the cheerful hot toddy 


its cheer. 


this shiny wreath. 


under a dreamy day considers because 


a squealing holiday 


any laughing Schmaltzmas; or my 


the freezing snowman its ersatz red 


Christmas Rats!! the snowy whiskers. 


nose— for some inebriated whiskers, that 


Hark! Fends 


merry chimney. . . 


the day the warmth? Any any choir 


this cheerful evergreen? 


gropes Rats! because special love. . . 


here fends and which snappy gift? 



AUTHORIZED TRS 80® DEALER #R491 





TRS-80 Color Computer With 
Extended Color BASIC 



26-1062 

Model III 16K RAM 
Model III, BASIC 




26 - 4002 

Model II. 64K 



$825.00 

WE ACCEPT CHECK, MONEY ORDER, OR PHONE ORDERS WITH VISA OR MASTERCARD. SHIPPING 
COSTS WILL BE ADDED TO CHARGE ORDERS. DISK DRIVES, PRINTERS, PERIPHERALS, AND SOFT- 
WARE- YOU NAME IT, WE'VE GOT IT. WRITE OR CALL FOR OUR COMPLETE PRICE LIST. 

C& S ELECTRONICS, LTD. 32 EAST MAIN ST. MILAN, MICH. 48160 

(31 3) 439-1 508 (31 3) 439-1 400 " ,4 ' 

C & S ELECTRONICS MART IS AN AUTHORIZED TRS 80 SALES CENTER STORE #R491 



sSee List ot Advertisers on page 41B 
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Special values on complete 
TRS-80™ Model III systems and disk drives! 



A.M. Electronics Inc. nas created the most pcwerfu! and reliable 
TRS-80 hardware and software systems available to get your 
microcomputing system up and running. Take advantage of 
special values like these: 

New TRS-80 Model III with disk drives 

Model III with dual 80-track disk drives — 704K of reliable disk 
storage on only two drives. System features two double-density 
80-track disk drives. 48K RAM and A.M Electronics controller 
board It's yours complete and ready to run! $2,295 

Model ill with dual 40-track double-density disk drives. 48K RAM 
and A M Electronics controller board, complete and ready to 
run! $:.895. 



Model III ROM Commented 

The definitive guide to Model III ROM 



$22.00 



NEW! Multiplier from A.M. Electronics 

Tired of unreliable double density operation? Try our new 
Multiplier and upgrade from single-density without doubling 
your problems $99.95 

Special Offer: Multiplier and NEWDOS 80 Version 2.0. together 
in our low package price $199.95 



NEW! Teac or Tandon disk drives, 

complete with power supply, case and 

extender cables 

40-track disk drive $265 

80-track disk drive $395 

Dual-headed 80-track disk drive $499 

Disk drive cases and power supplies 

5'/4-inch single drive unit w case & power supply . . $85 

5'/4-inch dual drive unit w case & power supply . $120 

8-inch single drive unit w case & power supply $750 

Save on valuable accessories, too! 

16K 200 nanosecond RAM memory chip . . $2 00 ea 

Disk drive extender cable $8.95 ea 

Now available: Teac technical manuals $75.00 ea. 

NEW! MAKE 80' 
now available for Model III 

Converts Model I single-density 40-track or Model III double- 
density 40-track standard diskettes into Model III double- 
density 80-track-readable diskettes $29.95 



66 • 80 Microcomputing, December 1981 



Also, we specialize in complete, powerful software 
packages for business. Put your TRS-80™ to work for you! 



Manufacturing Inventory 
Control 

The system comprises six programs to 
c ve ycu comp'ete contrc c' raw mate- 
rials frcm ordering to afte'-prcdue! cr, 
Disbursement Finished goods t. es are 
rranta ! ned ana opcated 

The system features add-on deietior. 
ana editng of raw materials cost a^erag- 
ng raw materia^ checking '.mshed gcccs 
costing *ui! b' 1 ' of mate' a's '.strgs 
complete where-usec reports ana ravt- 
matena' G sbLrsemen! Re-c r cer po nt 
ca culatior s bui t-in 

Reports may be generatec en cemp'ete 
nventory becw-reorder pert oul cf 
Stock b> veroor. nactive terns b II cf 
mater-ais finished gooas lists, cost lists 
(with anp w.thott inventory count | costs 
sts by finished goca or complete 
finished goods list 

The system runs on either the Moaei I or 
Mode! Ml computer and fi'e capacity 
vanes with your hardware configura- 
tion $299 95 

Dealer/Service Center 
Record Package 

This package is built in several modular 
packages and can be used separately cr 
together as a complete system Modular 
units are self-contained. When combined, 
you get the most comprehensive service 
center bookkeeping and record keeping 
package on the market 

A complete history of customer repair 
files is maintained cn-!;r.e. They can be 
accessed by account number or customer 
name Information includes customer 
name, address, phone number, make of 
unit, service dates, technician, services 
performed and total amount billed Infor- 
mation can be called to the screen or 
printer as a total list, or by previous serv- 
ice date. 

The customer records module can post 
to the accounts receivable mcdu:e 
payroll module and our Inventory Contra: 
System. 

Approximately 1.8C0 customers and 
records can be held with a Modei I com- 
puter with four 80-track drives, or a Model 
III with two 80-track drives 

By adding additional drives to the 
Model III. more than twice this amount of 
information can be maintained By switch- 
ing diskettes in drives, the capacity be- 
comes unlimited. 



See your nearest 
A.M. Electronics, Inc. dealer 

Here is a partial listing of our dealers 
in North America and Europe 



ARIZONA 

Stmute* Computer Product* 

PC Be '36e- 
T_c*>r AZfcS- 

CONNECTICUT 

Cemputef Service* or Denbury 

-4Si,i»"-.'S!-»ei 

Cantur> CNOWC 

Mountain Vie* Software 

M ryO-ook RoaC 

Dar-oi,<> CK06fi 

COLORADO 

Dola Resource. 

800CEaj:Qu.nc» 
C«f>f! CC 802:-- 

Hobtnaon Enterprises 

2356 E Bcvar 

CnoraacSpr rigs CC 80909 

DIST. OF COLUMBIA 

Program Store 

420CVV scons. n Avenge r,W 

Wasfr-gur D C 20C - 6 

FLORIDA 

Adventure Internationa* 

507 Easl Sires 1 

Longwooo FL 32750 

All Systems Go 

105 W Plant Si. eel 
V»,nierGa.def\FL 32767 

ILLINOIS 

3H Computai 
1950 Brier Reao 
Aurcia.IL 60504 



Matm Software 



Remarkable Softwen 

•508AO'«r>se 
Mu«»*ccr Mi 4944 

Soft Sector Marketing 
B25CMoceb»-B.: 



NEW HAMPSHIRE 

TSEHarosme 

t Boon Sow 
M V : HH :3CV 

NEW JERSEY 

Floppy Oiak Services 
Chi?v 

frrclon rwC*54l 

NEW MEXICO 



SE 



ocky Mountain Eng 
474SSL 

A bLgoeic 



NEW YORK 

B.T. Enterprises 

171 Ha«.<n< 
Cemereach s> !*720 

NORTH CAROLINA 

Alpha Technology 

'201 WikrrOrive 
Raleigh NC 27604 



OREGON 



1300 Centra Eiectronu 

1300 6ih Siren 



Midwest Computer Peripheral! 

1467 S Michigan Ave 


PENNSYLVANIA 


Chicago. IL 60605 






Stevens Radio Shack . 


Thayer Radio 


5f 2 Nuti Roac I 


15'A.h.reSt 


Phcermvi'ie PA 19460 ' 


G-een.ie* ii_ 62642 






BELGIUM 


MASSACHUSETTS 






DaUvision 


Small Business Syatema Group 


Av du D.an-ar! 4f 


6 Car' sieRoac 


'04CBr o sse> 6* Bmoi 


NMtOrd MA 01 886 


'ILEX 64J29F lECOt. j 


Computer Plus 

245AG-ea:Rcac 


WEST GERMANY 


.rt*;cn MA0146C- 


Fu.iner 


MICHIGAN 


Cemputer System*. GMBH 




4430Ste.nit--t , 


James Buiier 


Mark! '7 


438 E LakeSi-eei 




Petoskey Mi 49"C 


REP. OF SOUTH AFRICA 


Eight Bit Comer 


Braum Business Machines 


722 Beawetnti Ave 


48CS,cne> Ro 


Muskegon MI4944? 
1 


DvicanaOf 



A.M, 



This package may be specified for auto 
dealers, mechanics. TV repair centers, 
electronic technicians, and appliance re- 
pair centers $799.95 

Order Entry 
With Invoicing and Inventory 

Orders are composed of name and ad- 
dress information (with optional company 
name), method of shipment, payment 
method, items on order, quantities, prices, 

ELECTRONICS, 



description, and stock number Th ? c. V c. 
tern also prints nvo ces 

At pent of sh pmen.t nvento r y s at 
tcmat ca.iy upaateo Do -a- sa es an- rt 
ccraea. Shppmg charges and date: a r t- 
; ogged Entries may be edtec Part^ 
shipp'ng is permtted 

The irventory modu'e a iows chec^nc: 
ana updat ng stock nventcr^ reports 
sa'es reports, shipp.ng charges ar.rj 
mere 

This complete system s for a in est any 
whe esaie c r reta tus ness Cap<.totv ••- 
upward-expardabe frcm a c^a 40 "dC- 
Mcae i system. 1 75C nventory ten s 
565 caers per c skette S»9S P5 

Inventory Control System 

This system gives you compete centre! 
over an ununited amount c? Inv« ' lory 
.terns. (Note. Systems conia>nir c: rre r e 
than 1 .3.000 items are difficult lo h&i die 
trom a maintenance time standpc int. eg 
Elock File reorganization can take over 
3 hours.) 

As presently configured, a Model i 
computer with cne40-track drive wiii r old 
1.925 items, or a four-dr-ve system a tcta' 
of 6,625 items. Four 80-track drives wil, 
hold over 13.000 items. A Model III com- 
puter, with two 40-track drives, wn! hold 
about 13.000 parts. 

If necessary. A.M. Electronics. Inc can 
modify both the program and hardware to 
allow on-iine storage of an unlimited 
amount of items. As the file becomes 
larger, maintenance operations take 
longer Average search time is six sec- 
ends, with 12 seconds the cngest time 

Upon program initia'izaticn. the user 
specifies the item number ana descrip- 
tion digit length. Th.s allows for item num- 
bers up to 23 alpha-numbenc characters 
(As item number digits increase, aig'ts for 
description usage are decreasec ) 

The program is completely menu- 
driven. Items can be added, edited or 
deleted from the file Items can be placed 
on order, received to stock, or sold from 
inventory. Complete printout capabilities 
are available. 

Item information includes: item number. 
description, supplier, re-order point, cost. 
wholesale and retail selling price, quan- 
tity, on-order, and total sold. The re-order 
point is calculated by the program, based 
upon number of units sold over a 
specified period of time $799.95 



INC. 



^452 



Ann Arbor: 3366 Washtenaw Ave. 48104 (31 3) 973-2312 Open M-F 10-6, Sat. 10-5 

Fowlerville:* 111 North Grand, Box 1071 48836 (517) 223-7281 
Attention Dealers, OEM's & Distributors: Call us for details on our attractive pricing. 



""TRS-80 is a trademark of Tandy Corp 
- Se« List of Advertisers on page 4 13 



'Authorized Radio Shack dealer 



Prices subject !o change without not.ee 
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edited by Michael E. Nadeau 



"/ find the additional 16K great 

for things like Editor/Assembler Plus. . . 

or a data base management system.." 



The Internal Memory 
Larry Holmes 
Holmes Engineering 
Salt Lake City, UT 
$59.50 

by Eric Keener, WBGEST 

Occasionally a product comes along 
that you could consider the greatest 
since the microcomputer. This time it is 
the Internal Memory (or the IM) from 
Holmes Engineering, an attachment for 
your TRS-80 Model I. 

Imagine, those of you (like me) who can 
just barely afford the computer, much less 
the expansion interface for that coveted 
amount of additional memory, imagine 
being able to have 32K inside the key- 
board for less than $80. It's fantastic! The 
IM is a small circuit board that contains 16 
RAM sockets (plus the necessary decoder 
circuits), and is plugged into the eight 
RAM sockets in your keyboard. The origi- 
nal eight RAMs (they must be 16K) are 
then plugged into the IM. This leaves you 
eight more sockets for either 4K or 16K 
RAMs. 

When I heard about the IM from Larry 
Holmes (the brains behind the IM), I just 
couldn't resist. I ordered the IM by phone 
on Tuesday, and it arrived on Friday. I did 
have a minor problem installing the board. 
as capacitors C32 and C34 were in the 
way. I merely moved them to the other 
side of the CPU board and, voila. 32K of 
user RAM (actually 31956 bytes). 

Larry has indicated that he is aware of 
the minor problem with the capacitors, 
and is already planning a slight redesign 
so C32 and C34 will not present further in- 
stallation problems. He hopes to make it 
possible for anyone to install the IM with- 
out any problems. 

The IM also requires four connections 
to the CPU board, of which only three are 
required if you are adding 16K. These are 
logic connections, as the IM acquires its 
power from the RAM sockets. Holmes En- 
gineering has come up with some minia- 
ture clips that are small enough to attach 
to the pins of the other ICs on the CPU 
board. Thus, there is no need to solder or 
cut traces, and the IM is easily removed 



when service is required. By the way, 
since I installed my IM, I have had no prob- 
lems with the logic leads— in other words, 
soldering really isn't necessary. 

Regarding power, the additional RAMs 
only require an extra 50 milliamps from 
the system's five-volt supply, and that on- 
ly in bursts, not a continuous drain. As for 
the 12-volt supply, the IM draws an addi- 
tional 60 milliamps. Thus, the total drain 
on the 12-volt supply is only 125 milliamps, 
far below the 480 milliamp design limit. 
Finally, the IM requires power from the 
- 5-volt supply. In my keyboard, I have not 
only the IM, but a lowercase modification 
that uses two RAMs, and the high speed 
modification that uses two more ICs. I 
have not experienced any power supply 
problems. 

The IM is strictly a hardware modifica- 
tion and does not require software to 



make it work. Just install it and you are 
ready to go. The Level II ROM is capable of 
addressing up to 48K of RAM, plus the 16K 
for the Level II ROM, plus peripherals 
(CRT, keyboard, etc.). This is a total of 64K 
for a Z80 system. 

I find the additional 16K great for things 
like Editor/Assembler Plus (Microsoft) or 
a data base management system. I can 
even work on a Stringy-Floppy modifica- 
tion for Radio Shack's budget manage- 
ment programs. 

The IM package does not include the 
additional RAMs. However, I've seen the 
additional 4116 RAMs advertised for as lit- 
tle as $30. Holmes Engineering provides 
total support for the IM and a one year 
guarantee. 

Those of you who have limited space 
and funding: the Internal Memory is for 
you.B 



Rex 80 Rom Extender 

Model I, Level II 

Personal Microcomputers, Inc. 

Mountain View, CA 

$60 



by Mel Patrick 



When I acquired a J PC cassette sys- 
tem, I searched for an answer to 
some of my software problems, particu- 
larly the J PC driver program that resided 
in memory with many of my other ma- 
chine-language patches and utilities. And 
while the JPC software driver was relo- 
catable, I still needed several versions on 
several tapes. Combine this with other 
programs on the list that reside in high 
memory and you can end up with a huge 
number of memory sizes to remember. I 
was convinced there was an alternative to 
my problem. 

The Rex 80 

Scanning the advertisements in many 
computer related publications, I came 
across one which offered a hardware solu- 



tion to my software problems. The de- 
vice was called the Rex 80 ROM Extender. 
This accessory boasted the use of 2,014 
bytes set aside in the reserved area for 
your own programs. There was apparently 
no conflict between the Rex 80 and the 
standard Level II ROM. I checked Radio 
Shack's Technical Reference Manual, and 




using a machine-language monitor I 
checked the computer system itself. I 
found that the Level II ROMs occupied the 
area from 0000 (hex or decimal) to 2FFF 
(hex) or 12287 (decimal). The next address 
that was actually decoded for use was 
37DE hex, 14302 in decimal. The address 
was the DOS communication status ad- 
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dress. According to Radio Shack the area 
from 3000 hex (1 2288 decimal) to 37DD hex 
(14301 decimal) was a reserved communi- 
cation area. 

The advertisement also said that the 
board was compatible with most of the 
EPROMs on the market. EPROM stands 
for Erasable Programmable Read Only 
Memory. They function exactly the same 
as your standard ROM except the infor- 
mation it contains can be altered. 

I knew that Exatron had their operating 
system on either a ROM or EPROM chip 
and you initialized it by entering System 
/12345. Their entry address of 12345 was 
in this reserved area and did not seem to 
disturb anything, so I guessed the Rex 80 
was addressed in the same way. 

The Interface 

The board itself is approximately 24 in- 
ches square with an edge-card bus on two 
opposite sides. Four rubber feet on 
3/4-inch standoffs (spacers) support the 
unit. It does not come in a case. The P.C. 
board is double sided, has a 24-pin Tex- 
tool zero insertion force socket for your 
EPROM and a five-volt regulator tor the 
power supply. An ac adapter is required to 
power the regulator chip on the P.C. 
board. It plugs into a female miniature 
phone jack on the board. Only the address 
lines are fully buffered on the board. This 
did create a problem but was easily fixed. 
Two pages of documentation accompany 
the Rex 80 for connection, operation and 
memory map reference. 

EPROM Programming 

This was one of the hardest tasks I have 
ever attempted. I completely wore out my 
Editor/Assembler creating source and ob- 
ject codes of my routines. Remember that 
all of the routines had to be assembled in 



After deciding which patches and 
utilities I wanted in EPROM, I filled the re- 
maining 864 bytes. Now with a working 
version some 2,007 bytes long, I inquired 
into the format of programming entry. A 
local company informed me that hex, oc- 
tal or binary were acceptable. They would 
then enter my program byte for byte into a 
EPROM programming machine. 

I had my program assembled at 3000 
hex, but there was no way to load it and 
obtain a printout of it, since there is no 
RAM there to hold it. So I dumped the as- 
sembled version from Editor/Assembler to 
the printer, went to Memory size, loaded in 
a machine-language monitor, and then sit- 
ting with printout in hand I entered byte 
after byte of my object code starting at 
5000 hex. Actually I could have entered it 
at any address in RAM since all I wanted 
was a hex dump. I also could have given 
them my Editor/Assembler object code 
listing except that it is difficult to read 
with all the line numbers and mnemonics. 

Armed with a hex dump of my program 
and a blank EPROM (an Intel 2716), I head- 
ed out to the local electronics firm, where 
after about four hours, I had a pro- 
grammed EPROM. 

Final Assembly 

I connected the Rex 80 to a short 40-pin 
cable and the other end to the rear of the 
keyboard. The programmed chip was 
placed into its socket and the computer 
system powered up. Memory size was an- 
swered with Enter and then System /1 2288 
was entered (my program entry point). 
What I got was a spectacular crash. 

I powered down then back up and load- 
ed my machine-language monitor. I start- 
ed a symbolic dump of whatever was at 
3000 hex (I did not initialize the EPROM 
this time). Something was definitely 



"Armed with a hex dump of my program 

and a blank EPROM, I headed out 

to the local electronics firm ..." 



RAM, completely debugged and then 
saved for the final version. 

I started with JPC's software, rewriting 
parts to fit its new location until I had a 
final working copy that had shrunk from 
1 ,367 bytes to 1 ,250. This left 864 bytes left 
for my patches and utilities. 



wrong when every 256 bytes the program 
would repeat itself. At first I suspected the 
data lines, but why was some of the pro- 
gram correct? This lead me to the address 
lines and after doing a lot of continuity 
testing I found a badly plated through 
hole, right under the EPROM socket. The 



socket was removed and replaced by 
Molex connectors should any other prob- 
lem arise. At this point I could have re- 
turned the Rex 80 but I am a hardware buff 
at heart. 

Reconnecting everything as before and 
initializing, it worked! Almost For some 
odd reason part of my I/O routine failed to 
function properly. This was the fault of the 
programming firm. They had mistakenly 




read a hex byte F6 as 66 and entered it as 
such. The EPROM was removed and re- 
programmed in about 15 minutes This 
time there were no problems. 

User Comments 

Was it worth all the trouble? Yes! Hav 
ing all of those routines on-line, never hav 
ing to remember memory sizes and being 
able to insert different EPROMs for other 
tasks, definitely makes the TRS-80 a much 
more powerful computer system 

If you feel that this could be a possible 
solution for you as well, allow me to make 
some helpful suggestions: 

• The ac adapter must be at least nine 
volts. 300ma to power the board 

• It is a good idea to install a small heat 
sink on the regulator chip. 

• When you order your EPROM make 
sure you specify the single five-volt ver 
sion. An access time of 450ns is fast 
enough (even if you have a high-speed 
mod installed). 

• On the P.C. board you will see two 
electrolytic capacitors. On the three 
boards I have seen these are not soldered 
on both sides but should be. 

• You can install the Rex 80 between 
your keyboard and expansion interface, or 
to the expansion interface itself. But it you 
have a non-Radio Shack expansion it may 
not work installed there. My Microtek ex 
pansion will not work off the Rex 80 ex 
pansion's bus. You may have to obtain a 
two-for-one cable connector. ■ 



80 Microcomputing. December 1981 • 69 



5ft REVIEWS 



Dynatyper Keyboard Actuator 
Rochaster Data, Inc. 
Rochester, NY 
$499 

by Paul Snow 

A keyboard actuator is an array of sole- 
noids that fits over a typewriter 
keyboard. In response to LPRINT or 
LLIST, the actuator drives a plastic arm 
down onto the appropriate key and pro- 
duces honest-to-goodness letter-quality 
output. 

If you already own an electric type- 
writer, then an actuator is an inexpensive 
alternative to the daisy-wheel printer. You 
can remove the actuator any time you 
want to use your typewriter normally. 
Since there are no internal changes to the 
typewriter, your warranties and service 
contracts are unaffected. 

The big disadvantage is speed. A Dyna- 
typer averages about eight characters per 
second. You can boost this to 15 or even 
20 characters per second, but you may 
lose some letters as the typewriter fails to 
keep pace with the mechanical typist. 
Solenoid heating can also be a problem at 
high speeds. Repeatedly hitting the same 
key without an adequate cooling period 
can damage the solenoids. Thus, typewrit- 
er graphics are limited. 

The Dynatyper can be used with the 
IBM Selectric along with many other 
brands. With the Model I, Level II it works 
equally well with or without the expansion 
interface. You do not even need a Radio 
Shack printer interface cable if you do not 
have an expansion interface. The Dyna- 
typer simply plugs into the back of the 
keyboard console. 

Installation is simple. Two supports are 
mounted on the outside of your type- 
writer. You remove the cover of the Dyna- 
typer and manipulate four nylon screws to 
adjust the height of the unit over the keys. 
When each plunger activates its key near 



the bottom of its stroke, you replace the 
cover and hook up the cables. 

Each time you use the Dynatyper, you 
load and run a Basic program. The pro- 
gram takes over your top 306 bytes of 
RAM POKEing a machine-language driver 
routine into that space. There is some in- 
convenience both in lost memory and in 



Dynatyper driver does not even broach the 
subject. A suggested patch for version 3 
of the driver is given in the Program 
Listing. Why something like this is not in 
the Dynatyper book is a mystery. 

Documentation 

The poor quality of its documentation is 



"The Dynatyper is not a 'set it 

and forget it' device. Its height 

must be readjusted periodically. 

The solenoid plungers must 

be cleaned regularly, too. " 



the time required to load the 4K Basic pro- 
gram. This last problem is mitigated if you 
have a Stringy-Floppy or disk. Loss of the 
strategic top bytes may interfere with your 
own machine-language programs. 

But there are advantages to placing the 
driver in RAM. Vital parameters such as 
typing speed can be quickly changed. 
Which ASCII code hits which key can be 
redefined by a simple change in a few 
data statements. Thus, you can fully ex- 
ploit interchangeable IBM typing ele- 
ments with special character sets. 

One function that should be simple with 
a driver in RAM is automatic case rever- 
sal. As you may know, the action of the 
TRS-80 keyboard is exactly opposite to 
that of a regular typewriter. Shifted letters 
are lowercase, unshifteds are uppercase. 
That is fine if you are listing programs. To 
produce ordinary dual-case text, though, 
you either spend a lot of time holding 
down the shift key or else you figure a way 
to perform case reversal automatically. 

The documentation that comes with the 



To gel automatic case reversal, add the following statements to the Basic program: 

3072 PRINT • U = UPPER CASE ON SHIFT KEY" 

3090 IF L£FT$(A$.1) = "U" THEN 3800 

3800 L1 = 169:L2 = 201 :V1 = 225.V2 = 16VFOR I = TO 25: 

POKE A + L1 ♦ I.V2 + l:POKE A ♦ L2 + I.V1 + l:NEXT:GOTO 3080 

Run the program normally. When it asks you 

DO YOU WANT TO CHANGE ANY DELAY CONSTANTS? 
say YES. When it asks 

CONSTANT? 
answer "U". 



Program Listing. Patch for Dynatyper Driver Version 3. 



the weakest feature of the Dynatyper. The 
manuals are fraught with typos. The 
would-be modifier of the driver program 
gets little support beyond a listing and a 
brief explanation of the operating philoso- 
phy. Worse, the Assembly listing of the 
machine-language program that resides 
in high memory does not use the standard 
Z80 mnemonics familiar to EDTASM fans. 
Fortunately, there are enough comments 
to permit comprehension. 

Another baffler about the Dynatyper 
documentation is the absence of any 
mention of the actuator's wrap-around 
capability. Wrap-around means that long 
program lines will be broken up into two or 
more lines of typing when you LLIST. This 
is a handy feature; you would expect 
Rochester Data to brag about it rather 
than leave you to stumble across it. 

The Dynatyper is not a "set it and forget 
it" device. Its height must be readjusted 
periodically. The solenoid plungers must 
be cleaned regularly, too. Fortunately, it is 
a simple matter to lift each one out, wipe it 
off and slip back into place. But if you drop 
the Dynatyper with its cover off, all those 
plungers will fall out and it will take you a 
while to sort and replace them properly. 

The low cost and flexibility of the 
Dynatyper make it an attractive product. 
The one-year warranty is a big plus. After 
all, you are buying a box full of electrome- 
chanical parts. The failure of any one 
renders the entire assembly useless. I am 
happy with mine after several month's ser- 
vice. However, I don't have much software 
that needs those top bytes, nor am I fazed 
by software modification with sketchy 
documentation. ■ 
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"God Created Man — Man Created the Computer" 

"It Took A Special Man to Create the Perfect Basic 
For Your TRS-80 Computer !" 

COSMOPOLITAN ELECTRONIC CORPORATION 

— PRESENTS — 

"BOSS-SUPERBASIC" by V.B. Hester 

THE MAGNIFICENT "BOSS" IS NOW PART 
OF THE MULTIDOS SYSTEM 

•All of BOSS'S Trace, Single Stepping, and Variable Review features give you 
the Ultimate De-Bugging Tool for Basic Programs. 

•Requires Less Memory than Any Other Basic Interpreter 

•The Usual High Standards set by the Author are incorporated in . . . 

MULTIDOS 

IVIUL I IDQv -The Only Complete "All Density" Operating System on Earth 
MULTIDOS - With "BOSS-SUPERBASIC" is a MUST for Your TRS-80- 1 

featuring 



-ALPHABETIZED DIRECTORY • DUEL DIMENSION STRING SORT- 

-BREAK POINTS TO CONTROL SINGLE STEPPING - 

- EXECUTE ANY DOS COMMAND FROM BASIC- 



Trace to Line Printer 
The only All Basic Chamer 
Level II Transfer 
Repeats DOS Commands 
Flexible Keyboard 
Single Drive Copy 
Variable Length Records 
Continues Basic Programs 
after reboot 
Security Boot-Up 
Fastest De-Bug 
Graphics Dump 
Fastest Copy 
Single Step 
Zero Arrays 



• Maintains Date 

• Multiple DOS Commands 

• Sophisticated DO 

• Maintains Time 

• Fastest Back -Up 

• Page Scrolling 

• Execute for only Basic Programs 

• Fastest Renumber 

• Single Step with Auto Delay 

• No Hang 

• Dated Files 

• Super Dump 

• Link 

• Route 

• Spooler 



Forms 

Full Lower Case Support 

No Printer Hang-Ups 

Automatic Density Recognized 

Innovative Load 

Fastest Format 

Find Command 

Global Editor 

80 40. 35 Drives Mixed 

Disk Editor Assembler 

Space Compressor 

Simple Mini DOS 

String Packer 

Delete Arrays 

Automatically Supports High-Speed Clock 



Cosmopolitan Electronics Corporation 

P.O. Box 234 • Plymouth, Michigan 48170 
(313) 397-3126 

- DEALER INQUIRIES WELCOME - 



$ 79 



95 



Please Include i/ y 
Shipping & Handling 

Michigan Residents 

Pleas*; Include 

*% Sales Ta. 



i WELCOME 
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.- See List of Advertisers on page 4 IB 
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Archbold High-Speed Modification 

Archbold Electronics 

Rancho Cordova, CA 

High-speed modification, $45 

Memory delay line, $18 

Z80B processor (for 5.4 MHz mode), $18. 

by Dennis Bathory Kitsz 



Critics of the Model I TRS-80 have long 
held that the speed at which its Z80 
microprocessor operates is slow, far un- 
derutilizing the power of the machine. 
Radio Shack has never acknowledged 



"A basic clock 

speed-up is fairly 

simple to achieve.' 



that criticism, and consequently has 
never offered any speed upgrade kits 
similar to their lowercase and Level II up- 
grades. That effort has been left to individ- 
ual hobbyists and experimenters, and. 
sometime later, to a few enterprising man- 
ufacturers. 

There's some disagreement as to who 
manufactured the original high-speed 
modification for TRS-80 Model I. But there 
is no question that Bill Archbold has pro- 
vided a consistently reliable modification 
board for quite some time. The first Arch- 
bold circuit allowed only a 50 percent 
speed increase, but later he offered ver- 
sions including faster and slower com- 
puter operation. The latest permits some 
TRS-80s to operate at 5.36 MHz, three 
times faster than the original keyboard 
unit. 

Not only is the increase dramatic, but 
Archbold's newest circuitry monitors cer- 
tain computer operations. Thus, errors 
during disk access do not occur because 
the board switches back to normal speed 
during this critical time. 

A basic clock speed-up is fairly simple 
to achieve. Speeds other than the 1.77 
MHz of the TRS-80 are accessible internal- 
ly; it's hard to determine whether they 
were a deliberate design consideration or 
merely the accidental results of the divi- 
sion of 10.644 MHz master clock. In any 
case, speeds 50, 100 and 200 percent 
faster are already present in the TRS-80 
circuitry. Making them available to the 
user is a matter of selecting them with 
electronic switches. 



Once these speeds are selected, mak- 
ing them work reliably is another matter. 
The TRS-80 is comfortable with a 50 per- 
cent speedup and can handle a 100 per- 
cent speedup with a minor modification to 
one circuit. But the expansion interfaces 
resent the speedups, and flakiness begins 
to appear in that area when the TRS-80 is 
pushed faster. Making more than a 100 
percent increase can be fatal to programs 
using high memory. 

Archbold has solved this dilemma in 
several ways. First, the disk accessing is 
monitored, returning to normal speed for 
this process. Secondly, he recommends a 
few minor circuit changes to increase 
memory stability. Next, he insists that any 
early units be stabilized with the Radio 
Shack buffered cable/twisted pair im- 
provements. And finally, he makes a mem- 
ory delay unit available for use with the 
very highest speeds. 

Installation 

Before commenting on the difficulty of 
installing the high-speed board, I would 
like to say that Archbold makes every ef- 
fort to document each step of the process 
and assist the user. Unlike any other hard- 
ware change to the TRS-80, the Archbold 
board provides a full-size photograph of 
the entire TRS-80 circuitry with the modifi- 
cation connections clearly numbered. 
Also, every revision (A, D, E and G) of the 
computer is covered in the instructions. It 
is among the best hardware documenta- 
tion ever prepared for computer add-ons. 

Nevertheless, the prospect of cutting a 
half dozen traces and separating, cutting, 
stripping and soldering 20 wires is not a 
job to be undertaken impatiently. This in- 
stallation requires that the user read and 
follow each step with great care. An ex- 
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pert could have the board installed in an 
hour or so, a novice can be expected to 
spend a full evening of careful work. 



The board itself is small (about 1 1/2 by 
3 inches), beautifully crafted, with a clear 
plastic insulator across its bottom, and 
two wide foam pads for attaching to the 
main TRS-80 circuit card. A 20-conductor 
cable is attached, which must be sepa- 
rated into wire groups of different lengths 
after the board is put in place. 

Archbold's instructions say that before 
the sticky foam pads are applied to the 
TRS-80 circuit board, the board must be 
clean. He should have said immaculate. 
After the machine has been used for a 
while (which it probably has by the time 
this mod is installed), there is a buildup of 



"The board itself 
is small (and) 
beautifully crafted. 



dirt from the air, as well as solvents, 
cleaners or lubricants used for the edge 
card connectors. Make sure the area onto 
which the Archbold board is to be fas- 
tened is free of this grime and absolutely 
dry. 

Separating the wires is the next step. 
Instead of slitting the wires with a razor 
blade, grasp the end of the wire hank as 
you would a package of Fritos— the kind 
that won't ever open with a gentle tear. 
Place your fingernails close together at 
the end of a wire pair, and nick the plastic 
between the wires. Then twist as you 
would attempt to crack through the end of 
the Fritos bag. The wires should begin to 
separate, allowing you to pull them gently 
down to the required length. 

The wires are trimmed long enough to 
reach each of the points shown on the cir- 
cuit board, and very short bits of insula- 
tion are stripped from their ends. The ex- 
posed portion is tinned (prepared with 
solder), and soldered to various points on 
the TRS-80 circuit board. Throughout this 
process, the instruction manual must be 
checked carefully, as there are traces to 
be cut, and different considerations for A, 
D, E and G versions of the computer 
These version numbers are clearly marked 
on the boards (they are part of the board's 
manufacturing number printed near the 
power supply). 

When the board is installed, testing can 
begin. Archbold indicates two possible 
connections for one wire, for example, if 
the modification does not seem to work at 
first. In the three boards I have installed, 
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Your best 

Model l/lll 

peripheral buy 

is a modem. 



Your best 

Model l/lll 

modem buy 

is LYNX. 



Considering expanding your TRS-8C 
Model I or III 7 Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer- to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And. therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




Ljr» to 
Modtfitt 



The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 




DLYINTCO 



123 LOCUST STREET LANCASTER. PENNSYLVANIA 17602 
Phone 717/291-1116 

TRS-80 is a trademark of the Radio Shack Division of Tandy Corporation. 
FCC Registration Number A909KE-68171-DM-N 
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in- 



The new LYNX is the idea moaerr 
for your Modei i or III That s becai.se 
it's the key element of a total direct- 
con nect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
and III. 

• No separate purchases 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, 
eluding ST-80 by Micklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 



^278 



Consult your local microcomputer retailer, or call one of these LYNX handlers today— TOLL FREE: 



ADVENTURE INTERNATIONAL 
Longwood, FL 
800/327-7172 

THE PROGRAM STORE 
Washington, DC 
800/424-2738 

*>See List ol Advertisers on page 418 



ADVANCED COMPUTER PRODUCTS 

Irvine, CA 

800/854-8241 

STEVENS RADIO SHACK 
Phoenixville, PA 
800/345-6279 



TSE HARDS IDE 
Milford, NH 
800/258-1790 

SIMUTEK 
Tucson, AZ 
800/528-1149 



COMPUTER PLUS 
Littleton, MA 
800/343-8124 

PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 
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only one did not work perfectly the first 
time (in fact, it never worked at all— more 
on that later). For expansion interface 
owners, there is some minor work to be 
done there as well. 

The final touch is the power indicator 
on the front of the TRS-80. This becomes a 
speed indicator — green for normal speed, 
red for high speed. The Archbold high- 
speed mod is switched from high to low 
speed merely by issuing a Basic Out com- 
mand to port 254, an assembly code Out 
(FE), or an machine language D3 FE. The 
modification is otherwise transparent to 
computer operation. 

Moving Faster 

Multiple speed options are available on 
this board, but call for some user interven- 
tion. Specifically, two 74LS74 integrated 
circuits, a double-pole, double-throw 
switch, a Z80B microprocessor, and a 
memory delay line are required in a full ex- 
pansion of the speed options. The mem- 
ory delay line is essential for 5.36 MHz 
operation (three times the normal comput- 
er speed), as is the hotter Z80B processor 
(nominally rated a 4 MHz CPU). The whole 
system can run $85 plus a lot of time. 

I won't say super speed is not worth- 
while, but it does take a lot of time and pa- 
tience. Integrated circuits must be piggy- 
backed and holes drilled for switches. 
Even with the Z80B and memory delay 
line, there's no guarantee it will work re- 
liably and consistently. But it can work, 
and if you need the additional speed, then 
the Archbold modification can provide a 
key to it. 

There is one serious black mark against 
the Archbold modification. Archbold has 
joined manufacturers like Percom in tak- 
ing what, from my point of view, is a 
ludicrous form of circuit protection— he 
has sanded the part numbers off the top 
of the integrated circuits. 

If anything goes wrong with the Arch- 
bold board, or if anything (even something 
simple and obvious) does not work upon 
first installing it, forget the diagnosis. 
Unless you are psychic or a very astute 
electronics designer, there is no way the 
Archbold circuit will reveal its operation to 
you. Therefore, you will have wasted all 
the time spent installing the board, have 
to rip it out, box it, put postage and in- 
surance on it, return it to Archbold, and 
wait two weeks for a replacement. 

I had driven 150 miles to install this 
board for a friend who grows extra thumbs 
whenever he's even shown a soldering 
iron. With everything in place, I powered 
up the modified TRS-80. Within two 
minutes, the computer died. I took the 
machine back home for a 'scope check, 



and found all the signals coming from the 
computer to be good, but nothing coming 
out of the Archbold board. But with no 
idea of what circuits made up the modifi- 



hardly market it cheaper, nor with docu- 
mentation and installation instruction of 
as high a caliber. 
In summary, the Archbold speed-up kit 



"Multiple speed options 

are available. . . but call 

for some user intervention." 



cation, out it came. The computer was 
healthy again. My friend drove to pick up 
his machine, and was disappointed that 
the mod wasn't in place— just a paltry 50 
percent speedup I installed to console 
him. 

Word came back from Archbold a few 
weeks later that the board "tested out just 
fine." I couldn't help feeling a bit 
frustrated and resentful at the implication 
that I had installed the board incorrectly. 
It reflected on my competence, but with- 



is a fine product that can transform your 
pokey TRS-80 into a fast, more powerful 
computer. Calculations and sorting time 
are cut phenomenally, and graphics take 
on a remarkable new level of animation. 
With all its advantages, though, it joins 
those other black boxes I refuse to install 
in my own computer. ■ 

Recently I had the opportunity to speak 
with Mr. Archbold, and I asked him about 
the missing numbers on the high-speed 



"I won't say super speed 

is not worthwhile, but it does 

take a lot of time and patience." 



out a schematic there was no defense. A 
new board was shipped anyway, but I still 
had no schematic or part numbers for 
reference. I refused to install the board, 
asking my friend to ship it back. As of this 
writing, Archbold has still not given 
enough circuit details to diagnose it. . 

It's too bad, because the two other 
Archbold boards I've installed work very 
well, making the Archbold speed-up an ex- 
tremely economical alternative to buying 



circuit board. It seems that Archbold has 
actually been a victim of design ripotf. He 
denied a request from another company 
to market his earlier high-speed modifica- 
tion because of his substantial invest- 
ment in circuit boards and parts. But this 
company (well known in the microcom- 
puter world for mass-storage equipment) 
refused to take no for an answer, actually 
taking Arch hold's design and attempting 
to market it with neither credit nor pay- 



"It seems that Archbold 

has actually been a victim 

of design ripoff." 



a faster computer. And it seems a high 
level of paranoia that would allow Bill 
Archbold to believe that anyone would 
bother stealing the product; they could 



ment to Bill Archbold. Perhaps there is 
some justification, then, tor Archbold 
removing the markings on his redesign of 
the high-speed mod. 
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Centronics 739 
Centronics Corp. 
Hudson, NH 
$995 parallel port 
$1,045 serial port 



by G. Michael Vose 

80 Microcomputing staff 

The current decade may go down in his- 
tory as the decade of the printer. In the 
past year and a half, over a dozen new 
printers have been introduced for the mi- 
crocomputer market. The price floor for 
these printers has plummeted to less than 
$300! Many of these printers support the 
most sophisticated of features — underlin- 
ing, subscripting, superscripting, bold 
type and more. 

The Centronics Corporation has been 
making printers for computers since the 
early mainframe days. They have broad 
experience, both in manufacturing and 
marketing and have been the Original 
Equipment Manufacturer (OEM) for many 
computer makers including Tandy/Radio 
Shack. 

The Centronics 739 is the newest of the 
Centronics family of dot-matrix printers. 
At 14.5 by 11 inches, this compact printer 
fits neatly alongside a TRS-80 Model I, II or 
III. The 739 accepts fanfold paper up to 9.5 
inches wide, roll or single-sheet paper up 
to 8.5 inches wide. It prints 40 characters 
per second (the manual claims 100 cps 
but my tests showed it to be slower than 
my NEC Spinwriter, rated at 55 cps) with 
vertical spacing of six lines per inch and 
horizontal spacing of either 10 characters 
per inch (cpi) or 16.7 cpi. 

The 739 has a primary and a secondary 
character set. The primary character set is 
the standard 96 U.S. ASCII monospaced 
characters. The secondary characters 
sets include switch-selectable sets for 
France, United Kingdom, Germany, Italy 
and Sweden/Finland. The 739 is available 
for either parallel port or serial port config- 
ured applications. Both printers link up 
with the host device via 40-pin edge con- 
nector cables. 

The 739 uses a unidirectional print head 
that slows it substantially. But it has 
some excellent features including sup- 
port of underlining, proportional spacing 
for justification, elongated characters (in 
both the 10 cpi and the 16.7 cpi modes), 
backspacing and half line feed forward 
and reverse for subscripting and super- 
scripting. It also has a select graphics 
mode. This mode provides 75 horizontal 
and 72 vertical dots per inch for good qual- 
ity resolution. 

In addition to these good features, the 



ded in each print command, because the 
end of a print line terminates the elongate 
mode. This is not clearly stated in the 
manual. It is mentioned but like most im- 
portant information, only obliquely. 

The Centronics 739 will be a solid seller 
because Centronics will stand behind the 
machine with service and backup support. 
If this is important to you, the 739 is a 
good buy. There are other printers on the 
market, however, packed with features 
and much less expensive. ■ 



739 has some poor features. Its most obvi- 
ous shortcoming is its lack of speed. All of 
its control knobs are located at the bot- 
tom along the front portion of the cabinet 
where they can be difficult to see and ma- 
nipulate. The paper advance control 
allows single line advance or continuous 
advance; there is no form-feed control. 
The operator's manual commits a series 
of sins of ommission. For example, to 
place the printer in the elongated print 
mode, the control codes must be imbed- 

PROPORTIQKAL NORMAL 
'••#»%&'<>»♦,-. /012345&78?:;«? 
QABCDEFGHIJKLMNOPQRSTUVWXYZr.\r_ 
'a£>cclefghlJ^dmnopqrstuvwxyz<:|} , • 

PROPORTIONAL ELONGATED 

!•* #*%&'()*+,-./01 23A56789:;< = >'' 
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[ \] A . 
"a.b> cde-Fg hiijk.lmnopq.r-S'tLJv W3Cy2C|>~ 

10 CPI NORMAL 

! "♦$%&' ( )*♦,-. /0 12:3^56/89: ',<=■>-> 
(?ABCDEFGHIJKLMN0FQR l 3TUVWXYZC\] A _ 
' dbcdefghi jk lnnopqr 5t>ivw:;yz C I ) *- 

1 O C F- 1 ELONGATED 

! ' " * * Ti » ' < )x+,- ./012345678V: J =r = 
fc» A F.: O C> F. F Ci HI I ^J K I. MNO P Q R.S T U UMXYZC \J 
- *3 t_» cr- <rJ ^ -F «a |-| i j U. 1 t*\ ft cz» § -■> c^ r" st ■ J s*» ui x »J ~z: C I 3- 

16.7 CPI WWW. 

"HW ()!♦,-. /I1231547B9:;<='>' 
Weai£FCHIJKUHWRSnwaY2[\y. 

1A.7 CPI ELONGATED 

! "»♦%«' < >m+,-./0 123156789: J<=>? 
eABCDEFGHIOKLMNOPQRSTUVWXYZC\3^_ 
x abcdefghijklnnopqrstuvux^z<! I >** 

Fig. 1. Print Samples 




The Centronics 739 
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Coosol 101B-80E Printer 
Coosol, Inc. 
Anaheim. CA 
$495 (Kit) 

by Peter E. Noeth 

I have nterfaced a Mode' 35 teletype ana 
a Seiectnc typewriter tc rry TPS-8G ano 
although these provided the pnn'out 
needed still felt I lacked certaT features 
that are normally found in a dot-matrix 
printer, i found those feature! n the 
Coosol 101B-80E printer. 

The printer mechanism is a C.iTOH 830 
with pin-feed platen accepting 1 to 9 
1/2-m. paper. The controller board provid- 
ed by Coosol uses a Cybernetic 
Microsystems CY-480 printer controller 
chip. This controller chip is a masked 
ROM microprocessor designed for a varie- 
ty of dot-matrix printers. The basic 
features are: 

• 5 by 7 dot-matrix character generator 

• Full ASCII 96-character font 

• Internal 48-character line buffer 

• Graphics capability 

• 32 system level commands 

• Baud rate selectable (1 10-9600 bps) 

• Built-in self test 

• Parallel port with handshaking 
Coosol uses two CY-480s in its control- 
ler board which gives a preset line buffer 
of 88 characters. This is the only disad- 
vantage I have found in this printer. The 
problem is that there is no overrun protec- 
tion in the buffer. If you output more than 
88 characters without a line terminator 
(CR or FF), you lose the additional charac- 
ters up to the terminator. 

The construction manual is very com- 
plete and easy to follow. If you have ever 
put together any Heathkit equipment, you 
will note the simulanty. It takes you step 
by step through the construction of the 
printed circuit board and the wiring of the 
power supply. The printer is pre-wired and 
requires only the drive motor and print- 
head cables to be plugged into the con- 
troller board. The case is made of molded 
ABS plastic, and is in two parts. The upper 
half provides the mounting surface for the 
function switches (test, linefeed and re- 
set) as well as the power switch. The lower 
half provides the mounting surface for the 
printer mechanism. By themselves, the 
two parts are very pliable and do not ap- 
pear to be very sturdy but, once assem- 
bled, they provide a sturdy, handsome 
housing. 

The reference manual provides you with 
all the necessary functional and opera- 
tional information pertaining to the print- 
er. It also gives examples of the software 
driver routines to be used with six dif- 



ferent microprocessors (including the 
Z80). 

A software command instruction chart 
s provided showing the 'unction of the 32 
non-printable ASCI' comrraras. An app'i- 
cation note covers the graphics operation 
which allows you complete ccntro' ever 
each pnrt hammer to prnt whatever pat- 
tern ycu program. Schematics are includ- 
ed for both the controller board and the 
power supply. Coosol will provide you 
with documentation on the printer me- 
chanism on order, but there was no indica- 
tion of cost. 

One item not covered in the manual 
clearly, although timing diagrams are 
given, is that the strobe pulse must be a 
minimum of 4us in length. The TRS-80 only 
outputs a 1.6us pulse, so additional cir- 
cuitry must be added to provide a pulse 
stretcher. I chose to add a small circuit 
board containing a 74123 I.C. to provide 
the necessary strobe. Another possible 
way is to modify your expansion interface 
by adding a 470pf capacitor in parallel to 
the timing capacitor C64 at location Z29. 



it took me about six hours tc complete- 
ly assemble the unit It worked the first 
t me usmg the test switch to print the 
character gerera'cr contents then bui't 
an .rter'ac" cab.e to go between the ex- 
pans'or interface ana the printer When i 
tr ed to output to the pr nter my expans.on 
nterface deciced to go south ana my 
system no 'onger functioned. As I later 
determined t was the 5V regulator chip 
that failed, but in the process it took the 
input buffers and both of the CY-48C chips 
in the printer A call to Coosol with my 
problem resulted in a most gratifying ex- 
perience of cooperation on their part. I 
returned the unit to them and received it 
back within 10 days completely checked 
out and working. My only cost was for the 
replacement parts. I would suggest that 
anyone purchasing this unit install 
sockets for the input buffer I.C.s— just 
in case. 

I am most pleased with the addition of 
this printer to my system and would rec- 
ommend it to anyone wanting reasonable 
print capability at minimum cost.B 



REMASSEM-1 

An Introduction to TRS-80 

Assembly Language Programming 

Joseph E. Willis 

Remsoft, Inc. 

Euclid, OH 

$69.95 

by Jim King 

Some time ago I attended a short 
course on TRS-80 Assembly-lan- 
guage programming (ALP). I came away 
with a lot of papers, some confusion, and 
not much interest. I didn't feel confident 
enough after taking it to do any ALP. 
About the only thing that I got out of the 
course was an acquaintance with Assem- 
bly instructions in mnemonic form, such 
as LD, PUSH, POP, EX, ADD, SUB, INC, 
DEC, etc. Most of the demonstration pro- 
grams were to manipulate the video which 
didn't interest me. 
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I have just finished the REMASSEM-1 
ALP course, and now feel that I am on the 



road to becoming an Assembly-language 
programmer. This course consists of eight 
cassette tapes, a text book, and a manual. 

Five of these tapes contain 10 40-min- 
ute lessons by Joe Willis. His lecture is lei- 
surely, detailed and starts with descrip- 
tions of the basics— binary, octal and hex 
number systems. His occasional humor is 
a welcome relief from what at times can 
be a difficult subject. As usual, a lot of im- 
portant information is given verbally by 
the teacher, and is not on the display, so 
taking notes is necessary. 

The display cassettes are of very good 
quality. They have a higher signal level 
than many that I have used, and there 
were no failures to load. All of the dis- 
plays, except the example programs and 
the last lecture, are in large characters (32 
per line). You can even direct the display 
to start over at section headings in a menu 
without reloading the tape. 

Also included is the third printing of 
Barden's TRS-80 Assembly Language Pro- 
gramming book as the text. 

The course manual describes how to 
load and run the display tapes, and has 
flowcharts and source Assembly-code 
listings for two useful programs: Quick 
and Dirty Memory Test, and Print state- 
ments to both the screen and printer. I 
found that I wanted to follow both the 
code and the flowchart at the same time 
while he discussed them, therefore I re- 



76 • 80 Microcomputing, December 1981 



Now my accounting systems 
ran on CP/M as well asTRSDOS. 

So they'll work with your micro, 
no matter which it uses. 



I'm Irwin Taranto, and I originally designed my 
Model II systems to work with TRSDOS, the operating 
software Radio Shack supplies with the TRS-80. 

I designed them extremely carefully, with features 
other microcomputer accounting systems don't have. 
Mine all integrate with the general ledger, and, 
where it helps, they integrate with each other. 

My general ledger system gives year-to-year 
comparisons, in dollars and percentages. It figures 
budgets and it even has a report generator. 

My accounts receivable systems can do sales 
analysis by product code and figure in salesmen's 
commissions. They generate mailing lists by customer 
code or zip code for up to 2000 customers. 
You can choose either an open item system or a 
balance forward system which works on a cash or 
an accrual basis. 

My payroll system can handle up to 600 
employees in multiple departments, with any state 
tax routine (we provide them all). It can make any 
miscellaneous deductions you ask it to — it even 
does tips and meals. 




TRSDOS and TRS-80 are trademarks of the Tandy Corporation 
CP'M is a trademark of Digital Research Corporation. 



My inventory control system stores up to 5000 
items. It can report by vendor, tell you when you're 
out of stock or when you need to reorder. It can 
update price or cost automatically, and integrates 
fully with my invoicing system. 

There's a lot more, too. Over the years, I've 
had thousands of phone conversations with 
my customers, working out the bugs and kinks and 
adding desirable features. Everybody talks about 
"user-oriented" systems, but because of all these 
phone calls, it really means something when I say it. 
These may well be the most thoroughly researched 
small business accounting programs in the world. 

They're also the best supported, at least as 
far as microcomputer systems go. If you have a 
problem, just call. If your problem is tough enough, 
I'll get on the phone myself. There's no charge for 
phone assistance, ever. 

All these calls keep me upgrading my systems 
constantly. If you own one, you're eligible for a 
standing offer I've made all along : send me your 
diskette, and I'll send you the latest upgrade for 
only $25. 

Now I've taken another step. More and more 
owners are switching over to CP/M software these 
days. It seems to be where the whole microcomputer 
industry is heading. 

That's fine with me, because I've just converted 
all these accounting systems, and can sell them for 
the prices I've listed: 

General Ledger/Cash Journal $ 299 

Accounts Payable Purchase Order 349 
Open Items Accounts Receivable Invoicing 349 

Balance Forward Accounts Receivable 399 

Payroll 299 

with Job Costing Option 399 

Inventory Control 399 

For mail-order programs, these prices may seem 
high. But for serious accounting programs, nothing 
can touch them. 

Michael Tannenbaum, the "80 Accountant" 
in 80 Microcomputing, just called them "a very 
impressive product at a very reasonable price." 

Our TRS-80 Model I and Model III systems 
aren't quite as sophisticated. But they're tremendous 
buys at $99 each ($149 for general ledger). 

So call me and take your choice —CP/M or 
TRSDOS. Same price, same support. My systems 
are ready and waiting. 



Taranto 

«5 & ASSOCIATES, INC. 



121 Paul Drive. San Rafael CA 94903 

Outside California, toll free (800) 227 2868 In California, (415) 472-2670 



• See List ol Advertisers on page 418 
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moved the plastic binder so I could put 
pages side-by-side. The back part of the 
manual contains 13 pages from the Zilog 
Z80 CPU Technical Manual listing the in- 
structions in grouped form, handier than 
the alphabetic listing in the Radio Shack 
Editor/Assembler book. 

Also included in the package were sev- 
eral self-addressed fold-up sheets for ask- 
ing the programmers at Remsoft ques- 
tions on the course. 

The Quick and Dirty Memory Test writes 
all zeros into a memory location, tests if 
zeros are actually there, then writes all 
ones into the same location. It repeats 
this for all locations above the program in 
memory and displays all errors. The line- 
printing program is more complex, and 
outputs all Print statements to the screen 
and printer together after you type a shift 
P. This is very useful. As "exercises for the 
student" he suggests improvements that 
can be made in each of these two 
programs. 

In Lesson 3 Willis explains in detail 
which commands affect the status flags, 
and how to use them for branching. He 
strongly advocates breaking problems 



down into very small tasks and doing 
them by subroutines, i.e., modularizing. 
He demonstrates extensive use of subrou- 
tines, and a few of the ROM routines in his 
two example programs. 



"The final summary 

is full of 

excellent design 

suggestions." 



To key in programs you will need an edi- 
tor/assembler that uses the Zilog instruc- 
tions, and T-Bug or DeBug (not supplied). 

He recommends for further study three 
references: Barden's Z80 Microcomputer 
Handbook, Spracklen's Z80 and 8080 As- 
sembly Programming, and Leventhal's 



180 Assembly Programming. 

The final summary is full of excellent 
design suggestions, such as forming a de- 
sign before coding begins. Willis does not 
specifically recommend flowcharting, but 
he does recommend that the problem be 
completely defined in general terms and 
the task be sketched or outlined in terms 
of the language you are using before you 
begin coding. After coding on paper he 
recommends that you step through the 
program by hand, executing the code you 
see before going to your computer. His list 
of common errors should be in front of you 
while you code and while you debug. 

I benefited considerably from this 
course. It seems to be about the most 
painless way to learn Assembly-language 
programming. I think that for the beginner 
this is a good way to start, and it provides 
a good foundation. 

I would like to see a follow-up, ad- 
vanced course. I do not feel that I am an 
expert, but I have a much better handle on 
it now than I did before taking it. For 
anyone who is thinking of learning Assem- 
bly language, this is a very worthwhile 
introductory course. ■ 



Computer World 

Kraftwerk 

Warner Bros. Records 

$7.99 record/J8.95 tape 



by Chris Brown 

80 Microcomputing staff 



It is not surprising that Kraftwerk, a Ger- 
man band known for anticipating pop 
music trends, has been seduced by the 
microcomputer. This progressive combo, 
already with such classic (if unheard of) 
albums to their credit as Autobahn and 
Radio Active, has not been able to resist 
the simple dualism of all those ones and 
zeros or the antiseptic allure of the com- 
puter room. Kraftwerk has discovered the 
melody of the microprocessor. 

Their latest album Computer World has 
a microcomputer on its cover. Some of the 
song titles are: "Computer World," 
"Pocket Calculator," "Numbers," "Com- 
puter Love," "Home Computer," and last 
but not least, "It's More Fun to Compute." 
At first the music sounds mechanistic 



and the lyrics simple minded. Repetitive 
rhythms played through heavily synthe- 
sized keyboards accompany synthesized 
voices chanting one or two-sentence re- 
frains— for instance. "I am the operator of 
my pocket calculator, I am adding, now 
subtracting. I am the operator of my 
pocket calculator. . ." Or, "I program my 
home computer— beam myself into the 
future." 

Lyrics aside, the songs will hypnotize 
you with their haunting, melodic refrains. 
The depth and range of the synthesized 
keyboards and the intricate syncopation 
of the rhythms in Computer World are 
fascinating. I found myself listening again 
and again to the title cut whenever I felt 
the need for some easy listening, 2001 
style. 

Computer World's rich harmonies and 
interactive rhythms reflect Kraftwerk's 
view of the microprocessor age. Listening 
to the music, it is easy to visualize the in- 
ner regions of the processor where sig- 
nals control and consort amongst layers 
of circuit etch and gate logic. Listening to 
Computer World is like taking a swing on 
the crystal lattice jungle gym of an LSI 
chip. It is exhilarating! 

The album's theme, however, is less 
lighthearted. It seems to be a confused la- 
ment against technology (the same tech- 



nology that made this album possible), 
especially as used by government and big 
business. The FBI, Interpol, the Deutsche 
Banke and Scotland Yard are specifically 
mentioned. 

Another disturbing aspect is the 
album's back cover. The groups four 
members are pictured around the console 
of an antiquated electrical panel. Holding 
mechanical poses, the closely shorn 
members of the band are clad in the 
brown shirts and ties of the Hitler Youth. 
In fact, the scene seems a cross between 
the Germany of 1938 and the technologi- 
cal surrealism depicted in the 1927 German 
film Metropolis. It may not be fair to as- 
sume that Kraftwerk has equated technol- 
ogy and the age of the computer with to- 
talitarianism, but they do seem confused 
about it! 

Computer World is not likely to be one 
of the platinum albums of the 80s, but the 
price of innovation is often anonymity. 
The album's portrayal of the computer, 
especially the microcomputer, in synthe- 
sized melody and syncopated rhythm is a 
clever approximation of what goes on in- 
side a microprocessor. If you have ever 
fantasized about the domain of the micro- 
world within your computer, Computer 
World is for you. The music of Kraftwerk is 
the backbeat of the computing age.B 
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PROVEN MONEY MAKERS FOR YOUR TRS-80* 

'Tandy Corp. Trademark 



Provide your customers with a CALEN DAR $9.95 

printed calendar (along with standard banker's holidays) of any 
month of any year Useful in motivating history students. Holds 
the same fascination for students as a game Tape only for 
Model I or III 



SJ! fe ^! uresas Cale " dar SUPER CALENDAR 

Additionally prints out large 

'graphics' type wall calendars (tape only) $19.95 

with memos under each day Use as a planning calendar with 
optional disk storage requires 16K and printer 



MAIL LIST SYSTEM rdi»koni y) $69.95 

Our easy-to-use system will accomodate almost any "custom" 
requirement of even your most demanding clients A glance 
below will show that we are far ahead of any other system in 
speed, variety of features, and sheer volume of names 
handled but don't let that fool you This system can be used 
just as easily on one disk for a small Christmas card list 

• Maintain virtually an infinite number of disks all in con 
tinuous alph or zip order essential for large lists 

• Sort 2320 entries (2 full 40 track double density disks) in 
only 32K or an incredible 4640 entries (2 full 80 track 
double density disks) in only 48K'...Made possible with 
our unique date compression techniques on the Model III 

• Super fast sort by alph or zip order (8 sec for 1000 
entries), both orders can exist simultaneously on disk 

• High speed recoverv of entries from disk speed of sort is 
meaningless if retreival from disk is slow ours pulls in 
over 11 per sec' 

• Transfers old files over to our system 

• In /ip order all entries with same zip code are also 
arranged alphabetically 

• Four digit zips have a leading "O" appended on labels 

• Backup data disks are easily updated as entries are 
created, edited, or sorted extremely useful" 

• Optional reversal of name about comma for that non 
computer, personalized look 

• Master printouts of your list in several formats (not just a 
rehash of the labels) Optionally continuous or page 
oriented Your customers will want this' 

• All s in address labels are replaced by easier to read O's 

• All labels optionally support an "Attn:" line. 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting. ..even allows for 
inequalities powerful and easy to use!! 

• Continuous display of how many addresses printed 

• Each disk entry automatically "remembers" how many 
mailings have been made for that particular entry Can 
be tied in with purge select 

• Primarily written in BASIC for easy modification 
embedded machine code for those speed sensitive areas 

• Editing is simple and fast automatic search 

• Optional 9 digit zip 

• Deleted entries have "holes" on disk filled automatically 

and alph order is still maintained! 

• Test label printing lets you make horizontal and vertical 
adjustments with ease 

• Optional one time" mailing for some selected entries 

• Extensive use of error traps (both operator and machine 
induced) even recovers from a power failure during a 
printout' recycling on disk errors 

• Patch program allows you to upgrade the system to 
any DOS 

• Documentation manual available separately for $3.95 

• Hardware requirements: 32K printer, and 1 or 2 drives -~ A 



Football Scouting Report (£*) $89.95 

How many high schools and colleges .ire there within a 75 mile 
radius of you? Did you know that each is a potential customer at 
the rate of from $500-51000 per season' Many already subscribe 
to more expensive (but inferior) computer analysis services of 
their scouting reports Using such a service a coach will typically 
have an opponent scouted several times prior to actually playing 
them This series of programs was written to the specifications 
of a coach with two state championships to his credit As a 
result, the emphasis is on producing statistics that will help in 
predicting what the opponent will do ir a given situation This is 
a sophisticated set of programs fully equivalent to that used by 
professional football teams Hardware requirements J2K, 1 
disk driver and printer 



TRY OUR ONE DAY PC BOARD SERVICE 



Tic-Tac-Toe 



(Tape only) 



$9.95 



$19.95 



Loan amortization sche- LOAN AMORTIZATION 

dules are a must for banks. 
S & L institutions, and 
accounting firms You will (Tape only for Model I & III) 

be able to charge $5 plus per schedule Multiply that times the 
number of all loans your clients make per day easiest money we 
know of! runs in about 2 minutes and achieves pin point 
accuracy with a built in calendar This sophisticated piogram 
produces an exceptionally professional looking printout 



Interfaces to your own 
basic programs sort with 
the speed of machine code 
but with the convenience 
of basic You don't have to 



FAST SORT 

(handles multiple dim. arrays) 

ALPHABETIZER 

(disk only) $19.95 

know assembly language programming to use these programs 
Just use your disk to merge our short basic programs (with 
embedded machine code) with your own basic program Follow 
our simple instructions to poke several values before making the 
user call from basic The pokes will set up a sort of string, 
integer, single, or double precision a'rays Also ascending or 
descending order is controlled by a single poke Use one of two 
programs to sort arrays of the form A(1) or A(Q(1)) The disk 
includes 8 simple basic programs that are ready to merge with 
the main sort programs Use trem for learning and 
evaluation Also included is a read\ to use basic program 
(already merged with the ORDER program). Use it to obtain a 
printout of alphabetized names This program alone is worth 
$1995 

Sample Sort Times 
8 sec for 1000 dbl prec numbers 50 sec for 5000 integers 
(Ours is one of the only alphabetizes trat both ignores non alph 
characters and treats upper and lower case alike.) 



Sign 



(Tape only) 



$9.95 



Produce large (reduced 50% here) attention getting signs with 
your printer, supports most keyboard characters ..will print 
multiple lines use alone or interface to your own BASIC 
program requires just over 16K and a printer 
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Precision Prototypes 



410 E Rc.cj 

Refugio Tx 7837 

(5U-52b-4758l 



• Specitv Model I or III *hen ordering 

• Add $1 50 for postage and handling 



Maslerc harge 



• See List ot Advertisers on page 418 
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Sargon II 
Hayden Book Co. 
Rochelle Park, NJ 
$29.95 

MyChess 

Programme International 
Canoga Park, CA 
$34.95 

Gambiet 

Microtrend, U.S.A. 
Louisville, KY 
$39.95 

SFInks 

William A. Fink 
Lighthouse Point, FL 
$29.95 



by Randy Jenne 



A tournament among microcomputer 
chess programs — it sounds like a 
simple enough idea. Well, after contact- 
ing the local Radio Shack Computer Cen- 
ter manager, who gave me free use of his 
facilities, I began the task at hand. Forty 
hours and one carton of cigarettes later, 
here are my results. 

The first hitch that I discovered is that 
there is much more to a computer chess 
tournament than simply determining 
which program wins the most games. Fea- 
tures such as speed, book moves, graphics, 
board set-up and think-time display must 
also be considered. I have, therefore, set up 
a number of grids to most accurately re- 
flect the relative strengths and weaknesses 
of Sargon II. MyChess. Gambiet 80 and 
SFinks. The ratings of some of the features 
such as graphics and board set-up are 
somewhat subjective and reflect personal 
preference. However, the majority are ob- 
jective, and can be used to compare with- 
out bias. 



MyChess 

MyChess probably plays the strongest 
overall game It plays aggressively and 
quickly, making the most of its moves in 
well under three minutes. The main pros of 
this program are: thinking on opponent's 



time, setting time limits and saving up to 
six in-progress games on a disk. The main 
cons are no think-time display, poor graph- 
ics (meant to verify a real chess board I 
suspect) and an inadequate board set-up 
option (pieces can be moved and removed, 
but not created). 



Fig. 1- 
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*£? OFFICE V3 



COMPUTER INTERFACES 
& PERIPHERALS 



SYSTEMS 



+ANSOUNCIHG: POS 800/1600 UNIVERSAL TAPE DRIVE CONTROLLER * 

This "black box" controller/formatter is designed is a standalone interface 
between industry -standard NRZ1 (800 BPI) and PE (1600 BPI) tape drives and a 
parallel or RS-232 serial port of an 8-bit ASCII computer. Serial interlace emulates 
a terminal vis-a-vis your system software; parallel interface emulates a reader/punch 
and responds to CPM-style PIP commands from your computer. Tape speeds 12.5, 
25 and 37.5 ips. Interface is microprocessor-controlled, includes power supply and 
4K or 16K buffer memory. Prices and details available upon request. 

• POS 100 NRZ1 TAPE DRIVE CONTROLLER/FORMATTER No* your 
micro can read and write IBM/ANSI compatible NRZ1 format 9-lrack. magnetic 

tapes The POS-1 00 consists of S-100 bus card, 6 ribbon cable, tape drive controller 
card, cable to Pertec-Standard NR/1 Tape drive, plus documentation and l-SO or 
8080 software (specifiv I. Power is derived from tape drive and S-100 bus. Ship Wt.: 

10 lbs. Suggested Retail Price $995.00 

• POS DAISY WHEEL PRINTER INTERFACE for TRS-80 Will drive Diablo 
HyType I, HyTvpe II, and Qume and Spnnt 3 printers Includes IK user 

available memory for custom print routines isuch as graphics, bidirectional print- 
ing, etc 1. Programmed to respond to print commands from B\SU (l EC IRK. 
PfNCIL™, and SLRIPSIT ,M software. Draws its power from printer. Ship wt.: 

5 lbs. Price $250.00 

Cables, each ISpecitv HvTvpe I, MvType II, or Qume! $ 25.00 

• POS ASCII INTERFACE for IBM I/O SELECTRIC This Centronics sty Ir 
parallel prime' interface will drive an IBM Model 711 m 735 I/O typewriter 

11 BCD and Correspondent codesl. No software needed. I catures onboard EPROM 
which holds up to 8 ASCIIto-IBM code tables 'or different type spheres. Closed 
loop operation runs at maximum printer speed; stops and starts on a single character 
without loss o! data. Requires H2VDC and tSVOC power source. Ship wt.: 

5 lbs. Price $249.95 

Power Supply I- SVDC. ♦12VDC. +24VDC tor Solenoids on Printer) $ 49.95 

• CONVERT OFFICE SELECTRIC TO I/O TYPEWRITER Kit includes 
assembled solenoids, switches, wire harness, magnet driver PCB plus instructions 

to- installation and mCPl. interface. Puce $150.00 

• "FORMALINER" Variable Width Forms Tractor for IS Selectrics . . . $95.00 

• GTE Model 560 ASCII SELECTRIC I/O Terminal -With RS-232 Serial Interlace 
and digiu: cassette deck lor use as memory typewriter. Ship wt.: 100 lbs. 

Price, tested and adiusted $1,195.00 

• POS ASCII I8M SELECTRIC PRINTER 15 Selectnc from GTE terminal 
cleaned and adiusted with POS Centronics-style ASCII printer interface. UC/LC, 

carbon and fabric ribbons Compatible with TRS-ht}. Apple, SOI. and other CPU 
Parallel printer ports. Ship wt.: 75 lbs. Price (895.00 

PACIFIC OFFICE SYSTEMS • 153 

2265 Old Middlefield Way • Mountain View, CA 94043 • (415)493-745$ 



TIME ... 

METHUSELAH' has time for you 
and your TRS-80 



The name Methuselah has always been associated with lone life. The Methuselah 
computer clock board with its '24 hour clock and its perpetual calendar is indeed worthy 
of the title Methuselah puts slate of the art technology into action with the on hoard four 
year lithium battery buck-up to keep it running even when vour computer is off That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off. 

Methuselah has many other timely features. Software patches keep the 1>< >S and BASK" 
time and clock commands ticking. Only two screw's mount Methuselah inside the expan- 
sion interface without soldering, clipping, cutting, or jumpering. There is even a spare 
1-0 port and four different interrupts available for people who love to tinker. 

SPKCS: MM 1)1) YY, [III MM SS and day of the week. Four year lithium battery 

back up Crystal controlled timing 1 adjustable 32.768 oscillator) Twenty four 
hour clock and perpetual calendar 



Send check or monev order to 



mjhD 

NDM DESIGNS ^135 

6330 *T North. Ava. 

Wauwatosa. Wl 53213 

I4M) 259-0120 



M-Sl $97.00 

(add $4 50 P and H> 

S-Sl $17.80 

<add$2..V) 1" and III 
1 If yog wish to use Methuselah 
and the RS-232 board (26-11431 
together, order this option which 
includes a new- cover and con- 
nector 1 
WI residents add 4 - sales tax 



METHUSELAH is a 

trade mark o' NDM D.s.gns 
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publications for the trs-80 Model III 

Mystery of the ROM Mystery ol tha DISKETTE 

Mystery of Ihe DOS $1 9 95 each 

Musi additions to the computer library ol the serious 
programmer as well as the casually interested Written 
In a echi cai, /e* easy-to-read and understandable style 
Each book Include*: 

• detailed tables o« contents and indexes, alphabetical 
and numerical tables with numerous cross references 

• regrster setup going »mo rouilnes 

• register results coming out of routines 

• detailed explanations on all routines, structures. 
codes, etc.. and not iust a few ambiguous comments. 

• '• i nerous summaries for ease of book use. 

Special ... all three $49.95 

SORT/CMD 

• multi-key (lo 14 fields) MuHi-tagOo 14 more fields) 

• sort any combination ol variable type 

• Integrates easily into arvi existing program 

$1 9.95 MCh Oi'sfc or norths*. Model t ot ill. 32K or 48K 

PATCHES 

to allow operation ot many Model I programs on the Model III 

• LM OFFSET/CMD Superzap/CMD' 

• RSM 2D-<CMD 1Q.K. 32K 

• Big Fve Software Games (all games) 4 

$5.95 each Many more send for brochure' 

DISK DIRECTORY INDEX PROGRAM <m<** Hlonit) 

• MahNi n a master di r ectory listing and file an diskettes 

• index size limited only by diskette space available 
and number of diskettes on which the index will be 

maintained. 

• Summary by file name, diskette, or extension 

Direct/BAS $14.95 

DirecUCMD $24.95 ' vnj.Ked more powerful taster) 

Send cnecK or money orde- (Kansas residents 
add 3% sales tax) to Twenty-First Century Sottwere 
1607 North Cochran Hutchinson, Kansas 67501 
Staff til §§3-1047 for additional information 




i- 



'♦•4 !!• «C laOfimirks ox pioxtuots ot Tanov Cor D . '*OQ»f I". 

-.1 .11 ..-• i !■. . • In r . ■■ „ .. -, -.,_,_ ,._. ,, 



■ See List of Advertisers on page 418 
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S Finks 

SFinks plays the most conservative 
game of the four (games often stretch to 
seventy moves or more). The tie for first 
place may also be somewhat misleading. 
SFinks used more than its allowable three 
minutes per move while playing on the rec- 
ommended tournament level, it seems to 
average about three minutes and twenty 
seconds per move at level eight. 

SFinks' standing may have been differ- 
ent on a lower level of play. The graphics 
and think-time display are. however, very 
good, and SFinks is the only program that 
gives an audible signal to indicate the 
completion of a move. 

Gambiet 80 

Although Gambiet 80 won only one 
game in the tournament, that fact is not in- 



"All four of 

these programs 

play excellent 

chess, considering 

their size and 

clock speed. " 



dicative of the strength of the program. It 
plays very competent chess and all its 
games were hard-fought battles. Its fea- 
tures are definitely the most impressive. 
The think-time display shows the move it is 
currently considering, the best move it has 
found so far, and the number of moves left 
to evaluate. The chess clock, graphics 
and minimum system requirement (16K 
Level II) are also plusses. 

Sargon II 

Sargon II, although it is over a year old, 
still has a few things over the newer pro- 
grams. It can be played on a 16K Level II. It 
is tied with SFinks as the least expensive, 
at $29.95, and it still has the easiest and 
most versatile set-up mode. Some of the 
new features such as printer option are 
lacking in good old Sargon II. 

All four of these programs play excellent 
chess, considering their size and clock 
speed. Anyone from a beginner to a fairly 
advanced player should be satisfied with 
any of these programs.H 



More TRS-80 Basic 

Inman, Zamora and Albrecht 

John Wiley and Sons, Inc. 

New York City, NY 

Softcover, 280 pp. 

$9.95 

By Alyson Grupp 

Have you read everything about 
microcomputers that you could get 
your hands on, but still feel like you're 
missing something? Are you striving dili- 
gently to bridge the gap between begin- 
ners' Basic and "real programming"? 
More TRS-80 Basic, a new addition to the 
Wiley Self-Teaching Guides, is an intro- 
duction to some of the more esoteric as- 
pects of using and programming your 
TRS-80. This book will replace your vague 
ideas with solid definitions of such di- 
verse and interesting subjects as graph- 
ics, animation, disk and cassette I/O, and 
the use of sound with Basic programs. 

The overall composition of the book is 
excellent. It has an open layout liberally 
sprinkled with illustrations, allowing the 
reader to quickly locate any particular 
piece of information. New ideas are easily 
understandable. Clear explanations are 
followed by both subtle and not-so-subtle 
reiterations, ensuring that the reader fully 
grasps new concepts before moving on. 
Occasionally, the authors may appear to 
dwell too long on a single subject— but 
it's easy to skim past the repetition if you 
already understand the subject, and you'll 
appreciate the reinforcement when you're 
still struggling with something new. 

Excellent summaries are found at the 
end of each chapter. Self-tests appear 
throughout the book, generally at the end 
of each chapter, but are also embedded 
within those chapters that cover especial- 
ly difficult or complex material. 

In keeping with the advanced emphasis 
of the book, the more common Basic com- 
mands are dispensed within the first few 
pages of the book. They are listed with 
concise, lucid definitions, and serve as a 
handy reference when the meaning of a 
particular term slips your mind. 

The text itself begins with an explana- 
tion of ROM and RAM, paying special at- 
tention to the differences between the 
two. The second chapter moves quickly in- 
to a well-guided "Tour of Memory Land". 
Suddenly, things begin to come clear. For 
example, a response to the memory size 
question does more than merely reserve 
memory. The authors explain very clearly 
what memory is reserved, why it must be 
reserved, and when it must be reserved. 

One rather lengthy chapter contains 
full explanations of the TRS-80 arithmetic 



and trigonometric abilities. Personally. I 
found these far less interesting than the 
extensive graphics technique taught by 
the book. Graphics can be created using 
Set, Reset. POKE, CHR$ and STRING$ 
commands. Detailed information is pro- 
vided on each of these methods, and ex- 
amples of characters, games and draw- 
ings are given. 

Chapters dealing with graphics and ani- 
mation make terribly obscure points seem 
simple and logical. Best of all. you learn 
sophisticated techniques that work. You 
are given opportunities to try things out 
and experiment with your newfound 
knowledge. Examples are tnoroughly ex- 
plained, step by step, and it is simple to 
apply the techniques used to your own 
programs. When the sound capabilities 
learned in a later chapter are added, your 
programs can become more sophisticated. 

Your understanding of what your hard- 
ware does and how it does it will also grow 
with this book. Both cassette and disk 
storage are covered in some detail, and a 
sample data file is set up using each 
media. Using these media to the full ex- 
tent of their capabilities will enhance both 
your programming skills and your enjoy- 
ment of your computer. 

Sufficient cautions are given on the 
danger of indiscriminate POKEing and 
other potentially destructive acts. I 
searched in vain, however, for any men- 
tion of the fact that disks should not be 
left in the drives while power is turned on 
or off. 

The inclusion of a short sort routine 
would be extremely helpful. The authors 
skirt this issue in the sections on data 
files by having the data entered in alpha- 
betic order. 

One other annoying, although minor, 
point deserves mention. There are too 
many Radio Shack ads in this book! By 
following the advice of the authors, the 
reader would end up with Radio Shack 
disk drives, disks, power strip, disk box 
and bulk eraser, not to mention software. 



'Excellent summaries 
are found (for) 
each chapter." 



All in all, this book was a pleasure to 
work through. It was both entertaining 
and educational, will be valuable to any- 
one who is interested in getting beyond 
the obvious and who wants to use more of 
the TRS-80's capabilities. ■ 
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More powerful programming tools 
for theTRS 80. Nowon disk. 



Better results. Microsoft's Level III BASIC and Editor/ 
Assembler-Plus are programming tools that help you write 
complex programs in less time, with less effort and util- 
izing less memory. Better programs. No matter what your 
programming skill. And for the first time these tools are 
available on disk. 

Editor/ Assembler-Plus. A powerful editing, assembly and 
debugging tool with many sophisticated features that make 
writing TRS-80 assembly language programs easier, faster 
and more efficient. 

• Full disk capabilities 

• Assembly directly into memory. No need to save object 
code then reload for execution. 

• Macro capability that allows you to define macros for 
commonly used sequences of instructions. 

• Conditional assembly that allows you to generate more 
than one version of a program. 

• Eight breakpoints at a time for program debugging. 

• The INCLUDE statement that allows you to call additional 
disk files for assembly. 

• Other features include extensive operators, automatic 
origin, symbol table printout, quash command, hex. deci- 
mal and octal constants, single step-through instructions 
in memory, five type-out modes, four type-in radices, plus 
extensive edit commands. 

A more powerful BASIC. With Level III BASIC, you get 
power to perform tasks in BASIC that used to require 
assembly language. Plus, new ease-of-use features for 
your TRS-80 

• Advanced graphics. Develop charts, graphs, even anima- 
tion in Level III BASIC Draw a line, an outline box or 



a solid box by specifying just two points. Then save and 
recall it with BASIC commands. 

• MENU. One command that allows you to construct an 
entire menu. 

• CHAIN and COMMON commands allow you to call 
another program and pass variables to it. 

• Powerful editing commands such as COPY/TRANSFER 
FIND and CHANGE 

• DUMP command that makes debugging easier. 

• Time-limit response. New INPUT * LEN and LINE INPUT 
# LEN commands allow you to set a time limit on response. 

• RS-232 output from BASIC. With a single command. 

• More. Level III gives you automatic line numbering. 26 
user-definable single stroke instructions, and more. 

Disk or cassette. Disk versions of Level III and Editor/ 
Assembler-Plus are brand new. Cassette versions are also 
available with many o* the same capabilities. 
Talk to your Microsoft™ dealer. Ask for a demonstration 
of two of the most powerful tools you can get for your 
TRS-80 Level III BASIC and Editor Assembler-Plus. On 
disk or cassette. From Microsoft. 

TRS 80 is a trademark of Radio Shack, a division of Tandy Corporation 
Microsoft 8 a tradeTiarx of Microsoft. Inc 

Microsoft Consj-ner Products is a division of Microsoft. Inc 
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MULTI-PROGRAMMER 

The EE-1470 Multi-Programmer provides a very cost 
effective mass Eprom programming system The EE- 
1470 supports all single supply 2516. 2716. 2532. 
and 2732 Eproms. Erasure verification, device 
programming and data transfer validation are all 
automatic functions Defective Eproms are identi- 
fied and locked out by the EE-1470 on-board micro- 
processor The EE-1470 copies from a mastor Eprom 
up to 10 Eproms simultaneously Validation checks are 
then completed on each Eprom copy. Copy errors or 
defective Eproms are identified by red Fail' LED while 
good copy Eproms are indicated by green Pass LED 
Fast and easy to use in the lab or on the production 
floor The EE-1470 comes complete with internal 
power supply and operation manual 



32K RAM EXPANSION 




At last 
high speed 
memory for 
your TRS-80 or 
DSI AN-7000 
CPU Simply con- 

nect the AN-890 to 

your cup ex- 
pansion connector 

and add an additional 32K of Dynamic Ram with 250 
Nano Second Access Time This unit contains all 
drams and is exercised and tested. The AN-890 
comes complete with power supply and operation 
manual. 



1 2 BIT ANALOG PORT 

sqq.9S 



MODEL l/lll INTERFACE 
549.95 

*** -^^^^^^^^^^ 

Now the 
TRS-80 
Model III user 
can interface 
most port based 
hardware avail- 

able for the TRS-8C 

Model 

Computer. No 

modification of the Model III is required and only 
slight software changes allow Model I hardware 
operation with the Model III system Software 
changes allow Model I hardware operation with the 
Model III system The AN-587 come complete with 
external power supply module and operation 
manual. 




The AN- 
549 Analog 
Port is a track- 
ing 12 bit anal- 
og to digital and 
digital to analog 
^^^^^__ converter 

Conversion 
rate of 50us and 
DAC settling time of 750 nanoseconds provide a 
truly flexible analog interface Simply reading a port 
provides the user with instant real time data 
conversion. The AN-538 comes complete with power 
supply and operation manual 




All connections made to AN-SERIES products from 
your breadboard are simply pushed through the front 
panel Custom ccnnectorson the P.C.B. provide super 
reliable connection for thousands of operations. All 
AN-SERIES products are warrented for a full 90-DAYS 
under DSI's limited warrenty policy. Complete 
documentation is provided for each model in an 
attractive folder, including theory of operation, and 
special interest projects and applications All units are 
supplied with external power supply modules that 
connect through a mini-jack on the front panel. 

C.O.D. add $5.00 - Other add $3.00 S/H. 

DSI DESIGN SOLUTION INC 

BOX 1225, FAYETTEVILLE, AR 72702 

(501) 521-0281 
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DISK CONTROLLER 



DOUBLE DENSITY CONVERTER 



$99.95 




$129. 9S 



An affora- 
able multi- 
drive floppy 
disk interface 
The AN-760 sup- 
ports 35. 40. 80. 
and 160 track drives 
Using propri- 
etary DSI Digital 

Data Separation Techniques, maximum permissible 
data transfer integrity is assured. Read, write, and 
step LED indicators prompt operator during al! disk 
I/O. The AN-760 comes complete with power supply 
module and operation manual. (Operating system 
software optional.) 




8K FIRMWARE INTERFACE 



*84.« 5 




sqq 



8K Bytes 
of User 
Programable 
Firmware (4- 
2716 Eproms) 
are automatically 
loaded by system 
/1 2345 Com- 
mand controlled 
by a 2716 controller chip The user can create his 
own firm operating system to load and execute 
programs from Eprom or to provide user defined 
arithmetic functions. Comes complete with power 
supply, operation manual and controller chip (The 
AN-522 requires AN-551 Eprom programmer ) 

EPROM PROGRAMMER 



sqg.fs 




$8g 



An 
enhanced 
version of our 
original Eprom 
Programmer, the 
AN-551 will now 
program the single 
supply 2516, 
2716, 2532, and 
2732 Eproms from basic or machine language. 
Software provided will load Eprom from TRS-80 
Ram or load TRS-80 Ram from Eprom with 
complete on-screen verification. The AN-551 comes 
complete with power supply and operation manual. 



Using DSI 
Proprietary 
Data Sepera- 
tion and Write 
Precompensation 
Techniques The 
AN-920 provides 
approximate- 
ly 1 .6 times more 
data storage capacity on your 5' i disk drives. The 
AN-920 can be used in conjunction with the AN-760 
FDC or the TRS-80 expansion interface Double 
Density System comes complete with power supply 
module and operation manual (Required Newdos- 
80 Ver 2.0 Disk Operating System Optional.) 

MULTI-RANGE DVM INTERFACE 

Analog 
Signal Inter- 
face is now as 
easy as turning 
a knob. EE-1670 
provides DVM 
functions volts, and 
miiii-amps 
and 8 ranges. 0- 

200 millivolts 0-2 0-20 0-200 volts 0-200 nano 
amps. 0-2 0-20 0-200 milhamps. standard banana 
jacks and test leads create perfect connection 
scheme for real time analog data aquisition EE-1670 
system is complete with power supply and manual 
of operation 

RS-232 INTERFACE 
.95 

Can be 
configured 
to communi- 
cate with data 
communications 
equipment or data 
terminal equipment 
at 110. 150, 
300, 600, 1200, 
2400. 4800 and 9600 Baud. The AN-464 provides 
20MA loop output and RS-232C through a DB-25P 
connector Software selectable odd/even parity. 5-8 
bit word lengths and stop bit formats are standard 
along with power supply module, software driver, and 
operation manual. 
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DSI AN-7000 COMPUTER 



True TRS-80 '" work-a-like capability is now 
available in kit form from DSI. The AN-7000 
provides a full 16K of dynamic ram, with a 
complete modulated video interface system for 
use with standard televisions, Z-80B Micro- 
processor, cassette interface, membrane keyboard, 
finished case and power supply module, as well as 
every component needed for ROM-less assembly Save 
hundreds of dollars by assembling the AN-7000 proces- 
sor yourself with only common hand tools. Step by step 
instructions with clear cut pictorials and schematics create a very straight-forward work environment as 
you assemble your own system from scratch Totally flexible, the AN-7000 will interface with all Model I 
Level II hardware accessories including the DSI AN-760 FDC and AN-1000 Megadnves. The AN-7000 
system represents the most significant break-through in user assembled computer equipment available 
The AN-7000 kit comes complete with all parts necessary for a full 16K. Z-80 based CPU. less the 12K 
basic interpreter ROMS. 




WW* 



New DOS 80 ver 2.0 is available at special 
package purchase rates for the AN-760 and 
AN-1000. Contact DSI for complete 
DOS pricing. 



A Registered Microsoft tf TRS-80 Level II work-a-like 3 
chip set with manual and complete documentation is 
available for the AN-7000 The Microsoft-DSI basic 
package lists at $89 95 



DSI MEGADRIVE 




$590. oo 




This single or double density 
80 track dual sides 5 V floppy 
disk drive is a must for all 
serious TRS-80 and DSI 
system users. With almost 1 
million bytes of unformated data 
storage capacity in the MFM double 
density mode the AN-1000 provides the 
utmost in stability of performance at a 
very reasonable price. Track to track 
access time 3 ms. soft error rate 1-10 J reads, 
hard errors 1-10 reads, and media life 4x10 . 
clearly represent the AN-1000 technology Complete 
with power supply, case, cable and operation 
manual 
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PRINTER/RTC INTERFACE 

Operate 
your printer 
from the AN- 
435"s 
Centronics " 
compatible par- 
allel printer inter- 
face Paper 
out and busy 

LEDS prompt the operator of printer status at all 
times The AN-435 also contains a DOS compatible 
real time clock complete with RTC Heartbeat LED 
indicator The AN-435 comes complete with power 
supply module and operating manual 




AUDIO SIGNAL PROCESSOR 

The TRS- 
80 owner is 
now free to 
interface audio 
information with 
his computer 
Music, voice, sound 
effects, etc 
can all be entered 

as digital data and saved or manipulated with the 
TRS-80 Digitally created sounds are available as 
music, speech, sound effects etc. through on-board 
amp-speaker system The AN-610 comes complete 
with power supply module and operating manual 




DIGITAL PORT INTERFACE 

S S4*V- TheAN- 

511 Digital 
Port Interface 
provides 8 bits 
of input data and 
8 bits of output 
data 8 decoded 
port addresses are 
also presented for 
use in strob- 
ing external data 

'atches etc. The Z-80 data bus is also terminated on 
:he AN-511 front panel for raw data requirements 
The AN-511 comes complete with power supply and 
)peration manual 




ADDRESS-DATA BUFFER 
$5q.95 

When 2 or 
more AN- 
senes devices 
are connected 
to a system the 
AN-213 Data 
Address buffer is 
required for 
proper operation 

of the TRS-80. The AN-213 s Bi-directional data bus 
buffer and 16 bit address buffer provide adequate 
fan-out for up to «i additional AN-senes products 
Unit comes complete with external power supply 
module and operation manual 




8 BIT ANALOG PORT 
*8d.95 




8 CHANNEL ADC 
$84.95 



The AN- 
538 Analog 
Port is a track- 
ing 8 bit analog 
to digital and 
digital to analog 

converter 
Conversion 
r ?te of 3us and 

DAC settling time of 85 nanoseconds provide a truly 
flexible analog interface Simply reading a port 
provides the user with instant real time data 
conversion The AN-538 comes complete with power 
supply and operation manual 




8 channels 
of analog 
signals are all 
internally multi- 
plexed and 
encoded by the 
AN-460 ADC 8 bit 
data values 
are recovered 

from each of the 8 analog signal channels through a 
convenient port based scheme providing the TRS-80 
user with 8 simultaneous A-D conversions The AN- 
460 comes complete with power supply and 
operation manual 



- See Listol Advertisers on pagr 4 I 8 
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NEW PRODUCTS 



Edited by Janet Fiderio 



Fea turing — Orches tra -85 
Interface your TRS-80 with Stereo Music Synthesis and Percussion. 




Orches tra-85 



Stereo Music Synthesis 

Stereo music synthesis and percus- 
sion are now possible with Orches- 
tra-85, a software/hardware product. 

Stereo separation is by instrument, 
allowing the user to play trumpet and 
oboe simultaneously through channel 
A while playing clarinet and organ 
through channel B. Instruments may 
be switched from channel to channel 
at any time. The software supports 
five-part harmony for use with 2.66, 



3.54, and 4.0 Mhz clock speeds. 

Orchestra-85 includes tape and disk 
versions plus sample music files on 
cassette, and a fully assembled PC 
board which plugs into any 16K Model 
I, Level II without voiding the warranty. 
The stereo output may be connected to 
the Aux/Tape/Tuner inputs of any 
stereo amplifier. 

For more detailed information, con- 
tact Software Affair, 858 Rubis Dr., 
Sunnyvale. CA 94087. (408) 295-9195. 
The system is priced at $129.95. 

Reader Service ^163 



Software 

For Business Management 

Century Software Systems is offering 
three new professional business systems 
for the TRS-80 Model II. 

Business Management I is a financial/ 
capital budgeting system which analyzes 
cash flows, internal rate of return, and var- 
ious depreciation methods in accordance 
with the Economic Recovery Tax Act of 
1981. 

Business Management II is a complete 
system for the lease versus purchase 



decision. The purchase may include multi- 
loans, investment tax credit and various 
depreciation options and more. 

Business Management III is a statis- 
tical system which performs statistical 
analysis for multi-observations on up to 
six variables. 

Each system is on a single eight-inch 
disk TRSDOS Version 2.0A. All programs 
are user-oriented and priced at $125, $100 
and $110 respectively and are available 
from Century Software Systems, 1875 
Century Park East, Suite 1730, Los 
Angeles. CA 90067, (213) 879-5911. 

Reader Service ^178 



Map the Skies 



The Star Search Astronomy Guide in- 
stantly provides a map of the skies for any 
date or time entered. 

Double stars, galactic and planetary 
nebula, open and globular clusters, and 
the external galaxies are all graphically 
plotted to scale according to their polar 
coordinates. The program employs a split 
screen to simultaneously display perti- 
nent data for each object started. 

This astronomy guide is available from 
Softbyte Computing, Box 217, Walling- 
ford, CT 06492. 

Reader Service ^348 



Micros pel I Recognizes 
Grammatical Tenses 



Microspell is now available in an im- 
proved version from Lifeboat Associates. 

The new version 4.2, provides more than 
a dictionary program that scans for spell- 
ing errors. Microspell now stores prefixes, 
suffixes and roots, enabling it to recog- 
nize spellings and grammatical tenses. 

This CP/M based program runs on the 
Model II and is priced at $249. Additional 
inquiries should be addressed to Lifeboat 
Associates, 1651 Third Ave., New York, NY 
10028, (212)8600300. 

Reader Service ^167 



Uniterm 



Uniterm is a TRS-80 intelligent terminal 
program designed for both the Model I 
and Model III. It includes the following in- 
telligent terminal features: auto log-on, 
auto polling messages, user redefined 
keys, user definable video display width, 
type to buffer, review buffer, and more. 
The program will operate with most 
popular modems. 

Uniterm is being distributed by B.T. 
Enterprises, 171 Hawkins Rd., Center- 
each, NY 11720, (516)981-8568 and retails 
for $79.95. 

Reader Service ^344 
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Data 

Acquisition Module 

ADAM is a low-cost analog Data ac- 
quisition module available from Small 
System Design. It is a plug-in module 
allowing you to monitor a large variety of 
analog sensors or transducers. These 
devices include thermistor temperature 
sensors, solar radiation pyronometers, 
meteorological (wind speed, wind direc- 
tion, barometric pressure) sensing de- 
vices and electrical current sensors. In ad- 
dition, simple on/off (digital) devices can 
be monitored. 

ADAM is available in two models priced 
at $190 and $250. For more detailed infor- 
mation contact Small System Design, Box 
4546, Manchester, NH 03108, (603) 
432-7929. 

Reader Service ^343 

A Statistical 

Package for the TRS-80 

A new statistical package for the micro- 
computer, is now available for the Models 
I or III on cassette or disk. 

SPM consists of five programs that per- 
form descriptive statistics, analysis of 
variance (one or two way), and single and 
multiple variable regression. Features in- 
clude analysis of variance, with unequal 
sample sizes, flexibility in formatting Post 
Hoc and planned comparison analysis 
and computation of percentile ranks of F 
ratio statistics, and additional features. 

The multiple linear regression program 
allows for testing of significance of Beta 
weights, gives regression statistics for 
any subcorrelation matrix, and more. 

SPM is priced at $79.95 from Bruce P. 
Douglas. 20 Willow, Vermilion, SD 57069. 

Reader Service *^326 



Prevent Static 
Electricity Problems 

Anti-Stat, an anti-static spray, is espe- 
cially effective in preventing the problems 
that static electricity causes in most com- 
puter environments such as unusual 
equipment operation, lost data and pro- 
grams, damage to computer memories, 
and more. Anti-Stat can also add extra 
protection to static eliminator mats. 

Priced at $4.95, this product is 
marketed by Micro Data Processing and 
Systems Inc., 5636 Haddington Lane, 
Philadelphia, PA 19131, (215) 473-6419. 

Reader Service ^346 




The ADAM Data Acquisition Module. 



Finance Program #1 

Finance Program # 1 is a home-business 
software package that extends the use of 
the Color Computer to the practical ap- 
plications of finance. 

This program package is divided into 
two categories, loans and investments. 
The loan program performs the following: 
discount of commercial paper; principle, 
regular paymant, remaining balance, and 
term of a loan; mortgage amortization 
table; and more. 

The Investments program performs: 
future value of investment and regular 
deposits, initial investment, minimum in- 
vestment for withdrawals, earned interest 
table, and more. 

Finance Program #1 is priced at $21.95 
and is available from Computerware, Box 



668, 1512 Encinitas Blvd., Encinitas, CA 
92024,(714)436-3512. 
Reader Service ^160 



New PROM Burner 

Apparat Inc., has announced their new 
PROM Burner for the TRS-80 I and II. This 
PROM Blasting system (A.P.B.) will pro- 
gram nine different Eproms (of the 24 pin 
variety) on the same board. 

The package includes the interface 
card, a complete set of personality mod- 
ules, software on disk and a detailed in- 
struction manual. The cost of the A.P.B. 
system is $149 from Apparat Inc., 4401 S. 
Tamarac Parkway, Denver, CO 80237, 
(303)741-1778. 

Reader Service ^335 







The PROM Burner. 






80 Microcomputing, December 1981 • 89 



NEW PRODUCTS 




TheLTPen-80. 



The LTPEN-80 



The LTPEN-80 is a TRS-80 Model I and 
III compatible lightpen with extended soft- 
ware capabilities. 

A machine language program adds five 
functions to Level II or Disk Basic allowing 
the user to select any (X,Y) point or 
character position by pointing the pen. A 
teaching program and a graphic input pro- 
gram are also included in the software 
package. 

The pen and software cassette are 
available for $27.95 from Syntex Elec- 
tronic Innovations. Box 4034; Lancaster 
PA 17604,(717)733-4769. 

Reader Service ^328 



Trucker, You're 
In the Driver's Seat 

Trucker, a new simulation game by 
Creative Computing Software, enables 
you to sit in the driver's seat awhile. 

Simulating the travails of a cross coun- 
try trip in an 18-wheeler. the player must 
choose a route from Los Angeles to New 
York as well as decide on a cargo. While 
traveling along interstates and back 
roads, flat tires, sudden blizzards, dense 
fogs, and intensive road construction are 
just some of the hazards that may be 
experienced. 

Trucker is available together on a disk 
with Streets of the City, a simulation 
modeled on Grand Rapids, Ml. 

The cost of these programs is $24.95 
on cassette or disk. For more information 



contact Creative Computing Software, 39 
E. Hanover Ave., Morris Plains, NJ 07950, 
(201)540-0445. 

Reader Service ^340 



Stretch Super Step 

Stretch Super Step is a third generation 
machine language monitor program for 
the Models I and III with 32K— 48K of 
memory. The program has three func- 
tional segments and printer control (Line 
Printer IV). Stretch Super Step is an aid in 
debugging and analyzing machine code 
programs. 

Its three functional segments are: 
FLTCUR, a byte-oriented text editor with 
floating cursor and autorepeat; SPRSTP, 
the single step/Trace/dissassembler, a 
Z80 instruction-level simulator running on 
the Z80; and BUFSTF, a user-definable 
buffer with special window controls to 
view large code segments in eight formats. 

Priced at $49.95, this product is avail- 
able from Allen Gelder Software. Box 
11721 Main Post Office. San Francisco. 
CA 94101. 

Reader Service ^168 



Original Adventure Now 
Available for the TRS-80 

Lost treasures, underground caverns, 
giant clams, nasty dwarves, and more- 
all must be faced by those who enter the 



world of Original Adventure. Original Ad- 
venture makes no compromises from the 
original game written for much larger 
mainframe computers. It is currently avail- 
able on disk for CP/M (as a bi-lingual En- 
glish/French program) and TRS-80 users. 

Disks are priced at $24.95 each. 

For more information write Creative 
Computing Software, 39 E. Hanover Ave., 
Morris Plains, NJ 07950, (201) 540-0445. 

Reader Service ^349 



Sabtronics 2020 
Digital Multi-meter 

Sabtronics announces their new Model 
2020 Digital Multi-meter with micropro- 
cessor interfaces. Optical coupling be- 
tween the DMM and the computer pro- 
tects the computer from damage and also 
isolates ground noises that can affect 
sensitive measurements. The Model 2020 
is equipped with all cabling and I/O sup- 
port necessary for the TRS-80. 

Some applications include: the sam- 
pling of periodic measurements to gener- 
ate statistical data that can be numerical- 
ly reduced for graphic presentation: 
catching intermittent current or voltage 

problems by monitoring the circuit; plot- 
ting the effects of power supply drift ver- 
sus time, temperature or input voltages: 
and more. 

Contact Sabtronics International, Inc. 
5709 N. 50th St., Tampa. FL 33610. (813) 
623-2631. 

Reader Service ^173 



For Amateur 
Radio Operators 



Master Gator Software is now market- 
ing four programs for Amateur Radio 
operators. 

The first, WAS (Worked All Stations), 
keeps records of radio contacts with each 
of the 50 states and assists the operator 
with a current list of who was contacted, 
where and when. 5BWAS (5-Band Worked 
All States), the second program, main- 
tains data for five different radio bands. 
The third program. DXCC, keeps track of 
radio contacts between the owners sta- 
tion and each of the 319 countries world- 
wide. The last program, Dupe Checker, is 
used by a contest operator to purge all 
duplicate contacts during a contest. 

Prices are as follows: WAS — $8, 
5BWAS— $12, DXCC— $10, and Dupe 
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THE NEW LAREDO LS525. 

WHEN YOU'RE READY 

TO GET DOWN TO BUSINESS. 



Laredo Systems, Inc. introduces the 
LS52 5 five megabyte rigid disk memory 
system for TRS80 Models I and III. 
Laredo's LS525 rounds up a Seagate 
ST506 Drive. LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 
controller that emulates the famed IBM 
3370 disk system, complete with: 
• Improved read write seek access time 
through full block buffering and variably 
tuned interleave. 



• Onboard data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

• Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through October 1 . 1981 buy the 
LS525 for the OEM dealer price of 
$2990. a savings of $760 off the usual 
suggested retail price of $37 50. 

LDOS Operating System 
with manual and diskette 
available for $149. 



For more information about the LS525 
Memory System and the LSI 500 Series 
Controller, contact: Laredo Systems, Inc. 
2264 Calle de Luna, ^ 26 

Santa Clara, CA 95050 
(408)980-1888 




kircclo 393tanv> Inc. 



• See List of Advertisers on page 4 18 
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Checker— $8. For additional information 
contact Master Gator Software, Box 10, 
Alachua, FL 32615. 
Reader Service ^339 



Especially for Children 

A new book written especially for chil- 
dren, A Young Persons Guide to Micro- 
computers, is currently being marketed by 
Scelbi Publications. 

Starting with an abbreviated history of 
the computer, the book continues with 
simple explanations of how a computer 
works, how to communicate with it, and 
discussions of its purposes. The book is 
heavily illustrated with line drawings and 
photographs designed to appeal to young 
people. 

Priced at $7.95, this softcover book can 
be ordered from Scelbi Publications, 35 
Old State Rd.. Oxford, CT 06483. 

Reader Service ^162 



DEBUG on Cassette 

DEBUG, an easy-to-use monitor for 
writing and debugging Z80 machine lan- 
guage programs, is now available in 
cassette form for the Model I and III. 

DEBUG enables the user to: display 
blocks of memory and the Z80 registers in 
two different ways; modify individual Z80 
registers, memory locations, or an entire 
machine language program; jump to a 
program and begin execution; insert 
breakpoints in a program; single-step exe- 
cution of programs; write programs to 
data or tape; and load programs or data in- 
to memory from a tape. 

This product uses the memory area 
from 4200H to 39FFH and can only be 
used on programs in the user area from 
4A00H to the end of memory. 

Marketed by Radio Shack, DEBUG is 
sold for $19.95. 

Reader Service #^341 



Reference Card for Basic 
and Assembler Manuals 

The TRS-80 Basic and Assembler Sys- 
tem Reference Card completely summa- 
rizes the Basic and Assembler manuals. 

Features include: Basic Commands, 
functions, and statements; load, move, 
and branch instructions; shift, compare, 
and math instructions; store instructions; 
I/O instructions; ROM routines; Assem- 




The Keyboard Companion. 

bier instructions, commands, and opera- 
tors; and more. 

This reference card is sold for $4.95 
from Nanos Systems, Inc. Box 24344, 
Speedway, IN 46224. 

Reader Service ^338 



The Keyboard Companion 

The Keyboard Companion is a small 
(11 by 16-inch or 11 by 29-inch) desk top 
that sits between the screen and 
keyboard of a computer terminal. Sup- 
plied with pedestals that lift the video ter- 
minal to eye level, the removable desk top 
is attached to the keyboard and raised 
video screen by Velcro fasteners. 

The complete package including pedes- 
tals is available for the Model I at $72 and 
the Model II at $79.50 from PKay Corpora- 
tion, Box 11463, Costa Mesa, CA 92627, 
(714)548-2081. 

Reader Service ^325 



Color Computer 
System Monitor 

TRSMON is a 2K operating system 
designed for use with the TRS-80 Color 
Computer System. 

It provides the standard functions 



found in most system monitors as well as 
a printer/terminal driver package. 

Printer Terminal modes can be used at 
rates varying from 300 to 9600 baud, and 
changed at any time. TRSMON com- 
mands are a minimum of two characters 
followed by their respective parameters. 
The command input line is buffered and 
will recognize the backspace. Break and 
Enter key for error-free entry of command 
sequences. 

TRSMON is available on cassette for 
$19.95, on a 2716 EPROM for $34.95. and 
for Extended Basic Socket at $34.95. For 
more information contact Cer-Comp, 5566 
Richochet Ave., Las Vegas, NV 89110, 
(702) 452-0632. 

Reader Service ^337 



Shuffleboard III 

Shuffleboard III is a 64K CP/M 2.2 
system for the TRS-80 Model III. 

Using a memory mapping technique to 
allow the use of standard CP/M 
(TPA = 100), Shuffleboard Is more than a 
memory mapper; it is a sophisticated 
memory manager that expands the Model 
Ill's memory space to 88K. 

Shuffleboard comes with 16K of RAM 
and 2K of ROM (expandable to 8K). This 
allows a full 64K CP/M system to be used 
without any interference from the Level III 
ROM or video memory. 

The Shuffleboard III package includes 
16K of RAM, 2K of ROM, Maxi-disk CP/M 
2.2, seven CP/M manuals, installation in- 
structions and a six-month warranty. For 
more detailed information contact Para- 
sitic Engineering, 1101 Ninth Ave., Oak- 
land, CA 94606, (415) 839-2636. 

Reader Service »^164 



A Dental Office 
Management Program 

Dentistaid is a dental office manage- 
ment program designed to streamline all 
the major time-consuming tasks per- 
formed in the dental office. 

The menu-oriented program will auto- 
matically print standard ADA insurance 
forms, prequalification and actual ser- 
vices, monthly statements, patient recall 
notices, accounts receivable aging re- 
ports, daily summary of work performed 
and payments received, and more. An ad- 
vantage of Dentistaid is the simplicity of 
operation and automatic generation of 
many forms and reports that give the den- 
tist better practice control. 
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Then Parallel Process! 

CUE is a programmable processor which 
rapidly accepts from your computer data to be 
printed and then goes off-line to drive the printer 
—independent of your computer, which is now 
free. CUE is better tha 1 1 s* ft n are spooling 
none of your computer's memory, processing 
powe\ drives are tied up. CLE is available 

in parallel, serial, or with both in 2- and 4-port 
models (connect several printers or computers) 
with from 16K to MK memory. Use as an interface 

ft McroCompcrtble 

RO Box 7624 Atanla GA 30357 (404)87^8366 



Mc«iM9lnaft29* 



Software. 
For the 80s. 

Pensadyne Computer Services The organization that has brought 
affordable software to hundreds of users in the over 40 of the United 
Slatee and 16 countries around the world The organization win the 
people, the support, the service and ihe expertise to bring you the 
Highest quality products available 

Penta-wrlte 1 - Our BASIC word processing system for ihe 
owner who requires performance at low coat Many of the features 
of more expensive word processing systems at a fraction of the cost 
Comes complete with mailing list capable of handling 300 names 
$19 95 (Specify Model I or Model II 1 1 

Penis- writs 2 A machine language word processing system for 
the TRS-80 Model I or III with the power and speed that >s really 
needed in a word processing environment Word wrap around, 
unlimited insert and delete, block moves, chaining of files. 20 user 
definable commands. ASCII control code generation for printed 
output to allow subscripts, superscripts, underlining or any other 
feature your printer supports, and much more. All this in a package 
that costs iust $79 95 Manual SiO 00 Deductabie. (See full page ad 
id April. 1961 60-Microcom puling for a full description). 

Software publishing Pensadyne is now publishing software for 
independent software authors. Send SASE for completo details or 
send machine readable copy of your program with any 
documentation TRS-60 Model I, II, III and Colour Computer fully 
supported. Subject materiel unlimited, 

Now. with thai kind ol record, and these products and services, 
aren't you just a little curious about Pensadyne Computer Services? 

Vise end Mastercharge orders welcome Phone orders welcome 
or write, specifying system configuration, and product desired 
Pieese add $1 00 for first class shipping. 

PENSADYNE - Giving you the power to think. 




s?K?£U 



.Ml 



COMPUTER SERVICES 
4441 WEST FIRST AVE VANCOUVER BC V6R4H9 604-224-3107 



BASIC Is "* not Marly .is slow 
as most programmers think 

I 'I ft Faster and Better shows you how to 
supercharge your BASIC with 300 pages of 
fast, functions and 
subroutines 

You won't rind any trivial poorly designed 
check- book balancing' programs in this 
book - Iff packed with useful programs 

Tutorial foT the beginner, instructive for 
the advanced. and invaluable (or the pro- 
fessional, this book doesn't just talk. it 
shows how* All routines are also available on 
dtak M that yon OKI «.ave hours of 
keyboarding and debugging 

The • I disk BFBM V I HIM all the 
demonstration programs, and # 2 BFBUB has 
all the library functions 

BASIC Faster A Better is $29.95. and the two 
program disks are $19 95 each 
lift the book and nr dtsfcl lYoiD vour local 
I Hi Mlln and B. Dalton bookstores 




^Se* l to ol MmrtiBison tug* 4itj 



1260 W. Foothill Blvd. 
Upland. California 91786 

(714)946-5805 
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All programs are available for the Mod- 
els I and III on cassette or disk for $120. 
Direct inquiries to Hayden Book Com- 
pany, Inc., 50 Essex St., Rochelle Park, NJ 
07662.(201)843-0550. 

Reader Service ^161 



The Color Buffer 

TBH is currently marketing the Color 
Buffer, a new peripheral for the Color 
Computer. The buffer gains access to the 
system bus through the game slot car- 
tridge and terminates in the standard 
22/44 card edge connector, providing easy 
access to fully buffered address, data and 
control lines. 

Also serving as a building block, the 
buffer will allow the user to plug in a vari- 
ety of peripherals due on the market later 
this year including a RAM Cartridge, serial 
and parallel I/O board and an EPROM 
programmer. 

Cost of the Color Buffer is $59.95. Fur- 
ther information may be obtained from 
TBH Canada. 67-3691 Albion Rd, Ottawa, 
Ontario. Canada KIT 1P2. 

Reader Service ^333 



to the TRS-80 bus port and will deliver 
date, time AM/PM, and day of the week 
without user input at powerup. 

This product is available for the Model I 
at $99.95 or for the Model III at $109.95. 
Direct inquiries to B.T. Enterprises. 171 
Hawkins Rd.. Centereach. NY 11720. (516) 
981-8568. 

Reader Service ^345 

Series Focuses on 
Programming Techniques 

Annotated Basic is a five volume series 
that focuses on Basic programming tech- 
niques rather than just commands and 
statements. 

The book includes useful programs 
written in TRS-80 Level II Basic. Each 



A Hardware/ 
Clock Calendar 




Tic-Toc-80 is a hardware/clock calendar 
for the TRS-80 Models I and III. The device 
features an easy-to-use plug attachment 



The Voltage Surge and Transient 
Suppressor. 



chapter includes a documented program, 
annotation describing what goes on in 
specific lines, a discussion of the new 
Basic concepts implemented, and for the 
more involved listings a flowchart. 

Contact Wayne Green Books, Dealer 
Sales, Peterborough, NH 03458 for addi- 
tional information. 

Reader Service *^334 



The Servant 3.2 

The Servant 3.2 Information Processor 
gives any user the ability to store informa- 
tion regardless of programming or com- 
puter knowledge through a series of sim- 
ple prompts. 

Features of this product include: up to 
20 categories of information, graphic in- 
struction, a machine language sort, up- 
dating of numeric categories by any 
percentage, and a text editor with a form 
letter generator. 

This package is currently available for 
the Model I and III and is priced at $79.95. 
Contact The Computer Connection, 13359 
Killion St., Van Nuys, CA 91401, (213) 
475-9431 for additional information. 

Reader Service ^342 



Synchronous Software 

Synch is a 2780/3780 IBM binary synch- 
ronous software communications pack- 
age for the TRS-80 Model II. 

Synch emulates 2770. 2780, and 3780- 
type bi-synch work stations at up to 9600 
baud. The software supports transparen- 
cy, buffer expansion (128, 256 and 512 
bytes), space compression, processor in- 
terrupt (RVI), and multi-point. 

Synch provides remote job entry capa- 
bility and automatic features which allow 
up to 100 files to be queued for unattend- 
ed operation. 

Available from Westico, Inc. 25 Van 
Zant St., Norwalk, CT 06855, (203) 
853-6880. Synch is priced at $500. 

Reader Service ^327 



Electronically 

Remove Voltage Changes 

The Voltage Surge and Transient Sup- 
pressor electronically removes or greatly 
reduces sudden voltage changes that can 
affect the performance or catastrophic 
failure of sensitive electronic equipment. 

The suppressor is plugged into an ac 
line power receptacle on the same 15 amp 
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breaker circuit as the equipment being 
protected. Solid-state semi-conductors 
clip all overvoltage surges beyond 132 
Vac, and a passive filter snubs high fre- 
quency transients which might occur over 
the full input voltage waveform. A 2 amp 
internal fuse provides safety overload 
protection. 

This product is available from Cuesta 
Systems Inc., 3440 Roberto Court, San 
Louis Obispo, CA 93401, (805) 541-4160. 

Reader Service ^172 



The International 
Computer Dictionary 

The International Computer Diction- 
ary(IMD), is a pocket guide containing 
definitions of important terms, acronyms 
(with pronunciations) and numbers used 
in computer jargon. In addition it provides 
a ten language vocabulary of essential 
computer terms. 

This is a revised and expanded version 
of Sybex's Microprocessor Lexicon con- 
taining over 1600 definitions arranged 
alphabetically. Also useful is the "Num- 
bers Game," a list of electronic parts num- 
bers common in everyday microcomputer 
parlance. 

For additional information Contact 
Sybex Inc., 2344 Sixth St., Berkeley, CA 
94710,(415)848-8233. 

Reader Service ^331 

Micro Newsletter for 
Medical Professionals 

The Micro Medical Newsletter is a pub- 
lication dealing with microcomputer uses 
within the medical profession. The current 
issue provides a detailed review of ac- 
counting and claim management systems 
available for the leading micro systems 
and more. 

The current issue is available free to 
practicing physicians and health profes- 
sionals from Charles Mann & Associates, 
Micro Medical Newsletter, 7594 San Remo 
Trail, Yucca Valley, CA 92284, (714) 
365-9718. 

Reader Service ^336 

The Micro Advisor 

A new source of information and advice 
on microcomputers is now online. The 
Micro Advisor (TMA), is accessible 
through the CompuServe Information Net- 
work to anyone with a terminal or per- 
sonal computer. 

TMA contains information of interest to 



is is an exa/rple of the screer 
isplay using the 

WC^D PROCESSING LOEFKIT (tin) 

is photograph *i*as taken of an 
ordinary television screen bein<J 
ted by a Color Computer urmcdi-" 
led except for the installation 
jo the touerfcit. Characters: 

PECE€TGHIJl<mCfa3SnMC<YZ»CJ 

abcdefgh i jk IsirwcqrstuvwqjzJ* 

4234567SB8! -«:^0 :*-=;+,<. >A 

Screen Display with the Word Processing Lowerkit. 



anyone using microcomputers. Features 
include: a question/answer program for- 
um on microcomputers a list of micro 
publications (including newsletters); a na- 
tionwide list of computer clubs; a new 
products section, and more. 

CompuServe subscribers can use the 
Micro Advisor by accessing TMA while in 
CIS. Others who are interested should 
contact Battery Lane Information Servic- 
es, Box 30214, Bethesda, MD 20814, (301) 
770-2726. 

Reader Service ^-170 

Displays True 
Upper and Lowercase 

The Word Processing Lowerkit is a 
3V2-inch-square piggyback board de- 
signed to press in place, without solder- 
ing, inside the TRS-80 Color Computer. 

The purpose of the Lowerkit is to dis- 
play true upper and lowercase characters. 
As an added feature the kit uses a 7 by 9 
dot matrix for display (rather than the 
built-in 5 by 7 matrix) for large, clear let- 
ters. All characters have descenders 
where necessary (comma, semi-colon, 
lowercase letters g.j.p.q.y). The character 
set in the standard generator is fully 
compatible with the normal Color Com- 
puter character set. with the exception 
that lowercase letters are correctly 
displayed. 

For more detailed information contact 
MSB Electronics, Drawer 766, Barre, VT 
05641,(802)476-7311. 

Reader Service ^165 



CalcStar— 

An Electronic Spreadsheet 

CalcStar is an electronic spread sheet 
program that eliminates the need for led- 
ger paper and calculators when solving 
complex mathematical problems. 

Based on CP/M, it is useful for projects 
such as budget plans, sales forecasts, 
cash flow analysis, and more. CalcStar 
allows the user to design a ledger sheet 
on the video screen. Columns may vary 
from three to 63 characters with as many 
as 600 figures entered in any one spread 
sheet. 

Available for the Model II at $295. 
CalcStar is soon to be released in a Model 
I and III format for $150. For additional in- 
formation contact MicroPro International 
Corp., 1299 Fourth St., San Rafael, CA 
94901.(415)499-0919. 
Reader Service ^166 



The Color Data Organizer 

Computerware is now marketing the 
Color Data Organizer on cassette for the 
Color Computer. It is a small inventory 
program; a cross reference system; a 
valuables record, serial numbers, and 
credit card storage system. It stores, re- 
trieves, sorts, prints, and totals whatever 
you want within the two numeric and two 
string entries. The Organizer can hold 125 
records in a 16K Color Computer. 

Priced at $24.95, this product is avail- 
able from Computerware. Box 668. 1472 
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The Tyrop Electronic Typewriter Adapter. 



Encinitas Blvd., Encinitas, CA 92024, (714) 
436-3512. 

Reader Service ^350 



Electronic 
Typewriter Adapter 

Tyrop, a new electronic Typewriter 
adapter, is designed to convert IBM Selec- 
tric or equivalent electric typewriters into 
computer output printers. 

The device features a printing speed of 
600 characters per minute, a variety of 
computer interfaces, and a built-in self- 
diagnostic function enabling users to 
monitor printing functions easily. 

Retailing for under $1000, Tyrop is avail- 
able from Hollander Office Products, 41 
Duesenburg Drive, Suite B, Thousand 
Oaks, CA 91362, (805) 496-2533. 

Reader Service ^175 



Real Estate 
Office Management 

The Real Estate Office Management 
software package (ROM) can handle one 
or more offices with one or more profit 
centers. It also includes a general ledger 
that provides profit and loss statements, 
balance sheets, trial balances and trans- 
action registers. 

ROM allows for office and division bud- 
geting with monthly, year-to-date and op- 
erating statement comparisons. The ac- 
counts payable section includes a check- 
writer that will provide monthly checks for 



ongoing items, such as mortgage and rent 
payments. 

For more information on this compre- 
hensive system contact Reality Automa- 
tion Inc., 221 North Lois, La Habra, CA 
90631,(213)947-2762. 

Reader Service »^171 



Accountants 
Microsystems Inc. 

Accountants Microsystems Inc. (AMI) 
recently announced a complete family of 
software modules for practicing accoun- 
tants. Included in the package are Client 



Write-up, Practice Management, Tax 
Preparation, Tax Planning, Financial Plan- 
ning and Word Processing systems. 

The software operates on CP/M based 
microcomputers and is designed to be 
competitive with larger minicomputer 
systems. Module prices range from $400 
to $2995 and are available for the Model II. 
For further information contact: Accoun- 
tants Microsystem Inc.. 1404 140th 
Place N.E., Bellevue, WA 98007, (206) 
643-2050. 

Reader Service ^179 



The CompuVend 
Computer Equipment Table 

The CompuVend Computer Equipment 
Table is a fully automatic vending system 
that allows independent operation of a 
computer, terminal or additional peripher- 
al equipment. 

Features include: two vending systems 
(The Model 1310 operates on quarters and 
the Model 21 10 on dollar bills); adjustable 
fixed rate of charge per unit of time; vend 
override staff key; cumulative time capa- 
bility; multiple equipment usage; dual 
vend (simultaneous vending of two pieces 
of computer equipment at different rates 
per unit of time); record keeping; security 
features; and more. 

The Model 1310 is priced at $1650, the 
Model 21 10 at $2475. For more detailed in- 
formation contact CompuVend Computer 
Systems Inc., Box 73, Williamstown, NJ 
08094, (609) 778-0566. 

Reader Service ^332 




The CompuVend Table. 
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THE BIGGEST NAME IN LITTLE COMPUTERS"? 

TRS-60 Model H— Your Best Buy 
In a Business Microcomputer 




TRS-80 computers, on 

software and peripherals 

Similor values on all merchandise 
CALL COLLECT: 

800-351-1580 

Texas Residents call: 915-283-2920 

Van Horn Office Supply *™ 

70 1 W. Broadway - P O Box 1060 
Van Horn, Texas 79855 

DEALER G055 

Form F48 Provided 

Standard Warranty in Effect 

THE NATIONWIDE SUPERMARKET OF SOUND* 




Ourongionai Super Utility was hard to beat- we tried anyway. Now Kim Watt 
of Breeze Computing. Inc.. offers you SUPER UTILITY PLUS: an exceptional 
completely rewritten program, including in excess of 70 possible programming 
selections In addition, it now operates on Single or Double Density throughout 
all program utilities. Truely the "Utility of Utilities". 

Listed below are only the highlights of Super Utility Plus's outstanding 
features. 
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FILE 

Display compare and Copy file sectors 

- Locate Iree space files drive status 

- Create files and clear files from disk 
CONFIGURE SYSTEM 
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view Or. if your already as excited about Super 
M O fin *74 <■'.■>. plus -*..■> 00 shipping and handling to 
BREEZE COMPUTING. INC. 
PO Box \<U3 • BeiWey Michigan 48072 

"Michigan residents enclose additional 4'T. sales tan. foreign orders enclose Sill 00 shipping and 
handling C O D orders may order hy fa'.l'ng u- a: <'. I 2X8-9422 ,^76 



REFW AIRE THESAURUS 
INNOVATIVE READY-REFERENCE PROGRAMS 

How many limes have you racked your brain to' |ust the right word 
when wnling an important letter, report, or article? How many times have 
your ideas been misunderstood because the words you used didn't express 
your thoughts clearly and accurately? How many times have your turned in 
a report or mailed an important letter and then hours later Kicked yourself 
for not having thought ol the best and most accurate weds to use at the 
lime you wrote it 

Now. by using the remarkable new REFWARE THESAURUS programs, 
your computer can speedily tmd those words that are on the tip o 1 your 
tongue bui that you can f quite remember at the moment And it tens you 
ho* to speu them 1 

Just slip a REFWARE THESAURUS disk nto you' disk drive Then type 
"i your sentences or paragraphs The compute' wni quick'y otter a va'ietv 
o' alternatives, 'etyping you' sentences of paragraphs with substitute 
possibilities chosen from >ts multi thousand word vocabulary It displays 
the revised sentences on you' monitor or types them on your printer as you 
choose, so that you can mull them over and choose the one that most ac 
cutately expresses whal you REALLY mean lo say 

Having helped thousands ol writers learn to express themselves with 
clarity as editor ol such publications as the World Book Encyclopedia the 
Encyclopedia Americana, and the Reader's Digest Almanac and Yearbook. 
David C Whitney has drawn on decades o' editorial experience to prepare 
the revolutionary REFWARE THESAURUS programs, bringing the speed 
and power of the compute' to the aid of anyone who wishes to improve his 
wrilingor Speaking 

in addition to Ihe specie p'og'ams capable ot substituting suggested 
alternate words lor nouns and adiectives. REFWARE THESAURUS Builder 
enables engineers, physicians, lawyers, educators, business, physicists. 
chemists, and other professionals and specialists to develop their own in 
dividually tailored computer vocabularies ol hard to remember technical 

words 

REFWARE THESAURUS Adjective* 1.0 Order No I001RT $39.95 

Utilizes 6.200 adiectives to assist you in choosing the most accurate 

modifiers to describe nouns and pronouns in your letters, reports, and 

speeches. 

REFWARE THESAURUS Nouns 1.0 Order No 2001RT $39 95 

Draws on a vocabulary of 6.200 nouns to suggest alternates for the names 

ol persons, places, things, and ideas tnat you use m your writing and 

speaking. 

REFWARE THESAURUS Builder 1.0 Order No 5001 RT $149.95 
Series of eight utility programs enables the user to develop specialized 
computer thesaurus disk programs of hard to-remember technical words 
and their alternates lor personal use. Functions independently of Adjec- 
tives and Nouns programs. 

REFWARE THESAURUS User's Manuals: Complete descriptions of use of 
each of the above programs. Included at no additional charge with each of 
program disks listed above. If ordered separately, price of documentation 
is refundable upon receipt of order and payment for program disk 

User's Manual Adjectives Order No. 6001 RT $9.95 

User's Manual Nouns Order No 6002RT $9.95 

User's Manual Builder Order No 6003RT $9.95 

Introductory prices subiect to change after Jan. 1 . 1982 

MINIMUM System Required TRS 80* Mod I or Mod ill 48K with two disk drves 
"A Trademark of Tandy Corporation 



REFWARE* Reference software division David C. Whitney Associates. Inc 

P.O. Box 451. Chappaqua. NY. 10514 
'A trademark of David C. Whitney Associates. Inc. 



Specify Mod 1 1 I or Mod 111 ( I 
Qty Order No 



Title 



Unit Price 




Sales tax (N Y. state residents only) 
Postage and handling 



Enclosed $... . I ) Check ( ) Money Order TOTAL 

Bill ( I Visa i ) MasterCnarge 



Card « 
t.p Date 
Signature 
Name 

Address 



Phone ( 1 



City State Zip 

Mailed First Class but aiiow 3 to « weeks for delivery no C D orders 
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•See List ol Advertisers on page 418 
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Encyclopedia for the THSao* 

What's the key to getting the most from your 
TRS-80*? No, it isn't disk drives or printers or joy 
sticks. It's information Without a continual sup- 
ply of information and ideas, you cannot realize 
the full potential of the TRS-80* 

Our response to the clamor for additional infor- 
mation is the Encyclopedia for the TRS-80*, a ten- 
volume reference work of programs and articles 
carefully selected to help you make the most of 
your microcomputer. You can consider the 
volumes of the Encyclopedia to be an extension of 
the documentation that came with your TRS-80* 
Each book is full of material on programming 
techniques, business, language, hardware, games. 
tutorials, education, ul I I BS and interfacing. 

Unlike conventional encyclopedias, the 
Encyclopedia tor the TRS-80* will never become 
stale or on Units because the volumes of 

cyclopedia are being ItSUtd one-at a-time. 
approximately six weeks apart. This means that 
each new volume will reflect the latest develop- 
.ind di making this a living • n , 

ha for TRS-80* users. 
I • first four volumes are being issued during 
1 98 1 T he remaining volumes w ill be issued during 
the first hah of 1982 The deluxe COLLECTOR S 
EDITION has a handsome green and black hard 
cover with a dust jacket. 
A soft cover edition is also available. 

[>i All rs Please request dtfcouwl information 

.ml catalog when ordering, Mall Dtaflei Dfdtfl 
ATT: Wavne Green Books Dealer Sales 
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Encyclopedia Loader 

The editors at Wayne Green Books want to help 
you use the programs in your tncyclopedia for the 
TRS-80*. So to help you maximize the use of your 
microcomputing time, we created Encyclopedia 
Loader'*. 

By a special arrangement with Instant Soft- 
" Wayne Green Books can now provide you 
with selected programs c ontained in each volume 
of the Encyclopedia tor the TRS^O" on a special 
series of cassettes called Encyclopedia Loader'* 
Your encyclopedia provides the ess ntia docu- 
mentation but now you'll be able to load the pro- 
grams instantlv 

WWl Encyclopedia Loader'* you'll save hours 
l \- yboard time and eliminate the aggravating 
tearch irtj pos. 

Save money with this introductory offer 
Encyclopedia Loader'* tor Volume 1 of 
Encyclopedia for the TRS-80* which will normal- 
r S14 95 is available for a limited time only at 
the introductory price of $12.95. 

To order specify E L8001 $12 95 . 



ThrfnoclaprilMfoMte l*s«0 
'» t Wjyrw Cr»m puM 
I wcvdopedia loader H mamulsc- 
curat! bv iMlarM Soltearv a 
dtviMon of Wayne Cf»er> Irtr 
* 1 RS 60 u a ti*drm*iV «.r lUd*, 
SlMKli divitio*) of landv Corp 
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SPECIAL OFFER 




REE 



If you order the entire 
ten volume set of the 
Encyclopedia for the 
TRS-80,* you'll receive 
the tenth volume FREE! 

10 Volume deluxe 
hard cover COLLECTOR'S 
EDITION -a $199.50 value. 
$164.00 EN8100 postpaid 

10 Volume soft cover 
edition, a $109.50 value. 
$83.00 fcN8080 postpaid 



YES, I want your special offferl 



10 Volume deluxe hard covet 

COLLECTORS EDMION ■ 
$199.50 value IMUOU$164 00 

To order single hard covef volume* 
of trteffKycfopedu please spec ifv 



10 Volume soft mi \ 

-a $109.50 value l\8UK>$8JU0 



To order jingle soil cover volumes 
of the Encyclopedia please || 



FMMI A ( OPYOF THIS FORM 
OK ihi CARDPROVUM 
waym GREEN BOOKS 

PIN SI. 
Pt 1 1 KBOROUCH, NH »4'»« 
OR I Ml IUII It!! 

1 -800-258-5473 

To order Encyclopedia loader fM 
cassettes please iptdfy 



Volume 1 


EMB1 01 $19.95' 


_ Volume 1 


[NMI81$10 95* 


Volume 1 


EI8001$12 95* 


Volume 2 


FS8102 519 95' 


Volume 2 


INo082$10 95* 


Volume 2 


118002 $14 95* 


Volume J 


(SH101 $19.95" 


Volume 3 


LNdO83$10 95" 


Volume J 


EUJ0Q3f14dtP 


Volume 4 


FN8104 519.95' 


_ Volume 4 


tS«OB4$10 95' 


Volume*) 


F18004$1495* 


Volume 5 


EN810S $19.95* 


Volume 5 


LS8085MI''- ' 


Volume 5 


118005 $14 95* 


Volume 6 


lN810b$19.95" 


Volume 6 


F.N808' 


Volume 6 


IL800t>$14 95* 


Volume 7 


EN8107$1 , »T,« 


_ Volume 7 


E N8087 51 (>'»', ' 


Volume 7 


IL8007$14 95" 


Volume S 


EN6108$1995* 


_ Volume 8 


EN80885109 1 ;' 


Volumes 


t!80O8$1495* 


Volume 9 


rMMNS199V 


Volume 9 


E\8089$10 ,ir ,' 


Volume 9 


EU0D9S1495' 




EN8110$19 9V 


Volume 10 


EN8O9051O9S* 


Volume 10 


rl8010$14 95' 
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Here's a way to keep track of your times. 



The Runner's Logbook 



G. Michael Vose 

80 Microcomputing Technical Editor 

Maintaining physical fitness might not 
be considered a hobby by some peo- 
ple. I classify any activity performed and en- 
joyed on a regular basis as a hobby. For me, 
that includes running. 

I ran track and cross-country in high 
school. I enjoyed it, but stopped when 
school days were done. I started again four 
years ago to help overcome the damage 
done by six years of cigarette smoking. 
Plus, I wanted to enjoy the other health 
benefits of regular exercise— weight con- 
trol, increased vigor, sounder sleep and the 
like. I began for these reasons and con- 
tinued because it was fun! 

I run 24-30 miles a week from April 
through early November and 15-20 miles a 
week during the winter months. Living in 
New Hampshire, I also cross-country ski in 
the winter. Until recently, I kept track of my 
3-5 weekly runs in a little notebook. I fre- 
quently misplaced the notebook and hated 
figuring out in my head my average pace for 
a run. So, I decided to write a Runner's 
Logbook program for my TRS-80. 



The Logbook 

Program Listing 1 is the Model 



version 







Photo 1. 80 Microcomputing Technical 
Editors Mike Vose and Chris Brown out for a 
training run on Peterborough s Pine Street. 
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of the Logbook. The program will run on the 
Model I using the few modifications at the 
end of this article. 

The Logbook is designed to keep track of 
daily activities such as training runs and 
racing events. It is a Menu-driven program 
which offers instructions on entering data 
as it proceeds. It allows the entry of the 
following information: 

• Date of run or race; 

• Distance run in miles; 

• Time in hours, minutes and seconds; 

• Weather conditions; 

• Morning pulse rate; 

• Overall health evaluation; 

• Comments. 

Once the information is entered, the pro- 
gram calculates and displays the day's 
average pace per mile, in minutes and sec- 
onds, and your total mileage since starting 
the log. 

The first four categories of input are self 
explanatory; the others require some expla- 
nation. For a distance runner, the resting 
pulse rate measured first thing in the morn- 
ing is a good yardstick for determining if his 
training regimen is too strenuous. If the 



resting pulse rate increases by eight to ten 
beats per minute, it is a good bet the runner 
is tired, possibly from training too much. 
Very often, the pulse rate will warn that 
fatigue is increasing before the runner actu- 
ally begins to feel tired. 

The overall health evaluation is merely a 
subjective measure of how the runner feels 
—from excellent to not so good. I did not in- 
clude "really rotten" because when I feel 
that way I don't run. 

Comments is a short field, containing on- 
ly 15 characters, designed for a quick note 
about injury, how the run felt, or anything 
that seems worth recording. 

The program calculates average pace, 
the best measure of the qualitative differ- 
ence in runs from day to day. It also com- 
putes the year-to-date total mileage. That's 
a nice ego boost, especially near the end of 



The Key Box 

Models I ft III 

Version 1.3 TRSDOS 



Program Listing 

10 ON ERROR GOTO1630 

20 CLS :PRINT840 5, "RUNNER'S LOGBOOK":FOR W-1TO1000:NEXTW 

30 'COPYRIGHT (C) BY G.M.VOSE 

40 CLEAR100:POKE16419,252 

50 FORI-1TO500:NEXT 

60 GOSUB10B0 

70 CLS:PRINT:PRINTTAB(7) "THIS PROGRAM WILL NEED SEVERAL KINDS" 

80 PRINTTAB(7) "OF DATA. USE THE FOLLOWING INPUT FORMAT FOR" 

90 PRINTTAB(7) "THIS DATA." -.PRINT 

100 PRINTTAB(15)"DATE: MO/DAY/YR (03/23/81) ■■ 

110 PRINTTAB( 15) "DISTANCE: MILES. TEMTHS (5.5)" 

120 PRINTTAB(15) "TIME: HR/MIN/SEC (0.43.15)" 

130 PRINT: PRINTTAB(7) "ALL OTHER DATA CAN BE ENTERED BY SIMPLY" 

140 PRINTTAB(7) "PRESSING THE NUMBER KEY CORRESPONDING TO A" 

150 PRINTTAB(7) "CHOICE YOU ARE OFFERED." 

160 GOSUB490 

170 CLS « PRINT: PRINT "ENTER THE FOLLOWING DATA: " 

180 PRINT :PRINTTAB( 15) "TODAY'S DATE: "»: INPUT DT$ 

190 PRINT :PRINTTAB( 15) "DISTANCE RUN: ";: INPUT DS$ 

200 PRINT:PRINTTAB(15)"YOUR TIME: ";:INPUT T$ 

210 PRINT: PRINT'WAS THE WEATHER: (1) SUNNY (2) CLOUDY (3) RAINY" 

220 PRINT" (4) SNOWY (5) WINDY OR (6) CALM";:INP 

UT W$ 

230 CLS '.PRINT: PRINT "WHAT WAS YOUR PULSE RATE THIS MORNING"; .'INPUT 

PR$ 

Program continues 



the year when you can boast of having 
1200 miles! 



run 



Body Fat and Oxygen Uptake 

The program also has two built-in self 
tests designed to help you approximate 
your maximal oxygen uptake ability, your 
ability to extract oxygen from the air during 
aerobic exercise, and to estimate your body 
fat percentage. Remember, these are only 
estimates— laboratory measurements are 
likely to be slightly different. 

The maximal oxygen uptake is calculated 
by subtracting 133 from the speed in meters 
recorded during a 15 minute run. The result 
is multiplied by 0.172. Next, 33.3 is added to 
produce the final result, expressed as milli- 
liters of oxygen per kilogram of body weight 
per minute. A level of about 40 is considered 
a minimum standard of everyday fitness. 
This test, devised by Bruno Balke, showed a 
level of 73.312 for three-time New York and 
Boston Marathon champion Bill Rogers. 
This is close to the figure produced in the 
lab for Rogers. 

The body fat test is based on the Pon- 
durai Index devised by exercise physiolo- 
gist E.C. Frederick. It computes body fat by 
dividing the athlete's height in inches by the 
cube root of his or her weight. My tests 
show it tends to underestimate body fat 
percentage as measured in a lab by 3-4 per- 
cent. The average male should be in the 
14-20 percent range. The average female 
will test out at 18-24 percent. Runners test 
out at 6-13 percent for males and 10-14 per- 
cent for females. 

To use either self test, follow the on- 
screen instructions. You need to know your 
height in inches and your weight for the 
body fat test; the oxygen uptake test re- 
quires you to input the miles you can run in 
fifteen minutes. 



Modifications 

I use the Logbook to keep a year's worth 
of records in each data file. When a new 
year rolls around, I copy the program onto a 
separate disk and start a new data file for 
the upcoming year. I label the disks accord- 
ing to year if I plan to keep them (I usually 
do, since I run in the same races year to year 
and mark improvement by my previous 
year's time). If desired, you can modify the 
Open statements in lines 1190, 1220 and 
1290, 1390 to specify a new data file. Replace 
"Data" with another file name, run the pro- 
gram and the new tile will be created on the 
same disk. 

Model I users should delete line 40. This 



line accesses the Model III character set and 
POKEs the value for the boxed question 
mark cursor into the Video Device Control 
Block of memory. 

Model I users have to modify the disk I/O 
routine. I have taken advantage of Model III 
TRSDOS's (Version 1 .3) ability to set variable 
length files (don't use TRSDOS Version 
1.2 — it does not understand how to manipu- 
late variable length files). This is done by 
answering the How Many Files? question 
during Basic initialization by replying 2V. 
This sets aside two variable length files. Pro- 
gram lines 1190, 1220 and 1290, 1390 each 



"/ did not include 

'really rotten' because 

when I feel like 

that I do not run." 

contain a 45 after the data f ilespec. This sets 
the logical record length at 45 characters. 
Model I users should delete the 45 from 
these lines. 

To add the capability of storing data for 
speed workouts over and above your endur- 
ance training, add a separate subroutir 3 and 
another menu option. If you cannot write the 
code to accomplish this task, drop me a note 
care of 80 Microcomputing and I'll offer 
some suggestions. 

If you ever visit Peterborough, NH, stop by 
our Pine Street office and we'll go out for a 
run.B 



The Compass 
pointing the way to 
the right running shoe 




The COMPASS machine. COMPASS is 
an acronym for COMPuter Assisted 
Shoe Selector. 



by G. Michael Vose 

80 Microcomputing Technical Editor 

t was only a matter of time before some- 
one invented a computer to sell shoes. 
After all, selling shoes is like collecting 
garbage or cleaning fish — it's one of 
those jobs someone has to do, but who 
wants to do it? 

The concept of a mechanized shoe 
salesman is not entirely new. Sears, 
Roebuck and Company pioneered a ma- 
chine to measure and test feet for the 
proper shoe fit back in the 1950's. This 
device measured size and width and could 
even perform a crude calculation of arch 
strength. It was more of a gimmick than a 
serious attempt at scientific measure- 
ment, but it served Sears' purpose for 
several years. 

Thirty years later, in the hustling 1980s, 
the Nike Running Shoe Company is using 
a computerized salesman named Com- 
pass to sell the 35 different models of run- 
ning shoes the company has developed 
over the last six years. The machine uses 
a Zilog Z80 microprocessor and a 2K byte 
PROM to quiz the potential customer. The 
short machine language program in the 
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'Interestingly, the machine 
makes no distinction 
between sexes." 



PROM compiles the results to display a 
number on an LED located on the front 
panel of Compass. The number desig- 
nates one of 15 different shoe categories 
and lists them on the front panel. 

What makes this exercise worthwhile is 
the series of test questions addressed to 
the buyer. They help the athlete evaluate 
his or her running needs in a fairly scientif- 
ic way before he purchases footwear for a 
sport which subjects the muscles and 
skeleton to high levels of physical stress. 

The test consists of ten questions, to 
which the buyer responds by pressing 
keys marked A, B, or C, representing three 
possible answers. These questions and 
answers are printed on the front panel. 
Below the front panel is a mirror with a 
drawing of a human foot with a measure- 
ment scale alongside it. 

The ten Compass questions evaluate 
these factors: 

• Height 

• Weight 
•Age 

• Weekly mileage 

• Training pace 

• Number of years running 

• Part of the foot the runner lands on 

• Sitting arch height 

• Standing arch height 

• Frequency of injury. 
Interestingly, the machine makes no 
distinction between sexes. 

Of the fifteen shoe categories, two ma- 
jor categories cover most runners. Each 
category contains ten to twelve shoe 
models. The remaining thirteen catego- 
ries contain models designed for special 
problems— high mileage, weak arches, 
heavy runners, or racers" needs. 

Nike has placed 170 Compass ma- 
chines in stores around the country. They 
feel that when used by a knowledgeable 
salesperson, the machines can give a buy- 
er confidence in a shoe design. The selec- 
tion of a running shoe is not a matter of 
cosmetics: The wrong shoe can cause in- 
jury. The Compass machine, like all com- 
puters, is designed to reduce error. 

Nike is now contemplating a modifica- 
tion to Compass. It would allow an individ- 
ual's statistics to be saved on disk or tape. 
The statistics compiled from this data on 
the running population could then be used 
to develop new and better running shoes. 

Here's hoping they let us continue to be 
in charge of choosing our own shorts! ■ 



Program continued 

240 PRINT: PRINTTAB( 10) "WOULD YOU DESCRIBE YOUR FITNESS AS: 

(1) EXCELLENT 

(2) GOOD 

(3) OK 

(4) NOT SO GOOD"; : INPUT K$ 
250 PRINT: PRINT "COMMENTS? ";: INPUT ATS 

260 PRINTe980,"ARE THESE ENTRIES CORRECT (Y/N) "jtlNPUT ZA$ 

270 IF ZA$O"Y"THENGOTO170 

280 CLS:PRINT$272,"** WRITING DATA TO DISK **" 

290 RETURN 

300 FORI«1TO1000:NEXT 

310 IFDS$=""THENCLS:PRINT§400, "YOU HAVE NOT ENTERED ANY DATA1":F0R 

X=1TO500 : NEXTX : GOTO1080 

320 H$=LEFT$(T$,2) :M$=MID$(T$,3 ,2) :S$=RIGHT$(T$,2) 

330 H-VAL(H$) :M=VAL(M$) :S=VAL(S$) : 

340 DS=VAL(DS$) 

350 T=(H*3600)+(M*60)+S: • CONVERT ALL VALUES TO SECONDS 

360 P=T/DS 

370 Pl=INT(P/3600) :P=P-(P1*3600) 

380 P2-INT(P/60) :P-P-(P2*60) 

390 CLS :PRINT§26 2, "TODAY'S AVERAGE PACE WAS" ; P2; "MINUTES ";INT(P+. 

5); "SECONDS PER MILE" 

400 PRINT:PRINT:PRINTTAB(6) "YOUR TOTAL MILEAGE SO FAR THIS YEAR: " 

;RT 

410 GOSUB 490 

420 CLS:PRINT§271,"HERE ARE TWO SIMPLE SELF TESTS" 

430 PRINT:PRINTTAB(19) "1. OXYGEN INTAKE 

2. BODY FAT LEVEL 

3. RETURN TO MAIN MENU" 
440 PRINTS978, "CHOOSE 1, 2 OR 3";:INPUTBl$ 
450 ON VAL(B1S)GOTO 510 ,660 ,1090 

460 GOTO 

470 CLS: PRINT§256, "BILL ROGERS SAYS: 'ALWAYS DO STRETCHING EXERCIS 

ES BEFORE AND 

AFTER A RUN'. HE SHOULD KNOW.": END 

480 GOTO 

490 PRINT§980, "PRESS <ENTER> TO CONTINUE" 

500 QQ$-INKEY$: IF QQ$OCHR$(13) THEN 500 ELSE RETURN 

510 REM**** OXYGEN INTAKE ***** 

520 CLS: PRINT: PRINT" AFTER RUNNING AS FAR AS YOU CAN FOR 15 MINUTES 

530 PRINT'RECORD YOUR DISTANCE IN MILES." 

540 PRINT: PRINT"TYPE IN YOUR TOTAL DISTANCE: ";: INPUTM1 

550 M2-M1*1609.334 

560 M3=M2/15:OX=(M3-133)*0. 172+33. 3 

570 PRINTG720,"** COMPUTING **":FOR TT=1TO50:NEXT TT 

580 PRINT§720,"** COMPUTING **":FOR TT-1TO50:NEXT TT 

590 FOR W=1TO1000:NEXTW 

600 CLS :PRINT§391, "YOUR ESTIMATED OXYGEN UPTAKE IS " ;OX; "MILLILITE 

RS" 

610 PRINTTAB(7) "PER KILOGRAM PER MINUTE." 

620 PRINT: PRINTTAB(7) "BILL ROGERS TESTS OUT "j 

630 PRINT"AT OVER 78 FOR MAX V021" 

640 GOSUB490 

650 GOTO420 

660 REM ***** BODY FAT ***** 

670 CLS: PRINT: PRINT :PRINT@265, "THIS BODY FAT EVALUATION IS BASED 

N THE" 

680 PRINTTAB(9) " ' PONDERAL INDEX' WHICH IS A RATIO OF HEIGHT" 

690 PRINTTAB(9) "TO WEIGHT." 

700 PRINT: PRINT: PRINT"FIRST, TYPE IN YOUR HEIGHT IN INCHES " ; : INPU 

TH1 

710 PRINT: PRINT"NOW, TYPE IN YOUR WEIGHT " j : INPUTWl 

720 FOR X=1TO10 

730 PRINT3980,"** COMPUTING **"; :FOR W=1TO50 :NEXTW 

740 PRINTe980," " ; : FOR W=lTO50 :NEXTW 

750 NEXTX 

760 W2»W1[ (1/3) 'CUBE ROOT FORMULA GOES HERE 

770 MM»H1/W2 

780 IF MM>13.59 THEN CLS: PRINTS400 , "GREAT1 YOUR BODY IS LESS THAN 

Program continues 
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TRS-80* 
Model 1 & 3 

16K and up — Tape 
010-0102 S24.95 

32K and up — Disk 
012-0102 S29.95 



dventur€ 

INTERNATIONAL 

A DIVISION OF SCOTT ADAMS, INC. 



Shb 
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BOX 3435 • LONG WOOD, FL 32750 • (305) 862-6917 

ORDER FROM YOUR FAVORITE DEALER 
or CALL TOLL FREE (800) 327-7172 



SHIPPING ft HAN0UNG CHARGES ARE EXTRA 
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CHRISTMAS 

SHOPPING LIST 

CIN RUMMY 3.0 The best card game ever 
put into a computer. Plays a full regulation 
game, with layoffs, knocks at 10 points or less. 
Changes strategy to counter your play. Disk 
version keeps score from game to game. 

TR5-OOCau.SH.9S Disk $21.95 
Atari 24K Cask $19.95 Disk $24.95 
CASINO BLACKJACK/COUNTER Learn to 
beat the house with card counting; practice 
strategy with a tireless dealer. Very realistic 
simulation of a casino table; uses complete 
casino rules. 'House' deals with 1 to 6 decks. 

TRS-tO Cast. $14.95 Dick $19.95 
Atari 10K Cast. $19.95 Disk $24.95 
CRIBBAGE MASTER A sharp card partner; 
plays hard for every point in play, hand and 
crib. Counts every play point, His Nobs, His 
Heels, and will Muggins you if you make an 
error. Excellent card graphics 

TRS-M Cm $14.95 Disk $19.95 
CONCENTRATION Match the pairs of 
figures on the screen — superb graphics, with 
sound. Ideal game for children of all ages. 

TRS-tO Cat*. $9.95 
Atari 16K Cam $14.95 

LABYRINTH RUN Set a time record as you 
whiz through turns, slaloms and reverses, but 
hit a wall and you're out! High speed graphics. 
TRS40 Cass. $9.95 
Atari IMC Caw. $14.95 Disk $19.95 
YACHT Roll five dice and fit the results into 
12 scoring categories. Up to 4 players; on- 
screen dice graphics. TRS-BO Cat*. $1 4.95 
Atari UK Cau. $14.95 
TRS-M 3-CAME PACK Cin, Cribbage and 
Blackjack on a single disk at a substantial 
saving. $39.95 
ATARI 3-CAME PACK Cin, Blackjack and 
Concentration on a single disk. $39.95 
SALES TAX ACCOUNTANT Handles the 
problems of calculating quarterly reports. 

TRS-BO Can. $14.95 
ONE-DISK MAILING LIST Holds over 450 
names, addresses on one disk; includes com- 
pany name; new 10-digit zips. Prints one-up 
labels and note-book format listing. Sorts by 
name or zip; prints user-selected labels, with 
up to 5 codes for each entry. Mod I disk conv. 
to III. TR$*> Disk $34.95 

THE LISTMAKER II Holds 400 names or 
items, plus codes, in 16K; sorts and prints total 
list or code-selected entries. Not a mailing list. 
Mod III version holds 385; specify when order- 
ing. TRS-BO Cass. $9.95 
CHECKBOOK PLUS Solves the problems of 
monthly check stub and bank statement recon- 
ciliation. Screen-prints TRS-BO Cass. $10.95 

PRINTING CALCULATOR Chain and mixed 
calculations, constants and memories; op- 
tional dollar format. Prints calculation steps 
and results on full-size. TRS-BO Cass. $9.95 

LOAN AMORTIZATION II Monthly pay- 
ment, interest principal, with annual sum- 
maries, in clean dollar format for any size 
straight-line loan. Screen prints on full-size or 
QP-II. TRS-BO Cass. $7.95 

CALCULATOR A CHECKBOOK Both on a 
single combination disk or cassette, with Loan 
Amortization II included as a bonus. 

TRS-BO Cass. $17.95 Disk $22.95 
LIFE LIST Special program for birders; sorts 
& keeps track of sightings. Searches list by 
name, date, place. Prints overall, search lists. 
Mod I disk conv. to 1 1 1 . TRS-BO Disk $24.95 
QSO LOG Special program for amateur 
operators; holds all details of 70 QSO's in 16K. 
190 in 32K (specify). Instant on-screen access 
to entries; prints sorted calls and details. 

TRS-BO Cass. $14.95 



MANHATTAN SOFTWARE 

P.O. BOX 1063 
WOODLAND HILLS, CA 91365 

All Atari program* operate wits joystick!. 

10% discount on order* of 3 or mor s oroararns. 

Add BUB lolsplng mt nandWng - 4* hoor afcl p nwnt 

Ownm ordtn add t»% for Air Mail Pnli|t 
CaWomU residents add •% tai. 

24-hour VinJMtsterCtrd Order Line: 

(213)704-8495 ^ 



Program continued 



980 
990 



1% FAT.":GOSUB490 
790 IP MM>13.59GOTO420 ELSE GOTO800 
800 IF MM<13.59 AND MMM3.55 THEN BF-1 
810 IF MM<13.55 AND MM>13.50 THEN BP-3 
820 IF MM<13.50 AND MM>13.45 THEN BF-4 
830 IF MM<13.45 AND MM>13.40 THEN BF-5 
840 IF MM<13.40 AND MMM3.35 THEN BF-6 
850 IP MM<13.35 AND MM>13.30 THEN BF-7 
860 IF MM<13.30 AND HM>13.25 THEN BF-8 
870 IF MM<13.25 AND MM>13.20 THEN BF-9 
880 IF MM<13.20 AND MMM3.15 THEN BF-10 
890 IF MM<13.15 AND MM>13.10 THEN BF-11 
900 IF MM<13.10 AND MM>13.05 THEN BP-12 
910 IF MM<13.05 AND MM>13.00 THEN BF-13 
920 IF MM<13.00 AND MM>12.95 THEN BF-14 
930 IF WK12.95 AND MM>12.90 THEN BF-15 
940 IF MM<12.90 AND MM>12.85 THEN BF-16 
950 IF MM<12.85 AND MMM2.80 THEN BP-17 
960 IF MM<12.80 AND MM>12.75 THEN BF-18 
970 IF MMX12.75 AND MM>12.70 THEN BF-18 
IP MM<12.70 AND MM>12.65 THEN BF-19 
IF MM<12.65 AND MM>12.60 THEN BF-20 
1000 IF MM<12.60 THEN BF-21 
1010 GOSUB1060 

1020 CLS: PRINT §4 00, "YOUR BODY IS ">BF;"% FAT." 

1030 PRINT :PRINT"THE AVERAGE FOR MEN IS 15-20%, POR WOMEN 20-25%." 
1040 GOSUB490 
1050 GOTO420 

1060 FOR V-1TO1000:NEXTV:RETURN 

1070 CLS:PRINT@271, "THERE HAS BEEN A SERIOUS MISTAKE 1 " :GOTO1070 
1080 CLEAR 1000: 

1090 CLS:PRINTTAB( 22) "RUNNER'S LOGBOOK MENU" 
1100 PRINTSTRING$(63,45) 

1110 PRINTTAB(22)"1. ADD LOGBOOK ENTRIES 
1120 PRINTTAB(22)"2. DISPLAY AN ENTRY 
1130 PRINTTAB(22) "3. CALCULATE PACE u MILEAGE" 
1140 PRINTTAB(22)*4. SELP TESTS" 
1150 PRINTTAB(22) "5. EXIT 

1160 PRINT :PRINTTAB( 22) "YOUR CHOICE" ;: INPUT C:IF C<1ORO5THEN1160 
1170 ONCGOTO1180 ,1380 ,310 ,420 ,470 
1180 GOSUB70 

1190 OPEN"R",l,"DATA",45 

1200 PIELD 1,8ASA$,4ASB$,8ASD$,2ASE$,2ASF$,2ASI$,15ASTA$,4ASG$ 
1205 EE-LOF(l):IF EE-0THEN CLOSE :GOT01 260 

1210 PUTl,lz CLOSE 

1220 OPEN"R",2,"DATA",45 

1230 PIELD2, 41ASS$,4ASL$ 

1240 EE=LOF(2) :GET2,EE: CLOSE 

1260 DS-VAL(DS$) 

1270 RT-RT+DS 

1280 RT$=STR$(RT) 

1290 OPEN"R",l,"DATA",45 

1300 FIELD1, 8ASA$,4ASB$,8ASD$,2ASE$,2ASF$,2ASI$,15ASTA$,4ASG$ 

1310 LSETAS«DT$ : RSETB$=DS$ : RSETD$-T$ : RSETE$«W$ : RSETF$-PR$ 

1320 RSETI$*K$:LSETTA$«AT$:RSETG$-RT$ 

1330 EE-LOF(l) 

1340 EE-EE+1 

1350 PUT 1,EE 

1360 CLOSE 

1370 GOTO1090 

1380 PRINT 

1390 OPEN"R",l,"DATA",45 

1400 FIELD 1,8ASA$,4ASBS,8ASD$,2ASES,2ASF$,2ASI$,15ASTA$,4ASG$ 

1410 LINEINPUT'WHAT IS THE DATE OF THE ENTRY YOU WANT TO SEE: "tD2 

$ 

1420 FOR FE-lTOLOF(l) 

1430 GET 1,FE 

1440 IF D2S=A$ THEN 1460 

1450 NEXT FE:CLOSE:PRINT"ENTRY NOT FOUND" : FORKK-1TO750 :NEXTKK :GOTO 

1090 

1460 CLOSE 

1470 PRINT: PRINT: PRINT 

1480 CLS : PRINT: PRINTTAB( 22) "DATE: "/AS 

1490 PRINTTAB( 22) "DISTANCE RUN: ";B$ 

1500 PRINTTAB(22) "TIME :">D$ 

1510 IF E$«" 1"THENPRINTTAB(22) "WEATHER WAS SUNNY" 

1520 IF E$=" 2"THENPRINTTAB( 22) "WEATHER WAS CLOUDY" 

1530 IF E$-" 3"THENPRINTTAB( 22) "WEATHER WAS RAINY" 

1540 IF E$=" 4"THENPRINTTAB( 22) "WEATHER WAS SNOWY" 

1550 IF E$«" 5"THENPRINTTAB( 22) "WEATHER WAS WINDY" 

1560 IF E$-" 6 " THEN PRI NTT AB( 22) "WEATHER WAS CALM" 

1570 PRINTTAB( 22) "PULSE RATE WAS: ";F$ 

1580 PRINTTAB( 22) "FITNESS LEVEL WAS: ";I$ 

1590 PRINTTAB(22) ;AT$ 

1600 PRINTTAB( 22) "TOTAL MILEAGE TO DATE IS: ";GS 

1610 GOSUB490 

1620 GOTO1090 

1630 CL0SE:PRINT"O0PSI":ST0P 
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ow's your 
love life? 




A little dull around the edges 

Routine? Predictable? Boring? Maybe 

all it needs is a little Interlude. Interlude is 

the most stimulating computer game ever conceived. 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn your love life into exciting, adventurous, delicious fun! 




Interlude is: romantic. . . playful. . . outrageous. . . a fantasy. Interlude is: ■ A Bed of Roses (Inter- 
lude #1) ■ M I Interlude #49) ■ The Chas.' (Interlude #7) ■ Rodeo! (Interlude #71) ■ The King and I 
(Interlude #60) ■ Some Enchanted Evening (Interlude #84) ■ Caveman Caper (Interlude #82) ■ From Here 
to Ecstasy (Interlude No. 30) ■ Sarin Dreams (Interlude #72). 

More than 100 Interludes are included in the program. Most are described in detail in the accompanying manual, 
but several surprise Interludes are buried in the program awaiting that very ^ 287 

special time when your interview says you're ready. (When you learn secret 'W . . J _r_ _fT_i m -a wJ _*^ 
P99. your love life may never again be the same!) Interlude _Tt>__ MQ C? 



can give you experiences you'll never forget. Are you ready for it? 



The Ultimate Experience. 



INTERLUDE, Dept. 80, 10635 Richmond Avenue, Houston, Texas 77042. I'm really ready. Send my Interlude today. 



Apple II (16K)' TRS-80 (Model 1. 16K)" 

sctte ($18.95) I Cassette ($18 
kette ($21.95) D Diskette ($21.95) 
Diskette -Pa i rD >S 3.3 ($21 95) 
Add $1.75 for shipping and handling 

D MASTERCARD DVISA 
•intNo. 



Poster 

D 20"x 24" reproduction of 
this ad without ad copy 
($4.95— includes 
shipping charges) 

All charge customers must sign here 

Expiration date 



Available for immediate shipment. 

Please enclose your check payable to INTERLUDE 
or complete the charge information: 



MasterCard Bank Code 



CHARGE CUSTOMERS: Order by phone toll free 1 1-800-231-5768 Ext. 306 (Texas 1-800-392-2348 Ext. 306) 

Name Age 

Address 

City State 



Zip 



•Apple II is a registered trademark of Apple Computers Inc. **TRS-80 is a registered trademark of Radio Shack, a Tandy Co. 



^jf TRS-80* Computer Owners... 

Light Up Your Christmas Tree 





I'm dreaming of a mini-disk Christmas... 

A dream come true: 
Mini-Disk Drives 

from 

• Every Access Floppy Disk drive is electrically tested, mechan- 
ically tested and burned-in 48 hours under operating condi- 
tions. Look for the signed test list in the shipping carton. 

• AFD drives are capable of either single- or double-density op- 
eration. AFD-100"* drives store 102-Kbytes in single-density, 
180 Kbytes in double density. AFD-200 " drives store 205 
Kbytes in single-density, 364 Kbytes in double density. And 
these are formatted file storage capacities. Moreover, you can 
store twice these amounts on a single diskette using AFD 
'flippy'* drives (AFD- 1 0OF " or AFD-200F"* drives). 

• 1 5-day free trial offer . . . comprehensive 90-day limited war- 
ranty . . . unbeatable prices . . . AFD-100 (5 $275.00, -100F 
<u $329.00, -200 «> $429.95, -200F u> $449.95. 

While they last! 

Percom TFD-200f 77-track add-on drives $375 



'All I want for Christmas is..." 

Percom Model III Mini-Disk Drives 

Internally mounted drives that feature "flippy" capability, double- or single- 
density storage, comprehensive pre-delivery testing, 48-hour burn-in and, best 
of all, Percom's widely acclaimed disk controller. A First-Drive System includes 
the four-drive disk controller, one or two drives, cables and a fully illustrated 
owners manual. Use Model III TRSDOS*. Percom OS-80 1 and other Model III 
compatible DOSs. 

First-Drive System w 1 drive $560, 

w 2 drives $860 

Note: If you prefer not to make the First-Drive System installation, we will 
do it for only $29.95 plus shipping (if shipped). This includes a 48-hour 
operating burn-in of your Model III computer, installation of the drive sys- 
tem and final checkout of the expanded system. 






Mow lo order - Ordw by : •ftng Access Unlimited Ion tree on 1-800-527-3475. Or order by mail 
Orders may be charged lo a VISA of Master Card account or paid by cashier s check certified 
check or money order COD orders require 25N deposit Sorry we cannot accept personal 
checks We pay shipping and insurance charges on orders over $1 000 00 Add approximate in 
surance and shipping charges lor orders under $1.000 00 II m doubt aboul these charges ask 
when you can m your order Texas residents include 5*« sales la» Minimum mail order $20 00 
Allow 2 lo 4 weeks lor delivery 

Technical & T«aM (214) 690-0206 

Save! Ask about quantity discounts for TRUGs. 

Save! VISA and Master Card charges are not deposited 

until the day your order is shipped. 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 



Stocking Stutters 



Percom Data Separator 
Green Screen I, II. or III 
Head Cleaning Kit 
Drive Numbering Tabs (pkg 0-3) 
5 1 /4" Flip-N-File (Ig. stocking) 
8" Flip-N-File (very Ig. stocking) 




$23.95 
$18.95 
$24.95 
$3.00 
$24.95 
$39.95 




With Presents from 




The best gift often comes in a small package. The Percom DOUBLERf is an example. 

Upgrade Your Model I to Double Density for 

only $159.95 

And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-lh. The DOUBLER-llt simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the drive, than you can store on 
standard Tandy Model I drives. Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS'", a TRSDOS* compatible disk- 
operating system -Runs TRSDOS*. NEWDOS't, Percom OS-80t and other 
single-density software immediately. Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 

<3?cjy<S?^C5f?^ ^%S£%$5*f^ <^^W*ifcfi3£33 ;<S*S$ <$&i$<3&$i <$&& C5?.*&CI*%<5£si <S#5*a <3?%<5*-^ 

Write Santa a Thank-you Note 

on Your New MX-80 

or Microline 80 

These popular printers, from Epson and 
Okidata, provide the features you want, the 
reliability you need - and the price is 
unbeatable. 





MX-80: Call for latest low price 




Low Cost 
System Furniture 

Modular design permits cus- 
tom arrangements • Furniture 
styling and quality • TRS-80' 
colors • OK for UPS shipping 
• Reassemble without tools 

System desks from $1 1 5 
Printer stands from $144 



Microline 80 only $399.95 

For a man who has everything, including 
too many peripherals for a computer with 
: $ only one printer port. . . 

f An Arrick Products Quick-Switch^: 

The Quick- Switch lets you easily switch your TRS-80" printer output from 
device #1 to device #2 trom your printer to your Electric Crayont Or, 
use it to switch one penpheral between computers Optionally available 
with three ports Also, versions configured tor RS-232 or Centronics inter- 
facing. Standard unit includes 5-foot 34-pin cable with card edge socket, 
box-mounted 34-pin card-edge plugs From $79.95 
} trademark of Arrick Products Company 



I 

V 



Save! Make ACCESS your one-call shopping center for TRS-80* 
hardware and software. Call our toll-free order number for free 
product literature and latest prices. 

AUTHORIZED 
PERCOM SALES AND SERVICE CENTER 



Toil-Free 
Order No. 

1 1 -800-527-3475 



o 




ACCESS UNLIMITED 



(orders & literature only) 



401 N. Central Expressway #600 
Richardson, Texas 75080 
(214) 690-0206 



•Trademark of Access Unlimited 
T Trademark or Percom Data Company. Inc 



• 229 



•Trademark of Tandy Radio Shark Corporation 
ii- ' Appeal Corporation 



• See Lislot Advertisers on page 4 18 
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APPLICATION 



LOAD 80 



You'll stamp your feet over this inventory program. 



The Philatelist's Friend 



Program Listing 1 

10 CLS:PRINTTAB(15) "**** PHILATELIC INVENTORY ii ****":PRINT TAB 

(19)"**** IMPORTANT NOTICE ****":PRINT 

15 PRINT"SINCE PROCESSING TIMES FOR FILES CONTAINING IN EXCESS 

F 50":PRINT"FULL INVENTORY RECORDS BECOME PROGRESSIVELY LONGER, 

IT IS":PRINT"RECOMMENDED THAT SUCH FILES BE DIVIDED INTO TWO OR 

MORE"' 

20 PRINT "SMALLER FILES" :PRINT: INPUT"PRESS <ENTER> TO CONTINUE" ;X 

:CLS 

90 CLEAR 2500:DEFSTR S,Y,D:DEFINT Q,R,C,P,L 

95 DIMS1(120,13) ,Ll(20),P$(20) 

100 CLS: PRINT TAB(17)"**** PHILATELIC INVENTORY ****" 

105 PRINT TAB(10)"THIS PROGRAM CREATES AN INVENTORY OF REGULAR": 

PRINT TAB(7)"AND COMMEMORATIVE POSTAL ISSUES FOR (ENTER COUNTRY) 

": PRINT 

110 PRINT TAB(7) "COUNTRY" ;TAB( 32) ; : INPUT C$:PRINT 

115 PRINT"WHAT IS THE LOWEST SCOTT CATALOG NUMBER" : INPUT"ABOVE W 

HICH A FULL INVENTORY IS DESIRED" ;D: PRINT: PRINT "CAPACITY 120 I 

SSUES": PRINT 

120 INPUT"THIS IS FILE #";Q 

390 CLS:PRINT"THIS IS INVENTORY FILE NUMBER--", «Q 

395 INPUT" INVENTORY TO BEGIN WITH YEAR— "»Y1 

400 INPUT" INVENTORY TO BEGIN WITH SCOTT CATALOG NUMBER— ";S1 

405 INPUT" INVENTORY TO END WITH YEAR— ";Y2 

410 INPUT" INVENTORY TO END WITH SCOTT CATALOG NUMBER— ";S2 

415 INPUT"PRICING IS BASED UPON CATALOG VALUES FOR YEAR— ";Y3 

420 PRINT:PRINT TAB(14) "**** FILE #" ;Q; "-INPUT ROUTINE ****" 

425 PRINT"TO END INVENTORY, ENTER THE SCOTT CATALOG NUMBER "S2:P 

RINT"SELECTED ABOVE FOR END OF FILE" 

430 IF VAL(S1)<VAL(D) THEN PRINT" INVENTORY WILL INCLUDE ONLY USE 
D AND MINT SPECIMENS" : PRINT"FOR SCOTT CATALOG NUMBERS LESS THAN 
— " ; D 

431 R=l: PRINT 

500 PRINT"SCOTT CATALOG NUMBER" ;TAB(32) ;: INPUT S1(R,0) 

501 IFS1(R,0)=S2THENCLS:GOTO1000 

502 IFVAL(S1(R,0) )<VAL(S1)ORVAL(S1(R,0) ) >VAL(S2)THENPRINT"N0T IN 
THIS INVENTORY": INPUT "HIT <ENTER> TO CONTINUE" ;X:GOTO500 

505 PRINT "NUMBER OF USED COPIES" ;TAB(32) ;: INPUT S1(R,1) 

510 PRINT "AT CATALOG VALUE OF" ;TAB(32) ; : INPUT S1(R,2) 

515 PRINT "NUMBER OF MINT COPIES" ;TAB( 32) ;: INPUT S1(R,3) 

520 PRINT "AT CATALOG VALUE OF" ;TAB(32) ;: INPUT S1(R,4) 

525 IFVAL(S1(R,0) ) <VAL(D) THENSl (R,13) -STR$ (VAL(S1 (R,l) ) *VAL(S1(R 

,2) )+VAL(Sl(R,3) ) *VAL(S1(R,4) )) : SI (R, 13) *RIGHT$ (SI (R,13) ,LEN(S1( 

R,13))-l) :PRINT"TOTAL CATALOG VALUE ABOVE" ;TAB (32) SI (R,13) 

530 IFVAL(S1(R,0) ) <VAL(D) THENR=R+1 :GOTO500 

Program continues 



Richard W. Castor 
345 South 51st Avenue 
Bel I wood, I L 60104 
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R R ake the world's foremost hobby more 
enjoyable by tying your computer to 
it. I am talking about stamp collecting— or 
philately— and my program, Philatelic In- 
ventory, that can be used to keep track of 
your stamps. 

The program is written in Basic for a 16K 
Level II TRS-80 and while simple enough for 
many to use, it is comprehensive enough 
for the more sophisticated philatelist. 

Data banks managed by computers have 
common limitations associated with their 
storage media and data storage time. 

Standard magnetic tape cassettes are no 
exception. Each time a PRINT#-1 or 
INPUT#-1 data transfer routine passes 
through a For. . . Next loop or is otherwise 
transferred, 255 zero bytes followed by the 
synchronization byte (decimal 165) precede 
the data transfer. Since the Model I records 
at 500 baud (500 bits/second = 62.5 
bytes/second), each leader is about 4.1 
seconds long. 

Packing or blocking as implemented in a 



'Make the world's foremost hobby more 
enjoyable by tying your computer to it." 



program statement such as: "100 PRINT#-1, 
A(1), A(2), A(3), A(4), A(5), etc." is limited by 
the maximum size of the statement line and 
the maximum record length. 

By concatenating data into 248-byte 
strings (lines 1120-1178) the TRS-80 for- 
mats its own PRINT#-1/INPUT#-1 transfers, 
eliminating inefficient For... Next rou- 
tines. By reducing file lengths by a factor of 
10 in most cases, this technique permits 
massive data storage on an inexpensive 
magnetic tape. 

For those who must disassemble every- 
thing, data string formatting is shown in 
Fig. 1. 



Program continued 

535 PRINT "NUMBER OF MINT PLATE BLOCKS" ;TAB( 32) ;: INPUT Sl(R r 5) 

540 PRINT "AT CATALOG VALUE OF" ;TAB(32) ;: INPUT S1(R,6) 

545 PRINT "NUMBER OF MINT SHEETS" ;TAB(32) ;: INPUT S1(R,7) 

550 PRINT "AT CATALOG VALUE OF" ;TAB(32) ;: INPUT S1(R,8) 

555 PRINT "NUMBER OF FIRST DAY COVERS" ; TAB (32) ; : INPUT S1(R,9) 

560 PRINT "AT CATALOG VALUE OF" ;TAB(32) ;: INPUT S1(R,10) 

565 PRINT "SPECIAL SITUATIONS" ;TAB(32) ;: INPUT Sl(R r ll) 

570 PRINT "AT CATALOG VALUE OF" ;TAB(32) ;: INPUT S1(R,12) 

575 S1(R,13)-STRS(VAL(S1(R,1) ) *VAL(S1 (R,2) ) +VAL(S1 (R,3) )*VAL(S1( 
R,4))+VAL(S1(R,5))*VAL(S1(R,6))+VAL(S1(R,7))*VAL(S1(R,8))+VAL(S1 
(R,9))*VAL(S1(R,10))+VAL(S1(R,11))*VAL(S1(R,12))) :S1 (R,13) =RIGHT 
$(S1(R,13) ,LEN(S1(R,13) )-l) 

576 PRINT'TOTAL CATALOG VALUE" ;TAB(32) SI (R,13) 

580 R-R+l 

581 IFR>120THENPRINT"FILE FULL" :GOTO1000 

Program continues 
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Fig. 2. Philatelic Inventory Matrix 
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"... it is possible to use about 
49 percent of each cassette. . . " 



Depending on the space between records 
separating records on a tape, it is possible p '' 
to use about 49 percent of each cassette for 
data storage (see Table 1). p $' 

File Preparation, Program Level A, gener- 
ates the two-dimensional string matrix 
S1(R,C) (see Fig. 2) and provides for simple 
editing before storing it. File parameters 
(C$, Q, Y1 , Y2, Y3, S1 , S2, D) are defined and 
the total catalog value (T) of the files are 
computed. 

When you answer the question, "What is 
the lowest Scott Catalog Number (D) above 
which a full inventory is desired?", you sec- 
tionalize the file and make it possible for a 
less sophisticated stamp collector to limit 
his inventory to only used and mint speci- 
mens. For example, if the answer is 700, 
data for issues having catalog numbers 
1-699 is entered only in columns 1-4; the 
matrix is effectively redimensioned. signifi- 
cantly reducing processing times. 

I omitted a numerical sort routine be- 
cause most collectors tallying their hold- 
ings will do it with a numerical reference in 
hand and sequential listings will be 
automatic. 
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Fig. 1 



gpOLOR COMPUTE 

? ^XKjWf COMPCJVOICE TRS-80 MADNESS & THE 

S^^HLl^^y ^^ C..*«" vour computer a .O.CP Ol its own build MINOTAUR 

< ^m^m^P speerhmtoynur BASIC proq.ams Thismachme The best adventure game available for the color 

H lanquaqe P-oqram is a must lo- your library no compute- Ove. 200 rooms 6 crealurev 8 maq.c M '% ""^V 

^Dl^n hardware modification needed 544 95 spe||s i^ds of treasures Written ,n machine 

"■Bi . FXTFND MEMORY language, extended Bas.c not required $19 95 

RAMCHARGER ™om .«< -o »» NEW EXTEMDED 

• 1 00".. Compatible With new tAltnutu , ,. ». , ^% J, 

32K UPGRADE **«««>*** basic games! lr,FK 4W 

• No Soldennq Or Modification • SCIB HUNT S 1 5.95 s99*\. II VS.V W J 

.Fto Inside Compute. • LASER ATTACK SI 3.95 

Space Inva ders 79 95 ^^ . alcatraz ii s i i .95 I Jl A \ 

__ 1 , wjr— — * ■ ~~*~Tri»i" r omplete with high resolution graphics and J\ ^Rf ^\ 

Snare War ^^5* soundsource WJviP UK. -.-— - ^- '* l 

r T"t I f"T C A ^ > "T*0 Store music or voice from a cassette tape in the 

I IlL. r f\ V» I O computer and display it on the TV screen 

Shorten it lengthen it modify it and replay it 

• The Best Games Available At last a complete description of throuqh the TVs sound system Build and test ■ f^*T" V. 
. y. i B , u — , . Ih« guts of the Color Computer your own sounds for qames *Ho hardware mods 

• High KeSOlutJOn Graphics Specs on all the ICs. complete needed 

• Fast, Machine Lanquaqe «h«ma<™ theory o. operation s24 95' 

O 3 *ncl programmmq examples 

• Ext. Basic Mot Required $|495 UTILITIES CprrTR „m I 

• 52 1 .95 each. $59.95 for all three JrLt I HAL •" 132 
EXTENDED BASIC GAMES ^ • EDITOR/ ASSEMBLER $34.95 ACCAfl ATCC 

• LOTHAR'S LABYRINTH) <C^T # SUPER MONn " OR 1995 f^^7m/forv aw C 

Word Search Puzzle \/ # EPROM PROGRAMMER 89.95 141 HARVARD AVE. 

• RATTI FF1 FFT ^^^ (Program your own ROMs for the ROM PAC port) Tacoma. Washington 98466 

Battleship Search Game (one or ' ™ G £*ft - £ aV^iJS? ^^SS^X^ 

• Tpace'traders ! SSfSSS" 

Galactic trading game * TFX T FD ' T ° R (206) 565-8483 

$14.95/ea. DEALER INQUIRIES INVITED VISA AND MASTERCARD ACCEPTED 




110 • 80 Microcomputing, December 1981 



Reader Service lor lacing page ^48- 




«« 






-*&&' 






\o*ZU**S 
















f a * ca ^^ e \^ vo 






„s|S >« 4e»W ' V ***" 4 * i*W" 



«£# 



vo 



u^- 



**!»,* 



** 




gggs isSrfif 









%«3&SS 



V*° 

















Computer Information Exchange 
Box 159(714) 757-4849 vii 
San Luis Key CA 92068 



Shack -80 Model -1 Users: 
Restore Reliability 

Tired of spontaneous re-booting, "loss" of 
memory, UL ERROR on programs that are 
correct, "BAD RAM" or ROM that is good and 
other symptoms of dirty edge connectors? 

CIE Cramol in cleaning kit lets you quickly, 
safely strip away coatings of high -resistance 
oxide films built upon . S-80's non-gold- 
plated edge fingers, and coat them to reduce 
further buildup. Contains one bottle cleaner, 
one lubricant/sealer. 
CIE Cramol in $8.95 ($9.49 CA) 

Silver Solder Rejuvinates 
Shack-80 Edge Connectors 

Ratty Radio Shack edge fingers require 
frequent Cramol in cleaning for system 
reliability. Tandy did not gold plate them, but 
after you silver them you can tug cables and 
jar computer without system reboot! 

Kit contains special high-quality flux and 
16" (about 1.5 oz) of solder, 5-6% silver, 
balance tin (contains no cadmium, zinc, or 
lead). Caution: do not resolder fingers with 
ordinary solder, or system will be totally 
unusable! 
CIE $4.50 ($4.77 CA) 

Media Buys: 

Diskettes 

5" Unbranded, single-density, 10, in 
envelopes, fully guaranteed $19.95* 
5" Memorex sngl dens., box 10 $24.75* 
5" Memorex dbl. dens., box 10 $26.55* 
5" Dysan, plastic box of 10, double -density 
ultra-reliable $44.95* 
5" Wabash SSSD with hub ring $26.55* 
5" Wabash DSOD with hub ring $$38.98* 
Reinforcements, 50 rings for 5" $7.75* 
Ring tools-apply reinforcements $4.95* 
Cleaning kits. 3M or FD, 2 disks $22.46* 



GUARANTEE 

All CIE disks guaranteed 

If you get a bad disk, CIE will replace it 



Hardware: 

Percom, LNDoubler Savings 

DOUBLE DENSITY attachments 

$153.50/$157.50/$207* 
Double disk storage with either Percom or 
LNW Research plug- in adapters. No 
soldering. Percom Doubter 2 comes with 
DoubleDOS TRSDOS varient. is $153.50*. 
LNDoubler 1 includes DOS-plus deluxe 
operating system. LNDoubler 5/8, with 
operating system, allows use of double 
density with either 5" or 8" drives!, just 

$207* 

Lowest Prices 
On Disk Drives! 

TEAC 40-track single/double density , single 
headed (writes, reads on one side of disk), 
with incredible 1-yr. factory guarantee! 
Case, power supply disassembled for 
shipping, just insert 6 screws. Exclusive: no 
extender cable needed! $269*. 

•0-TRACK, 1-HEADED $395* 

80-TRACK. 2-HEADED (dbl sided) $550* 
Bare 40-track, unpowered $215* 

Bare-80-track $225* 

SOFTWARE to 50% off 

Leading brands including Acorn. Allen 
Gelder, Alternate Source, Apparat, 
Blechman Enterprises, Breeze Computing, 
CIE. Data Soft. Dorsett. Edu Ware. Ellis 
Computing, Hexagon Systems, Micro Clinic, 
Micro Works, Microsoft, Modular Software, 
Nepenthe, Personal Computer Service, 
ProSoft, and Ramware. 
BOOKS, leading publishers, 10% off 



Discounts: 

•prices CIE net, including 10\ discount 

for $50 o' more total order, 3 or more items 

nominal shippinq charge on all but books and 

softwre 
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Program continued 

582 GOTO500 

1000 INPUT"ARE CORRECTIONS TO THIS INVENTORY NECESSARY? YES OR N 

0";A$ 

1005 IF A$="N0" GOTO 1100 

1010 PRINT: PRINT "COLUMN NUMBERS HAVE BEEN ASSIGNED AS FOLLOWS" 

1015 PRINT :PRINT"USED SINGLES" ;TAB( 25) "1" ;TAB (32) "CATALOG VALUE" 

; TAB (50) "2* 

1020 PRINT'MINT SINGLES", 'TAB (25) "3";TAB(32) "CATALOG VALUE";TAB(5 

0)"4" 

1025 PRINT"MINT PLATE BLOCKS" ;TAB( 25) "5" ;TAB(32) "CATALOG VALUE"; 

TAB(50) "6" 

1030 PRINT'MINT SHEETS" ;TAB( 25) "7" ;TAB(32) "CATALOG VALUE" ;TAB( 50 

)"8" 

1035 PRINT'FIRST DAY COVERS" ;TAB( 25) "9" ;TAB(32) "CATALOG VALUE";T 

AB(49) "10" 

1040 PRINT'SPECIAL SITUATIONS" ;TAB(24) "11" ;TAB( 32) "CATALOG VALUE 

";TAB(49) "12" 

1045 PRINT: PRINT "SCOTT CATALOG NUMBER AND COLUMN OF ENTRY": INPUT 

"TO BE CORRECTED";B$,C:PRINT 

1050 FOR Rl=l TO R 

1055 IFS1(R1,0)»B$GOTO1065 

1060 NEXT Rl: PRINT "SCOTT CATALOG NUMBER— " ;B$; " — NOT IN FILE":GO 

TO 1085 

1065 PRINT'DATA NOW READS — ";S1(R1,C) 

1070 PRINT:INPUT "ENTER CORRECT DATA — ";S1(R1,C) 

107 5 IFVAL(B$) <VAL(D)THENS1(R1,13)>=STR$(VAL(S1(R1,1) )*VAL(S1(R1, 

2) )+VAL(Sl(Rl,3) )*VAL(S1(R1,4) )) :S1 (Rl ,13) =RIGHT$ (SI (Rl ,13) ,LEN( 

S1(R1,13))-1) 

1080 IF(VAL(B$)=VAL(D)ANDB$>D)ORB$-DORVAL(B$) >VAL(D) THENS1 (Rl ,1 
3) -STR$(VAL(S1(R1,1) ) *VAL(S1 (Rl , 2) ) +VAL(S1 (Rl,3) ) *VAL(S1 (Rl ,4) )+ 
VAL(S1(R1,5))*VAL(S1(R1,6))+VAL(S1(R1,7) ) *VAL(S1 (Rl ,8) )+VAL(Sl(R 
1,9))*VAL(S1(R1,10))+VAL(S1(R1,11))*VAL(S1(R1,12))) 

1081 IF(VAL(B$)=VAL(D)ANDB$>D)ORB$«DORVAL(B$) >VAL (D) THENS1 (Rl , 1 
3)-RIGHT$(Sl(Rl,13) ,LEN(S1 (Rl,13) ) -1) 

1085 INPUT'HAVE ALL CORRECTIONS BEEN MADE? YES OR NO";A$ 

1090 IF A$="YES" THEN CLS:GOTO 1100 

1095 IF A$="N0" THEN CLS:GOTO 1010 

1100 T-0 

1105 FOR Rl=l TO R 

1110 T=T+VAL(S1(R1,13) ) 

1115 NEXT Rl 

1120 C=0:R1«1:P«1:K1=0:P$(P)*"":CLS:PRINT"BE PATIENT— i'm WORKIN 
G" 

1121 LETV=VAL(S1(R1,C) ) 

1122 IFR1=RTHENCLS:PRINT"F0RMATTING COMPLETE" : LI (P) =K1 :GOT01 150 
1124 L=LEN(S1(R1,C) ) :L$-RIGHT$(STR$(L) ,1) 

1126 IFSl(Rl,C)=""ORLEN(Sl(Rl,C) ) =0ORVAL(S1 (Rl ,C) ) =0THENL$="1" :L 

=1:S1(R1,C)="*" 

1128 S1(R1,C)-L$+S1(R1,C) :L$-"" 

1130 K1=K1+(L+1) 

1132 IF248-KKL+1THENL1(P)=K1-(L+1) :K1=L+1 :P=P+1:P$(P) ="" 

1134 P$(P)»P$(P)+S1(R1,C) 

1141 IFC-4ANDV<VAL(D) THENS1 (Rl, C) ="" :C=13 :GOT01124 

1142 S1(R1,C)="":C=C+1 

1146 IFC»14THENR1«R1+1:C«0:GOTO1121 

1148 GOT01124 

1150 PRINT"COUNTRY "C$" FILE #"Q" CONSISTS OF "R-l" RECORDS" :P 

RINT"HAVING A TOTAL VALUE OF $"T: PRINT'FILE INCLUDES SPECIMENS I 

SSUED FROM "Yl" THROUGH "Y2:PRINT"AND IS BASED UPON "Y3" CATALOG 

VALUES" 
1152 PRINT:PRINT"FILE INCLUDES SCOTT CATALOG i"Sl" THROUGH t"S2: 
PRINT"WITH A FULL INVENTORY SCOTT #"D" AND ABOVE" 
1154 PRINT"THERE ARE "P* PRINT STATEMENTS" 

1156 PRINT :PRINT"NOTE LOCATION AT WHICH THIS FILE IS TO START": I 
NPUT" PLACE CASSETTE IN <RECORD> MODE. WHEN READY, PRESS <ENTER>" 
;X:CLS 

1158 PRINT#-1,C$,Q,Y1,Y2,Y3,S1,S2,R,T,D,P 
1160 F0RP1=1T0P 
1162 PRINTP1;L1(P1) ;P$(P1) 
1164 PRINT#-1,L1(P1) ,P$(P1) 

1166 INPUT'PRESS <ENTER> TO CONTINUE" ;X:CLS 
1168 NEXTP1:CLS 

1170 PRINT'RECORDING COMPLETE. NOTE TAPE LOCATION" 
1172 PRINT: PRINT "ENTRIES LEFT ";120-(R-1) 

1174 PRINT: I NPUT "HAVE YOU RECORDED THIS FILE TWICE. (Y/N)";A$:CL 
S 

1176 IFA$»"Y"THENGOTO117 8ELSEGOTO1150 

1178 PRINT"TO EDIT, ADD TO, OR REVIEW THIS INVENTORY, RUN PROGRA 
M LEVEL B":END 



Modify Philatelic Inventory II— File Preparation— Level A as indicated below 
90 CLEAR5000:DEFSTRS.Y,D:DEFINTQ,R.C.P,L 



Program Listing 2 



From Computer Plus to YOU . . . 
PLUS after PLUS after PLUS 





32KExp.ini. $334 



J^J-iJuuuuuuOUBflO 

P3DC3LIUUUulf BBBB « 
_J_ii J i 11 H JLJ^^ ! 



Pocket Computer $ 1 89 
P.C. Printer $130 



tfWiESEtfft* 



Color Computer 4K $310 
W/16K Ext. Basic $459 




MODEL II 64K 53300 




Model III16K $839 
Model III 48K 

2Disc8 t RS232C$2100 



BUY DIRECT 



Here are just a few of our fine offers . . . 
call TOLL FREE for full information. 



COMPUTERS 




PERIPHERALS 




Line Printer V 


1610 


Model II 64K 


$3300 


Expansion Interlace OK 


$249 


Microline80 


345 


Model III 4K LEV I 


599 


Expansion Interface 16K 


355.50 


Microhne 82A 


515 


MODEL III 16K 


839 


•Expansion Interface 16K 


291.50 


Microline83A 


799 


MODEL III 32K 


945.50 


Expansion Interface 32K 


462 


Pocket Computer Printer 


130 


•MODEL III 32K 


881.50 


•Expansion Interface 32K 


334 


DISK DRIVES 




MODEL III 48K 


1052 


16K RAM N.E.C. 200 N.S. chips 25 


R.S. Model III 1ST-Drive 


712 


•MODEL III 48K 


924 


MODEMS 




TEAC40TrackMI 


329 


Model III 48K 




Lynx Direct Connect Ml/Mill 


269 


R.S. 1 Drive Exp Mil 


999 


2 Disc & RS232 c 


2100 


Auto Ans. /Dial 




R.S. 2 Drive Exp Mil 


1518 


Color Computer 4K 


310 


Telephone Interface II 


169 


R.S. 3 Drive Exp Mil 


2040 


Color Computer 16K 


416.50 


R.S. Modem I DC. 


130 


SOFTWARE 




•Color Computer 16K 


352.50 


R.S. Modem II DC. 


199 


R.S. Software 10% off list 




Color Computer 16K 




PRINTERS 




Newdos+(40)trackMI 


88 


w/extended basic 


459 


Daisy Wheel II 


1695 


Newdos80MIII 


149 


Color Computer Drive 


470 


Line Printer VI 


999 


ST80III 


149 


Pocket Computer 


189 


Epson MX80 


499 


ETC. 




VIDEOTEX 


310 


Epson MX80 FT 


599 


Verbatum 5" Double Density 


32 






Epson MX1 00 


799 


Verbatum 8" Data Life 


49.95 


'Computer Plus New Equipment. 


Line Printer VII 


315 


Ctr-80A recorder 


82 


180 Day Extended Warranty 




Line Printer VIII 


620 


C.C Joysticks 


22 




We have the lowest possible 
Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 



DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice. 
Not responsible for typographical errors. 

res-80 It a registered trademark of Tandy Corp. 



call TOLL FREE 1-800-343-8124 




com 



Dept. D 

245A Great Road 

Littleton. MA 01460 

617-486-3193 



plus 

1 Write for your + 
free catalog 



•See List of Advertisers on page 4 18 
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"Keep in mind the TRS-80's 
string processing times 
can be time-consuming." 



A reasonable amount of unused space 
should be left at the end of each file to per- 
mit additions. Such additions will be "out of 
numerical sequence." But the editor will 
retrieve them by catalog number wherever 
they reside so there is no reason to avoid 
random inputs. 

There is no relationship between the row 
of the matrix and the Scott Catalog number. 
That would duplicate the catalog and re- 
serve large portions of the matrix and sub- 
sequent files, portions better used in other 
ways. 

The Editor, Program Level B— like File 
Preparation— is written in a modular format 
to facilitate its understanding and debug- 
ging. A powerful feature, the Dummy File, 
makes it possible to execute all options in 
the menu simply by inserting a remark 
statement in program line 101 and removing 
the remark statements in lines 102-104. 

The program is formatted into modules 
making it possible to break a large program 
into smaller ones. Menu options include: 

• Seeing an existing listing; 

• Correcting and updating an existing 
listing; 

• Adding to inventory; and 

• Updating annual values. 

Each option used with a PRINT#-1, 
INPUT #1 and END is a stand-alone pro- 
gram (see Program Listings 2. 3 and 4). 

File Preparation, Program Level A, line 
105, can be used to change the type of in- 
ventory to air mail issues, revenue issues, 
post cards, envelopes and other categories. 

If the collection is moderately large, sev- 
eral files will be required. Keep in mind the 
TRS-80's string processing times can be 
time consuming (see Fig. 3). 

As each file is completed, enter its total 
catalog value into a printout along with the 
other file parameters selected. To make a 
second back-up copy of each file is a matter 
of personal choice but in general is not 
a bad idea. 

The total catalog value computed by Phil- 
atelic Inventory will come as a pleasant sur- 
prise to many.B 



Cassette 


Bytes 


' Max. Storage Capacity 


Type 


One Side 


248-Byte Print Strings 


ClO 


18.750 


37 2 


C20 


37.500 


74 4 


C30 


65.250 


1116 


C45 


84.375 


130.2 


CM 


112.500 


223 2 


C90 


131.250 


2604 


C120 


225.000 


4464 


'Including 


256-Byte •'leaders" 


Table 1. 


Cassette 


Storage Capacities. 



Modify Philatelic Inventory II— Editor— Level B as indicated below 
90 CLEA R3500: DE FSTRS. Y.O:OEF INTO. R.C. P. L E 
DELET E Lines 600-725 
ADD Line 600 

600 PRINT USE EDITOR VERSION 2.2 (LEVEL Q FOR ANNUAL VALUE UPDATE INPUT 'PRESS (ENTER) TO 
RETURN TO MENU ;X CLSGOT0105 

Program Listing 3 



Modify Philatelic Inventory II— Editor— Level B as indicated below. 
90 CLEAR5000:DEFSTRS,Y,D:DEFINTQ.R.C.R,L 

725 PRINT "TO EDIT. ADD TO, OR REVIEW THIS INVENTORY, RUN PROGRAM LEVEL B":END 
1258 PRINT "MATRIX RESTORATION COMPLETE":PRINT:INPUT"TO CONTINUE. PRESS (ENTER)";X:CLS: 
GOTO600 

DELETE Lines 105-140 

DELETE Lines 200-270 

DELETE Lines 420-582 

DELETE Lines 1000-1115 



Program Listing 4 



2500 



2000 



I OOO 



500 



Y-I27X- 3X' ♦ -£- +27I 




COMPUTED 
X ACTUAL DATA 



SHORT RECORD 27 CHARACTERS 
LONG RECORD 55 CHARACTERS 



5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 

PRINT STRING FORMATION TIME 
(MINUTES) 



-•X 
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This Months Special 

Okidata 



At a New 
Low, Low, Pnce'. 




Featur 

• Friction 

• Prints e 

• Print sp 

• Printhea 
cycle 

• 132-colum 

• Available 




Microline 
80 



A great buy 

List Price is $449. 
The Microline 80 

is a quiet, 

small printer 

with field proven 

reliability. 



pin paper feed, roll or fan fold 
anded characters and block graphics 
d 80 characters per second 

ated at 200 million characters continuous 

compressed print , ,« T 

232C Serial Interfaces: 
ORS-256 (256 Character Memory) . $109.00 
MSP 100 (Unbuffered, Switch 

Select Data Rates) $120.00 

SP-200X (200 Character Memory) $215.00 
SP-2000X (2000 Character 

Memory) $300.00 

er available options: 
justable Tractor Feed • 

odel 54100201 $ 50.00 

HS-80 Parallel Output, 

ble to printer $ 35.00 

RiHons $ 3.00 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorne 

Talk To BillTokar On 

Applications 



CALL TOLL FREE 
U.S.A. 

1 -800521-27 64 

MICHIGAN 

1-80O-482-8393 





into a Word Processing or 
Data Processing System 
by adding one of the NEW 
Okidata Printers 

Microline Microline 

83A 82A 

If you require a system printer, the new Okidata 
Microline 82A, 83A, 84 should be your choice. 

These printers feature: 

•9x9 Dot Matrix heads rated at 200 million 

characters continuous duty - true lower descenders 
•Full forms control - vertical tab, top of form 
•Block Graphics 

•Bidirectional, Short Line Seeking 
•Dual Interface - Parallel & RS-232C Serial 

Microline 82A - 80-column, L,ST 

120 characters per second $ 649. 

Tractor Optional $ 50. 

Microline 83A - 136-column, 

120 cps, built-in tractor $ 995. 

Microline 84 - 13f>column, 

200 cps, built-in tractor $1395. 

Optional Serial Interfaces - RS-232C: 

HS-RS232 - 256 Character Buffer $150. 

HS-RS232 - 2K Character Buffer $180. 




ft* 1ft 





Remember: 
We are open 
8:30 AM to 
6:00 PM EST 
Monday - Friday 



No Credit 
Card Penalty 



"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 
48024 
313-474-670B ^ 43 * 



- See List of Advertisers on page 418 
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APPLICATION 



Let the versatility of your 80 flower. 



The House Plant Index 




John Chipman 
18 Laurel Drive 
Medfield, MA 02052 

Some people have a green thumb— they 
seem able to grow plants anywhere. 
The secret to their success is hard work 
combined with a knowledge of soil and light 
conditions and temperature ranges. 

The Houseplant Index lets you in on the 
secret of growing flowering and foliage 
houseplants. You provide information on a 
particular location in your home and the In- 
dex lists plants suitable for that location. 
The Index also provides information on soil, 
humidity and feeding requirements. Plant 
suggestions are offered by scientific and 
common names. A cross reference provi- 
sion is included; a user can enter the scien- 
tific name for a particular plant and find out 
its ideal growth conditions. 

Program Listing 1 is for flowering house- 
plants and Program Listing 2 is for foliage 
houseplants. Both versions of the House- 
plant Index use scientific names because 



common names vary from one part of the 
country to another. 

This program permits the use of a printer 
to obtain lists of recommended plants. 

Using The Index 

The first option of each program permits 
you to look up data on any specific plant. 
The second option allows you to enter the 
conditions at a particular location in your 
home or office. The program considers 
lighting conditions, plant height range, 
nighttime temperature range and desired 
special features such as fragrance and color. 
Advice for watering frequency, humidity 
and feeding schedules is included. Read 
this advice as follows: 
• Watering frequency 
Wet— Keep the soil very damp to the 
touch at all times; excess water should 
not stand on top of the soil or fill the 
saucer under the plant pot. 
Moist— Never allow the soil to dry out 
completely; water the plant when the top 
of the soil becomes dry to the touch. 



Program Listing 1 

' FLOWERING PLANT INDEX — BY JOHN CHIPMAN 

5 CLEAR100:GOSUB1710 

10 CLS:GOSUB660:PRINT"FLOWERING HOUSE PLANT INDEX" :GOSUB6 60 

Program Listing 1 continues 



Dry— Keep the soil dry most of the time, 
water sparingly. Soil below the top 
should be allowed to dry out. 

• Room air relative humidity 
Normal— The plant requires no special 
level of humidity. 

High— Raise humidity to a level greater 
than 50 percent. Do this by placing trays 
of pebbles near or under the plant pots 
and keeping the pebbles wet. 

• Fertilizer application (any houseplant 
fertilizer diluted to 50 percent strength 
with water). 

M — month 

W— week 

Example: 2W means every two weeks. 

3-4M means every three to four months 

Spring means once a month during 

spring only. 

When answering questions about loca- 
tion, run the program first with zero for plant 
height and special features. This avoids a 
"no recommendation" response as a result 
of requiring a height restriction and a spe- 
cial feature simultaneously. Once a list of 
possibilities is obtained, add other require- 
ments one at a time and make compro- 
mises where necessary. If no foliage plants 
are suitable for a particular location try 
flowering plants, and vice versa. 

Once you have a list of recommended 
plants, go to your local greenhouse and 
look at the plants or look them up in any 
good plant book to make your selections. ■ 
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"Some people have a green thumb— 

they seem able 
to grow plants anywhere/' 



Program Listing I continued 

15 PRINT"ENTER DESIRED PROGRAM" : PRINT "1 - DATA ON SPECIFIC PLANT 

■ 

20 PRINT" 2 - PLANT SELECTION" :GOSUB660 : INPUTQQ 

25 IFQQ01ANDQQ02THEN19 

30 IPQQ-1THEN245 

35 W-0:Y-0:I-1 

40 CLS:GOSUB660:PRINT"FLOWERING HOUSE PLANT INDEX" :W=W+1 

45 IFW>6PRINTgl09, "RECOMMENDED PLANTS" 

50 GOSUB660:ONWGOTO55,70,85,100,115,135,140,195,195,195,195,195 

55 PRINT'ENTER " > AA$:PRINT"1 - "; AB$:PRINT"2 - ";ACS 

60 PRINT"3 - "; ADS: PRINT" 4 - "; AE$:PRINT"5 - ";AFS 

65 GOSUB66D:INPUTL:GOTO40 

70 PRINT"ENTER " ;BA$:PRINT"1 - ">BB$:PRINT"2 - ";BC$ 

75 PRINT"3 - ";BD$:PRINT"4 - ";BE$:PRINT"0 - ";BFS 

80 GOSUB66O:INPUTH:GOTO40 

85 PRINT"ENTER " jCA$: PRINT"1 - " ;CB$:PRINT"2 - ";CCS 

90 PRINT" 3 - ";CDS 

95 GOSUB660:INPUTN:GOTO40 

100 PRINT"ENTER ";DA$:PRINT"1 - ";DB$:PRINT"2 - ";DCS 

105 PRINT "3 - ";DD$:PRINT"4 - ";DE$:PRINT"6 - H ;DF$ 

110 GOSUB660:INPUTC:GOTO40 

115 PRINT"ENTER YOUR DISPLAY CHOICE" 

120 PRINT'l - SCIENTIFIC NAMES" :PRIHT"2 - SCIENTIFIC AND COMMON" 

125 PRINT"3 - SCIENTIFIC, COMMON, PLUS PLANT CARE NOTES" 

130 GOSUB660:INPUTG:GOTO40 

135 GOSUB146O:GOSUB660:GOTO40 

140 FORZ»1TO120:READA$,Q,R,T,V 

145 IF(L=Q) +( (L=3) * (Q-5) ) +( (L=l) * (Q-2) ) * ( (U«R) +(H«0) ) THEN155 

150 GOTO210 

155 IFN-TTHEN165 

160 GOTO210 

165 IF(C-V) + (C-0)+((C-2)*((V=5)+(V=6) + (V-7)))+((C-4)*(V=6))THE:il 

80 

170 IF((C-3)*(V=5))+((C=3)*(V«8))+((C-1)*((V«7)+(V-8)))THEN180 

17 5 GOTO210 

180 IFK10THEN195 

185 GOSUB66O:IFPS»"Y"GOSUB1525:I=1:GOTO40 

190 PRINT"HIT ENTER TO CONTINUE LISTING" 

192 IFINKEY$OCHRS(13)THEN192ELSEI=1:GOTO40 

195 Y=Y+l:IFG=lPRINT0176+16*Y,A$:I=I+.25 

200 IPG>1PRINTA$;" - "; : I-I+l :GOSUB665 

205 IFG-3GOSUB1270: 1*1+1 

210 NEXTZ:RESTORE:IFY-0PRINT"SORRY - NO RECOMMENDATIONS" 

215 GOSUB660:IFP$="Y"GOSUB1525 

220 IFL>1THEN235 

225 PRINT" I RECOMMEND A FOLIAGE PLANT - BUT YOU MAY TRY THE ABOV 

E" 

230 GOSUB660 

235 INPUT"ANOTHER RUN ( Y/N) " ;Q$: IFLEFT$ (Q$,l) ="Y"THEN10 

240 CLS:END 

245 CLS:GOSUB660:PRINT"FLOWERING HOUSE PLANT INDEX" :CK«0 

250 GOSUB660 

255 PRINT"TYPE IN THE SCIENTIFIC PLANT NAME THAT YOU DESIRE" 

260 PRINT'TO GET INFORMATION ON":GOSUB660 

265 INPUTQ$ 

270 FORZ»1TO120:READAS,Q,R,T,V 

275 IFA$OQSTHEN415 

280 CK=1:CLS:GOSUB660:PRINTAS;" PLANT CHARACTERISTICS" 

285 GOSUB660:PRINT"COMMON NAME(S) - ";:GOSUB665 

290 PRINT"BEST ">AA$j" - '; 

295 IFQ-10RQ=2PRINTACS;" OR ";AB$ 

300 IFQ-3PRINTAD$ 

305 IFQ=4PRINTAE$ 

310 IFQ-5PRINTAFS;", ";AD$ 

315 PRINT*MAXIMUM ";BA$;" - '} 

320 IFR-1PRINTBB$ 

325 IFR-2PRINTBCS 

330 IFR-3PRINTBD$ 

335 IFR-4PRINTBE$ 

340 PRINT*BEST "jCA$;" - "; 

345 IFT-1PRINTCB$ 

350 IFT«2PRINTCC$ 

Program Listing 1 continues 



MMSFORTH VERSION 2.0: 
MORE FOR YOUR RADIO SHACK 
TRS-80 MODEL i OR MODEL III ! 

* MORE SPEED 

iC 20 lures 'mar than Level II BASIC 

* MORE ROOM 

Vary compact compiled cMi plus VIRTUAL 
MEMORY mixt your RAM id larQet Vi'iit>i« 
number of block Duller* 31 -char -unique word 
names use only 4 by tai >n header 1 

* MORE INSTRUCTIONS 

Add YOUR commindl 10 ill 79-STANOARD-plus 

•nsttuction set' 

Far mora complete than most Forms single 4 

double precision, arrays string handling, clock. 

more 

* MORE EASE 

Excellent lui screen Editor structured » 

modular programming 

Word search utility 

THE NOTEPAO letter writer 

Optimized lor your TRS SO with keyboard 

repeats uppemower case display driver lull 

ASCh s>ngie & double-width graphics, etc 

* MORE POWER 
Forth operating system 
interpreter ANO compiler 
8080 Assembler 

(280 Assembler also available) 

intermix 35 to 80 track disk drives 

Mode' HI System can read, write & run Model I 

diskettes' 

VIRTUAL HO tor video and printer disk and tape 

itO-Megabyle hard disk avaiiabiei 




FORTH 



THE PROFESSIONAL FORTH 
FOR TRS-80 

(Over 2,000 systems In use) 

MMSFORTH Disk System V2 (requires 1 disk drive a 
16K RAM 32K lor Model III) 1129 tS* 

AND MMS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

inexpensive upgrades to lateat version 

Programming stall can provide advice modifications 

and custom programs to lit YOUR needs 

MMSFORTH UTILITIES 0ISKETTE includes FLOATING 
POINT MATH (L 2 BASIC ROM routines plus Complei 
numbers, Rectangular Polar coordinate conversions 
Degrees mode more) plus a 'uli Forth-styie Z80 ASSEM 
BLER; plus a powertu' CROSS REFERENCER to list 
Form words by block and line All on one diskette 
(requires MMSFORTH V2 1 drive & 32K RAMI 13* *S* 

FORTHCOM communications package provides RS 232 
drive*, dumb terminal mode transfer of FORTH blocks, 
and host mode to operate e remote TRS 80 requires 
MMSFORTH V2 ' drive &32K RAMi S3* 95' 

THE DATAHANDLER VI 2 a very sophisticated data 
base management system operable by non-pro- 

8 rammers requires MMSFORTH V? 1 drive & 32K 
AM) ... SS9 95' 

MMSFORTH GAMES DISKETTE real time graphics & 
boa'd games wsou'ce code Includes BREAKFORTH 
CRASHFORTH CRYPTOOUOTE. FREEWAY OTHELLO 
& TICTACFORTH |requ"es MMSFORTH V2 1 drive i 
.- i.-.'.i 13*95" 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL 
non-ownen . 

STARTING FORTH belt companion to ou- ma" 
ual 115*5' 

INVITATION TO FORTH 
ligFORTH . 

THREADED INTERPRETIVE LANGUAGES advanced. 
eiceHent analyst of MMSFORTH nke lan- 
guage. ... *ie»V 

PROGRAM OESIGN 4 CONSTRUCTION intro to struc 
turad programming good lor Forth . *t3 9S* 



FORTH 79 STANDARD MANUAL 
79STANDARD word set. etc 



official reference to 
S13.9S' 



FORTH SPECIAL ISSUE BYTE Miganne Aug 19801 
we slock this collector s Item for Forth users and begin 
nen MjDO" 

' ORDERING INFORMATION Software prices include 
manuals and require signing of a single system, single 
use' cense SPECIFY tor Model i or Model in 1 Add 
*2 00 SVM plus 13 00 per MMSFORTH and »1 00 per add> 
nonel book Mass orders add S'i tai Foreign orders 
add 20*i UPS COO. VISA & M'C accepted no unpaid 
purchase orders, piaase 



Send S*Sf to/ i-ee MUSfOH"' 
Good dea'ers sough' 



iic'«:jr«m 



-• See List ol Advertisers on page 418 



Get MMSFORTH products 'rom your 
computer dealer or 

MILLER MICROCOMPUTER 
SERVICES (M12) 

61 Lake Shore Road. NailcK, MA 01760 

(617)653-6136 ^ 112 
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REMSOFT, INC. 

Let Your TRS-80 ■ 

Teach You 

ASSEMBLY LANGUAGE 

Tired ol buying book alter book on assembly 
language programming and still not knowing your 
POP from your PUSH? 

REMSOFT p'oudly announces a more effi- 
cient way. using your own TRS80' to learn the 
fundamentals of assembly language programm 
ing - • at YOUR pace and YOUR convenience. 

Our unique package. "INTRODUCTION TO 
TRS-80- ASSEMBLY PROGRAMMING-, will pro 
vide you with the following: 

• Ten 45-mlnute lessons on audio cassettes 

• A driver program to make your TRS-80' video 
monitor serve as a blackboard for the instructor. 

• A display program lor each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• Stop-by-step dissection of complete and useful 
routines to test memory and to gain direct con 
trol over the keyboard, video monitor, and 
onnter 

• How to access and use powerful routines in 
your Level II ROM 

Presently available for Model 1 only 
REMASSEM-1 n P ... only $69.95 
REMASSEM-1.d,»k) only $74.95 

LEARN TRS-80 5 
ASSEMBLY LANGUAGE 
DISK I/O 

Your disk system and you can really step out 
with REMSOFT'S Educational Module, 
REMDISK1, a short course' revealing the details 
of DISK I/O PROGRAMMING using assembly 
language 

Intended for the student with experience in 
assembly language, using the same format as our 
extremely popular introduction to assembly 
language programming, this "ASSEMBLY 
LANGUAGE DISK I/O PROGRAMMING" course in 
eludes: 

• Two 45-mmute lessons on audio cassette 

• A driver program to make your TRS-80" video 
monitor serve as a blackboard tor the instructor 

• A display program for each lesson to provide il 
lustration and reinforcement for what you are 
hearing. 

• A booklet of comprehensive, fully-commented 
program listings illustrating sequential Hie I/O 
random access file I/O. and track and sector I/O 

• A diskette with machine-readable source codes 
for ail programs discussed, in both Radio Snar.k 
EOTASM and Macro formats 

• Routines to convert from one assembler format 
to the other. 

Presently available for Model 1 only 
REMDISK-1 only$29.95 

Dealer inquiries invited 

These courses were developed and recorded by 
Joseph E Willis and are based on the successful 
series of courses he has taught at Mela 
Technologies Corporation, the Radio Shack Com- 
puter Center, and other locations in Northern 
Ohio. The minimum system required is a Level II. 
16K RAM 



REMSOFT, INC. 

571 E. 185 St. 

Euclid, Ohio 441 19 

(216) 531-1338 



SHIPPING CHARGES 

$2 50 WITHIN UNITED STATES 

$5 00 CANADA AND MEXICO 

OTHER FOREIGN ORDERS ADD 20% 

OHIO RESIDENTS ADO 5'-» % SALES TAX 
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TRS-80' IS A TRADEMARK OF TANDY CORP 



Program Listing f continued 

355 IFT-3PRINTCDS 

360 PRINTDA$;" - "; 

365 IFV»0PRINT"NONE" 

370 IFV-lPRINTDBS 

37 5 IFV-2PRINTDCS 

380 IFV=3PRINTDD$ 

385 IFV-4PRINTDES 

390 IFV=5PRINTDC$;" AND ";DD$ 

395 IFV«6PRINTDC$;" AND ";DE$ 

400 IFV=7PRINTDCS;" AND ";DD$ 

405 IFV-8PRINT"TRAILING, CLIMBING, AND FOLIAGE HARKINGS" 

410 PRINT-PLANT CARE NOTES . . . . " :GOSUB1270 

415 NEXTZ: RESTORE 

420 IFCK-1THENGOSUB660 :GOSUB1460 :GOSUB1525 :GOT0445 

425 PRINT"NO PLANT BY THAT NAME HAS BEEN FOUND ..." 

430 PRINT"PLEASE CHECK YOUR SPELLING" 

435 GOSUB660:INPUT"DO YOU WISH TO TRY AGAIN, (Y/N)";QA$ 

440 GOTO450 

445 INPUT" ANOTHER RUN (Y/N)";QA$ 

450 QA$-LEFT$(QAS,1) : IFQA$="Y"THEN10 

455 CLS:END 

460 DATAABUTILON ,4,3,2,1, ACAHYPHA ,3,3,3,0, ACH IMENES ,5,1,3,0 

465 DATAAECHMEA ,3,2,3,3, AESCHYNANTHUS ,3,2,3,1, AGAPATHUS ,4,2,2,0 

470 DATAALLAMANDA ,4,4,3,1 , ANTHURIUM ,3,2,3,0, APHELANDRA ,3,2,3,0 

47 5 DATAARDISIA,3,3,2,4,AZALEA,3,2,1,0,BEGONIA,4,2,2,3 

480 DATABELOPERONE ,4,2,2, ,BILLBERGI A, 4 ,2,3,3, BOUGAINVILLEA, 4,3, 

3,1 

485 DATABRASSAVOLA,3,l,2,2,BRASSIA,4,2,3,5,BROWALLIA,4,3,2,l 

490 DATABRUNFELSIA,4,2,2,2,CALCEOLARIA,3,1,1,0,CALLIANDRA,4,4,3, 

3 

495 DATACAMELLIA,3,3,1,0,CAPSICUM,4,1,3,4,CARISSA,4,2,3,6 

500 DATACATTLEYA,4,2,2,0,CESTRUM,4,2,3,6,CHIRITA,4,2,3,0 

505 DATAC I TRUS ,4,4,3,6, CLERODENDRON ,3,3,3,1,CLIVIA,3,2,2,0 

510 DATACOFFEA, 3 ,4,3, 6 ,COLUMNEA, 5 ,2,2,1 ,CRINODONNA, 4 ,3,2,2 
515 DATACRI HUM ,4,3,2,2, CROSS ANDRA ,4,1,3,0, CRYPTANTHUS ,3,1,3,3 

520 DATACUPHEA,4,1,2,3,CYMBIDIUM,4,1,2,0,DENDROBIUM,3,2,2,7 

525 DATADIPLADENIA,3,4,3,0,DYCKIA,2,2,2,3,EPIDENDRUM,3,1,2,2 

530 DATAEPIPHYLLUM,3,2,2,0,EPISCIA,5,1,3,8,ERVATAMIA,4,3,3,2 

535 DATAEUCH AR I S , 3 , 2 , 3 , 2 , EUPHORBIA ,4,2,2,0, EXACUM ,3,1,3,2 

540 DATAFORTUNELLA ,4,2,2,6, FUCHSIA, 4 ,3,2,0 , GARDENIA, 4 ,3,2,2 

545 DATAGELSEMIUM,2,4,2,7,GLOXINERA,5,1,3,0,GUZMANIA,3,2,3,3 

550 DATAHAEMANTHUS ,4,2,2,2 , HELIOTROPIUM ,4,2,2,2 , HIBISCUS ,4,4,3,0 

555 DATAHIPPEASTRUM ,4,2,3,0, HOYA, 4 ,4,3,2, HYDRANGEA, 3 ,2,2,0 

560 DATAHYPOCYRTA,5,2,3,1,IMPATIENS,5,1,3,0,IPOMOEA,4,4,3,1 

56 5 DATAIXORA ,4,2,3,3, JACOBINIA ,4,1,3,0, JASMINUM ,4,4,2,2 

570 DATAKALANCHOE, 4 ,1,2, ,KOHLERIA , 3,2,3, 1 ,LACHENALIA, 4 ,1,1,0 

575 DATALAELIA , 4,2,2,0, LAELIOCATTLEYA, 3 ,2,2,0, LANTANA, 4 ,4,2,7 

580 DATALILIUM,3,2,l,2,LOBULARIA,4,l,2,7,MALPIGHIA,2,l,2,4 

585 DATAMALVAVISCUS,4,2,3,0,MANETTIA,2,4,2,1,MAXILLARIA,3,1,2,2 

590 DATANEOFINETI A, 3 ,1,2,2, NEOMARCI A , 3,2,2,2 , NICOTIANA, 4 ,1 , 2 , 2 

595 DATANIDULARIUM,3,1,3,3,ODONTOGLOSSUM,3,1,3,2,ONCIDIUM,4,2,2, 



600 DATAOSMANTHUS ,2,3,2,2, OXALIS , 4,1,2,0, PAPHIOPEDILUM ,2,2,3,3 

605 DATAPASSIFLORA,4,4,2,7,PELARGONIUM,4,2,2,0,PHALAENOPSIS,3,4, 

3,0 

610 DATAPKIMULA,3,1,1,0,PUNICA,4,2,2,4,QUESNELIA,3,2,3,0 

615 DATARECHSTEINERIA,5,2,3,0,ROSA,4,1,2,2,ROSMARINUS,4,2,2,5 

620 DATARUELLIA,3,3,2,0,SAINTPAULIA,5,1,3,0,SAXIFRAGA,2,1,1,8 

625 DATASCH I ZOCENTRON ,2,1,2,1, SCHLUMBERGRA ,3,2,2,0, SENECIO , 4,2,1 

,3 

630 DATASINNINGIA,5,1,3,0,SMITHIANTHA,5,1,3,3,SOLANUM,4,1,2,4 

635 DATASPATHIPHYLLUH ,2 , 2,3, 2 ,STEPHANOTIS, 4 ,2,3, 2 ,STRELITZIA, 4 ,3 

,2,0 

640 DATASTREPTOCARPUS ,5,1,3,0, STREPTOSOLEN ,4,3,2,1 ,THUNBERGI A , 4 , 

4,2,1 

645 DATATILLANDSIA,3,l,3,2,TRACHELOSPERMUM,4,3,2,7,TRICHOCENTRUM 

,3,1,2,5 

650 DATATULBAGI A, 4 ,2,1,2 ,VALLOTA, 4 ,2,2,0 , VELTHEIMIA, 4 ,2,1,0 

6 55 DATAVRI ESIA,3,2,2,0, ZANTEDESCH I A , 4,2,2,3 , ZEPHYRANTHES ,4,1,1, 



660 PRINTSTRINGS(64,42) ;:RETURN 

665 IFZ«lPRINT"FLOWERING MAPLE" 

670 IFZ-2PRINT"CHENILLE OR BEEFSTEAK PLANT" 

675 IFZ-3PRINT"MAGIC FLOWER, WIDOW'S TEARS, NUT ORCHID" 

680 IFZ-4PRINT"FOSTER'S FAVORITE" 

685 IFZ-5PRINT"LIPSTICK PLANT OR BASKETVINE" 

690 IFZ-6PRINT"BLUE AFRICAN LILY" 

695 IFZ-7PRINT"ALLAMANDA" 

700 IFZ=8PRINT"TAILFLOWER OR FLAMINGO FLOWER" 

705 IFZ»9PRINT"APHELANDRA" 

710 IFZ=10PRINT"ARDISIA" 

715 IFZ-11PRINT"AZALEA" 

720 IFZ-12PRINT"BEGONIA" 

725 IFZ=13PRINT"SHRIMP PLANT" 

730 IFZ-14PRINT"PERMANENT WAVE PLANT" 

735 IFZ=15PRINT"BOUGANVILLEA" 

740 IFZ-16PRINT"LADY OF THE NIGHT ORCHID" 

745 IFZ=17PRINT"SPIDER ORCHID" 

750 IFZ = 18PRINT"BROWALLIA" Program Ustmg 1 contrnues 
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We've got 5 Mbytes on TRS-80® Model III! 

^# * TRS-fln i«s a trademark o( the Radio Shack Division of Tandy Corporation 




Model 325 

Over 5 Mbytes of storage is attained using a 
double-headed 40-track drive and a 6.38 
Mbyte Winchester, all housed in the Model 
III system. Drive storage is equivalent to 
more than 27 single-sided 40-track floppy 
drives. Storage is approximately equivalent 
to 1000 pages of text. $5,995.00 

10 Mbyte system also available. . $6,495.00 



SPECIFICATIONS 
Microprocessor • Z-80 runs 2.03 MHz, 4.0 MHz 
optional. 

Winchester Drive Specifications • Tandon Winchester 
storage up to 10 Mbytes on 5'/4" fixed disk • backup to 
floppy by file/ name or sector count • hardware is 
Tandon TM602/TM603 Winchester, Western Digital 
WD1000 drive controller • Computex host adaptor/ 
drive controller and switching power supply • Win- 



chester is drive-accessed as drive #4 • standard DOS 
commands are used in all Winchester accesses. 

Floppy Disk Drive • Disk drives: Tandon TM100 series 
supporting track-to-track access time of 5ms. • storage 
capacities range from 340K to 9.57 Mbytes • drive 
controller board by Computex. 



Transient Protection • all systems include a metal 
oxide varister which prevents transients from 
damaging your system. 



Model 321 



370 Kbyte floppy disk storage with 
2 single-sided 40-track drives. 
Storage approximately equivalent 
to 80 full pages of text. System 
configuration is identical to Radio 
Shack 26-1066. less RS232. 



$1 ,895.00 



Model 322 

740 Kbyte floppy disk storage with 
2 double-sided 40-track drives. 
Drives can be accessed as either 2 
single-volume 80-track drives, or as 
4 individual 40-track drives. Drive 
storage is equivalent to a 4-drive 
system using only 2 physical disk 
drives. Storage is approximately 
equivalent to 160 pages of text. 

$2,295.00 



Model 324 

1 .4 Mbyte floppy aisk storage with 
2 double-sided 80-track drives. 
Drives can be configured and 
accessed as 2 single-volume 160- 
track drives, or as 4 individual 
80-track drives. Drive storage is 
equivalent to 8-drive system, using 
only 2 physical disk drives. Storage 
is approximately equivalent to 320 
pages of text $2,595.00 



COMPUTEX Comprehensive Test Program 

As a leading supplier of disk drives and TRS80 systems, we had to have 
a system test program - and one that we could trust. Since none existed, 
we wrote our own. Now we make it available to you. A must lor disk 
drive users - no library should be without one. 
• disk drive speed test • disk drive alignment program (requires 
alignment disk - Dysan Alignment Disk $39 95) • expansion interlace 
RAM test • keyboard RAM test • video RAM test • keyboard bounce 
test • ROM checksum program • full screen RAM display program. 



TANDON DISK ORIVE EXPANSION KITS 

• Switching power supply • storage to 2 Mbytes • supports TRSDOS, 
LDOS, D0S + , and new DOS80 • 32K RAM expansion • double 
density disk controller. 

M3DK0 • Drive kit, 1 Tandon single-sided 40-track drive $650.00 

M3DK1 - Drive kit, 2 Tandon single-sided 40-track drives. . $765.00 
M3DK2- Drive kit. 2 Tandon double-sided 40-track drives. ... $995.00 
M3DK4 Drive kit. 2 Tandon double-sided 80-track drives $1,195.00 



TANDON MINI-FLOPPY DISK DRIVES 

complete TM100-1 - single-sided 40-track drive - 102 
Kbytes single density 180 Kbytes double 

S299.95 density 

TM100-2 - double-sided 40-track drive - 204 
Kbytes single density - 360 Kbytes double 

$399.95 density. 

TM 100-3 - single-sided 80-track drive - 204 
Kbytes single density - 360 Kbytes double 

S399.95 density. 

TM100-4 - double-sided 80-track drive - 408 
Kbytes single density - 735 Kbytes double 

S499.95 density. 



/JMPL/TEX 

a subsidiary of World Wide Data Systems, loc 



Rare Drive 

$235.00 
S335.00 
$335.00 
$435.00 

-392 



. 



MDX-2 INTERFACE EXPANSION 

Provides more capabilities than any other system expansion currently 

available. Build only what you need. 

Complete MDX-2 Kit $274.95 

• MDX-2 printed circuit board only $74.95 

• Onboard direct connect modem kit 39.95 

• RS232 mA serial interface (required for direct connect modem). 1 7.95 

• 2K/4K Epromkit 1J-* 

• Real-time clock kit ■'■*> 

• Floppy disk controller kit 31 95 

• 32K RAM expansion kit (less RAM) 1795 

• Dual cassette kit (less 4 PDT relay) 4 95 

• Analog power supply «■« 

• Hardware and socket kit 29.95 

• Centronic line printer kit JhL 

• 16K RAM memory 1495 



321 El Dorado • Webster Texas 77598 • (713) 488-8022 



LET'S MAKE A 
DEAL 

Free Shipping Within Continental U.S.A. 



LDOS 



Complete w/manual & latest updates 
Mod I or III $144.95 



LAZYWRITER 

Mod. I $118-95— Mod III $164,951 



EPSON/OKIDATA 

CALL FOR OUR LOW PRICE 



MAXI MANAGER 

by Adventure International -Latest Version 
Model l/l 1 1 48K Disk $84.95 



Proofreader ■* . . . .Mod 1 49.95 Mod III 59.95 
Proof edit . . > "y soft tools . . Mod I or 1 1 1 28.50 
Grammatik .).... Mod 1 45.95 Mod III 55.95 



LYNX — Mod 



Includes — Autodial/answer 
cables & software 



$259.95 



We also carry the toll line ol Adventure Intl. Acorn. Big 
Five, Bfoderound, Avalon Hill Microsoft. Dalasolt. 
Misosys. Automated simulations and most other line 
software at discount prices Gift Certificates availaMS 



SEND FOR YOUR F REE CATALOG 
No credit cards al these low prices Add S?.00nnaiiCodor 
ders Certified ck/MO/COD shipped immediately Please 
allow 2 weeks for personal checks For extra last service. 
phone m your COD order Prices subiect to change without 
notice NY S residents please add appropriate sales lax 
We Oiler Great Values & Prompt Deliverv Why Not TryUs'' 



MICRO-IMAGES 

146-03 25th Rd, Flushing, NY 11354 
iQAMjiPM (212)445-7124 s,.i iqamspm 
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Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 



TRS80 •* 

MODEL I 
LEVEL II 
2 DISK 



A General DC AC (steady statel 
Analysis of Any Circuit 

Will Analyze and Compute: 

• Node. Hi am h Element, Voltage* 

• Nude. Branch. Element, Current* 

• !ii.n. . .'. I'imcr Dissipation 

• Magnitude and piia-w indue* and rnniplete 
frequency response with Kraphir display 

• Modify any r-lenieiil in rireuil foi desired 
result* 




A CO 

lairyai sujft 
compara\le/o IBM's 

E.C.A.P yr\ Program 
•A C Analyst Program 



After our 

BIG SUCCESS 

with Ihese programs 

we can now sell >l 

for only 

$79.95 

FOR BOTH PROGRAMS 

Limited offer — order now 



VISA OR MASTERCHARGE ACCEPTED 

II,. S.il s, nil I .i-.li m Hi, M.i 1 1 
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In Oritri Vi i in- 

GAL Software Enterp. 

2304 N. 1st. Street 

Upland. CA 91786 



TRS 80™ is a trademark of the Tandy Corp E.C.A.P is a 
trademark of International Business Machines, Inc 



Program Listing 1 continued 

755 IFZ-19PRINT"YESTERDAY, TODAY, AND TOMORROW PLANT" 
760 IFZ=20PRINT"POCKETBOOK FLOWER OR SLIPPERWORT" 
765 IFZ«21PRINT"PINK POWDER PUFF" 
770 IFZ-22PRINT*CAMELLIA" 
775 IFZ-23PRINT"ORNAMENTAL PEPPER" 
7 80 IFZ=24PRINT"NATAL PLUM" 

785 IFZ=25PRINT"CATTEYA, EASTER, OR CHRISTMAS ORCHID" 
790 IFZ-26PRINT"BLOOMING JASMINE" 
795 IPZ=27PRINT"CHIRITA" 

800 IFZ-28PRINT"LEMON, ORANGE, OR TANGERINE" 
805 IFZ=29PRINT"GLORY BOWER" 
810 IFZ=30PRINT"KAFIR LILY" 
815 IFZ-31PRINT"ARABIAN COFFEE" 
820 IFZ-32PRINT"COLUMEA" 
825 IFZ»33PRINT"CRINODONNA" 

830 IFZ-34PRINT"BENGAL OR MILK AND WINE LILY" 
835 IFZ-35PRINT"CROSSANDRA" 
840 IFZ=36PRINT"EARTH STAR" 
845 IFZ-37PRINT"CIGAR PLANT" 
850 IFZ-38PRINT"CYMBIDIUM ORCHID" 
855 IFZ=39PRINT"DENDROBIUM ORCHID" 
860 IFZ-40PRINT"DIPLADENIA" 
865 IFZ=41PRINT"DYCKIA" 
870 IFZ-42PRINT"CLAMSHELL ORCHID" 
875 IFZ=43PRINT"ORCHID CACTUS" 
880 IFZ-44PRINT"EPISCIA OR FLAME VIOLET" 
885 IFZ=45PRINT"BUTTERFLY GARDENIA OR CRAPE JASMINE" 
890 IFZ-46PRINT"AMAZON LILY" 
895 IFZ»47PRINT"POINSETTIA" 
900 IFZ»48PRINT"ARABIAN VIOLET" 
905 IFZ-49PRINT"NAGAMI OR OVAL KUMQUAT" 
910 IFZ»50PRINT"FUCHSIA" 

915 IFZ-51PRINT"GARDENIA OR CAPE JASMINE" 
920 IFZ=52PRINT"CAROLINA JASMINE" 
IFZ»53PRINT"GLOXINERA" 
IFZ=54PRINT"GUZMANIA" 
935 IFZ-55PRINT"BLOOD LILY" 
940 IPZ»56PRINT"COMMON HELIOTROPE" 
IFZ-57PRINT"HIBISCUS" 
IFZ=58PRI NT" AMARYLLIS" 
955 IFZ»59PRINT"WAXPLANT" 
960 IFZ-60PRINT"HYDRANGEA" 
965 IFZ»61PRINT"G0LDFISH PLANT" 
970 IFZ»62PRINT"PATIENT LUCY" 
975 IFZ=63PRINT"MORNING GLORY" 

980 IFZ-64PRINT"JUNGLE GERANIUM OR FLAME OF WOODS" 
IPZ-65PRINT"BRAZILIAN PLUME OR KING'S CROWN" 
IFZ»66PRINT"JASMINUM" 
995 IFZ-67PRINT"KALANCHOE" 
1000 IFZ=6 8PRINT"KOHLERIA" 

1005 IFZ-69PRINT"CAPE COWSLIPS OR LEOPARD LILIES" 
1010 IFZ=70PRINT"LAELIA ORCHID" 
1015 IFZ-71PRINT"LAELI0CATTLEYA ORCHID" 
1020 IFZ=72PRINT"COMMOH OR TRAILING LANTANA" 

IFZ-73PRINT*EASTER LILY" 

IFZ=74PRINT"SWEET ALYSSUM" 
1035 IFZ-75PRINT"MALPIGHIA OR SINGAPORE HOLLY" 
1040 IFZ=76PRINT"TURK , S CAP, SCOTCH PURSE, WAXMALLOW" 

IFZ-77PRINT"FIRECRACKER VINE" 

IFZ=78PRINT"MAXILLARIA ORCHID" 

IFZ«79PRINT"NEOFINETIA ORCHID" 

IFZ-80PRINT"APOSTLE PLANT OR WALKING IRIS" 
1065 IFZ=8lPRINT"FLOWERING TOBACCO" 
1070 IFZ-82PRINT"NIDULARIUM (A BROMELIAD) " 

IFZ-83PRINT"LILY OF THE VALLEY ORCHID" 

IFZ-84PRINT"DANCING LADY ORCHID" 

IFZ=85PRINT"SWEET OLIVE" 

IPZ«86PRINT"OXALIS" 

IFZ-87PRINT"PAPHI0PEDLUM OR CYPRIPEDIUM ORCHID" 

IFZ-88PRINT"PASSIOFLOWER" 
1105 IPZ-89PRINT"GERANIUM" 
1110 IFZ-90PRINT"MOTH ORCHID* 

IFZ-91PRINT"PRIMROSE" 

IFZ»92PRINT"DWARF POMAGRANATE" 

IFZ»93PRINT"GRECIAN VASE PLANT" 
1130 IFZ-94PRINT"DOUBLE DECKER PLANT OR CARDINAL FLOWER" 
1135 IFZ=95PRINT"MINITURE ROSE" 
1140 IPZ-96PRINT"ROSEMARY" 
1145 IFZ=97PRINT"TRAILING VELVET PLANT" 
1150 IFZ"98PRINT"AFRICAN VIOLET" 
1155 IFZ=99PRINT"STRAWBERRY BEGONIA" 
1160 IFZ-100PRINT"SPANISH SHAWL" 
1165 IFZ=101PRINT"EASTER OR CHRISTMAS CACTUS" 
1170 IFZ»102PRINT"MEXICAN FLAME VINE OR PARLOR IVY" 
117 5 IFZ*103PRINT"GLOXINIA" 
1180 IFZ=104PRINT"TEMPLE BELLS" 

1185 IFZ«105PRINT"JERUSALBM OR CLEVELAND CHERRY" 
1190 IFZ-106PRINT"SPATHIPHYLLUM" 
1195 IPZ-107PRINT"MADAGASCAR JASMINE" 



925 
930 



945 
950 



985 
990 



1025 
1030 



1045 
1050 
1055 
1060 



1075 
1080 
1085 
1090 
1095 
1100 



1115 
1120 
1125 



Program Listing 1 continues 
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Program Listing 1 continued 

1200 IFZ=108PRINT"BIRD OF PARADISE" 

1205 IFZ=109PRINT"CAPE PRIMROSE" 

1210 IFZ=110PRINT"ORANGE STREPTOSOLEN" 

1215 IFZ=111PRINT"BLACK EYED SUSAN VINE" 

1220 IFZ=112PRINT"TILLANDSIA" 

1225 IFZ=113PRINT"STAR JASMINE" 

1230 IFZ=114PRINT"TRICHOCENTRUM ORCHID" 

1235 IFZ = 115PRINT"SOCIETY GARLIC OR FRAGRANT TULBAGIIIA" 

1240 IFZ=116PRINT"SCARBOROUGH LILY" 

1245 IFZ=117PRINT°VELTHEIMIA" 

1250 IFZ=118PRINT"FLAMING SWORD OR PAINTED FEATHER" 

1255 IFZ=119PRINT"CALLA LILY" 

1260 IFZ=120PRINT"ZEPHYR LILY" 

126 5 RETURN 

1270 PRINT" ==> SOIL, HUMIDITY, FEEDING. — "; 

1275 IFZ=380RZ=390RZ=42PRINT"WET, HIGH, 1M":G0T01455 

1280 IFZ=46ORZ=80ORZ=119PRINT"WET, NORMAL, 1M":G0T01455 

1285 IFZ=60PRINT"WET, NORMAL, NONE" :GOT01 455 

1290 IFZ=20PRINT"DRY, NORMAL, NONE" :GOT01455 

1295 IFZ=230RZ=73PRINT"MOIST, NORMAL, NONE" :GOT01455 

1300 IFZ=79PRINT"MOIST, HIGH, SPRING" :GOT01455 

1305 IFZ=1110RZ=112PRINT"M0IST, NORMAL, FALL" :GOT01455 

1310 IFZ=630RZ=89PRINT"DRY, NORMAL, 1M":G0T01455 

1315 IFZ=24ORZ=26ORZ=92ORZ=106PRINT"MOIST, NORMAL, 3-4M" :GOT0145 

5 

1320 IFZ=960RZ=990RZ=113PRINT"DRY, NORMAL, 3-4M" :GOT01455 

1325 IFZ=80RZ=90RZ=170RZ=65PRINT"MOIST, HIGH, 2W":GOT01455 

1330 IFZ=27ORZ=44ORZ=51ORZ=7 8ORZ=87ORZ=90GOTO13 45 

1335 IFZ=98ORZ=10 5ORZ=114GOTO1345 

1340 GOTO1350 

1345 PRINT"MOIST, HIGH, 1M":G0T01455 

1350 IFZ=12ORZ=13ORZ=15ORZ=40ORZ=41ORZ=67GOTO1365 

1355 IFZ=72ORZ=108GOTO1365 

1360 GOTO1370 

1365 PRINT" DRY, NORMAL, 2W":GOT01455 

1370 IFZ=16ORZ=25ORZ=7 0ORZ=71ORZ=83ORZ=84GOTO13 85 

1375 IFZ=94G0T01385 

1380 GOTO1390 

1385 PRINT"DRY, HIGH, 1M":G0T01455 

13 90 IFZ=28ORZ=36ORZ=47ORZ=49ORZ=7 5GOTO1400 

1395 GOTO1405 

1400 PRINT"DRY, NORMAL, SPRING" :GOT01455 

1405 IFZ=22ORZ=59ORZ=64ORZ=107ORZ=116GOTO1415 

1410 GOTO1420 

1415 PRINT"MOIST, NORMAL, SPRING" :GOT01455 

1420 IFZ=60RZ=7ORZ=110RZ=140RZ=18ORZ=19ORZ=29G0T01445 

1425 IFZ=31ORZ=35ORZ=37ORZ=43ORZ=4 8ORZ=50GOTO1445 

1430 IFZ=560RZ=6 20RZ=660RZ=760RZ=770RZ=81GOT01445 

1435 IFZ=880RZ=910RZ=950RZ=97GOT01445 

1440 GOTO1450 

1445 PRINT"MOIST, NORMAL, 2W":GOTOl455 

1450 PRINT"MOIST, NORMAL, 1M" 

1455 RETURN „ , , 

1460 INPUT"OUTPUT LISTING TO PRINTER, ( Y/N) " ; PS: PS=LEFT$ (PS,1) 

1465 IFP$="Y"THEN1480 

1470 IFP$="N"THENRETURN 

1475 GOTO1460 

1480 IFQQ=1THEN1500 

1485 INPUT"INPUT LISTING TO PRINTER, Y/N";R$ 

1490 R$=LEFT$(R$,1) : IFR$="Y"ORR?="N"THEN1500 

1495 GOT01485 

1500 AA=PEEK(14312) 

1505 IFAA=63THENRETURN 

1510 PRINT"THE LINE PRINTER IS NOT READY 

HIT ENTER WHEN READY TO PROCEED 

1520 IFINKEY$OCHR$(13)THEN1520ELSEPRINTCHR$(27)CHR$(27)CHR$(27) 

CHR$(31) ; :GOTO1460 

1525 IFR$="Y"AHDW=7THEN1580 

1530 IFP$="N"THEN1705 

1535 IFQQ=1THENIA=10 

1540 Y1=0 

1545 IFW>7THENY1=3 

1550 IFG=1THENIA=INT(I+1.5) 

1555 IFG=>2THENIA=I+1 

1560 FORYA=YlTOIA 

1565 FORXA=0TO62:AA=PEEK(1536O+XA+YA*64) : LPRINTCHR$ (AA) ; :NEXTXA 

1570 AA=PEEK(15423+YA*64) : LPRINTCHR$ ( AA) :NEXTYA 

1575 GOTO1705 

1580 LPRINT"SELECTED PLANT CHARACTERISTICS" 

1585 FORZA=0TO62:LPRINT"*"; :NEXTZA: LPRINT"*" 

1590 LPRINT"BEST ";AAS;" - "; 

1595 IFL=1LPRINTAB$ 

1600 IFL=2LPRINTAC$ 

1605 IFL=3LPRINTAD$ 

1610 IFL=4LPRINTAE$ 

1615 IFL=5LPRINTAF$ 

16 20 LPRINT"MAXIMUM ";BA$;" - " ; 

1625 IFH=1LPRINTBB$ 

Program Listing 1 continues 



LOWEST PRICES 



% 



ON 



TRS-80 




Line Printer VII. 
OK I DATA 

EPSON MX-70 
EPSON MX-80 



S329 



Microline 80 
Microline 82 



S394 
$499 

S369 

$4 79 



$ SAVE 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 



$ 



■ See List ot Advertisers on page 418 



VERBATIM DATALIFETM DISKETTES 
5'/4-inch (box of 10) $25.95 

8-inch Double-Density, $43.95 

* Payment Money Order Cashier s 
Check. Certified Check Personal 
Checks require 3 weeks lo clear VISA. 
MASTERCHARGE — Add 3% 

WRITE OR CALL FOR OUR COMPLETE PRICE LIST. 

CALL (602) 458-2477 

aaaaaa* All prices are mail order only ■eaaa 

RAND'S .- 

2185 E. FRY BLVD. 

SIERRA VISTA, AZ 85635 

TRS-80 is a trademark of Tandy Corporation^^ 
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PACKER Machine language program mat edits all or pan 
ot your Basic program to run faster save memory, or 
ease editing The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic inserts spaces and renumbers lines 
SHORT deletes unnecessary words spaces and REM 
statements PACK— packs lines into maximum multiple 
statement lines, including all branches MOVE— moves 
line or blocks of lines to any new location on program On 
? cassettes lor 16K. 32K & 48K 
For TRS-BO Mod I or III Level II or Disk Basic . S29 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM lormai 
tapes Includes verify routines Ihe Model III version 
allows use of both 500 and 1500 baud cassettes speeds 

For TRS-80 Model I or III level ll S15 95 

CASSETTE LABEL MAKER A mini *ord processor to print 
cassette labels on a line printer Includes 50 peel - and 
stick labels on tractor feed paper 
For TR-80 Model I of III level II & Printer . S17 95 

PRINT TO LPRINT TO PRINT: Edits your Basic program in 
seconds to change all Prints to L Punts (except Pnntfa or 
Print*) or LPnnts to Prints Save edited version 

For TR-80 Model I or III Level II S1295 

FAST SORT ROUTINES lor use with Radio Shacks 
Accounis Receivable Inventory Control l and Disk 
Mailing list Systems tor Model I level II Sorts in 
SECONDS 1 You II be ama/ed at the time they can save. 
Supplied on data diskette with complete instructions 

TAST SORT tor Accounts Receivable S'9 95 

FAST SORT for Inventory Control I S19 95 

FAST SORT for Disk Marling List (specify data diskette of 

cassette lot 1 drive system) S14 95 

ALL THREE ROUTINES S44 95 

Prices sublet to change without notice Call or write for a 
complete catalog Dealer inquiries invited VISA and 
Mastercharqe accepted Foreign order in US currency 
only Kansas residents add 3 i sales tax 
On-line catalog in Wichita FORUM-80 316-682-2113 
Or call our ?4 hour phone (3161 683-4811 or write 
COTTAGE SOFTWARE 
614 N HAROING 
WICHITA. KANSAS 67208 .-233 
TRS-80 1 M is a trademark of Tandy Corporation 




Mercer Systems 

wishes 

to 

thank its clients 

for 

making 

1981 

its most successful year! 




Thanks 

and 

Happy Holidays 

to 

ALL 

Mercer Systems, Inc. ^™ 

87 Scooter Lane 

Hicksville. N.Y. 

11801 ^w 



Program Listing 1 continued 

1630 IFH=2LPRINTBCS 

1635 IFH=3LPRINTBD$ 

1640 IFH=4LPRINTBE$ 

1645 IFH=0LPRINTBF$ 

1650 LPRINTCA$;" - "; 

1655 IFN=1LPRINTCB$ 

1660 IFN=2LPRINTCC$ 

1665 IFN=3LPRINTCD$ 

1670 LPRINT'DESIRED ";DA$|" - "| 

1675 IFC=1LPRINTDB$ 

16 80 IFC-2LPRINTDCS 

16 85 IFC=3LPRINTDD$ 

1690 IFC=4LPRINTDE$ 

16 95 IFC=0LPRINT"NONE" 

1700 GOTO1540 

1705 RETURN 

1710 AA$="LIGHTING CONDITION" »AB$="DIM LIGHT" 

1715 AC$-"NORTH WINDOW" :AD$-"EAST OR WEST WINDOW" 

1720 AE$="SOUTH WINDOW" :AF$«"ARTIPICAL LIGHTS" 

1725 BA$="PLANT HEIGHT RANGE" :BB$-"LESS THEN 1 FOOT" 

1730 BC$="1 TO 2 FEET":BD$="2 TO 3 FEET" 

1735 BE$="OVER 3 FEET" :BF$= "ANY" 

1740 CA$="NIGHTIME TEMPERATURE RANGE" :CB$»" 40 TO 50 DEGREES" 

1745 CC$="50 TO 60 DEGREES" :CD$»"60 TO 70 DEGREES" 

1750 DA$="SPECIAL FEATURES" :DB$»" TRAILING OR CLIMBING" 

1755 DC$="FRAGRANCE":DD$«"FOLIAGE COLORING OR MARKINGS" 

1760 DE$-"FRUITS OR BERRIES" :DF$="ANY" 

1765 RETURN 



Program Listing 2 

' FOLIAGE PLANT INDEX — BY JOHN CHIPMAN 

5 W=0:I=1:Y=0 

10 CLS:GOSUB1000:PRINT"FOLIAGE HOUSE PLANT INDEX" :W-W+1 

12 IFW>5PRINT@109, "RECOMMENDED PLANTS" 

15 GOSUBl000:ONWGOTO20,40,60,75 r 95,99,143 f 143 f 143 f 143,143 

20 PRINT"ENTER LIGHTING CONDITION" : PRINT" 1 - DIM LIGHT" 

25 PRINT"2 - NORTH WINDOW" :PRINT"3 - EAST/WEST WINDOW" 

30 PRINT"4 - SOUTH WINDOW" : PRINT" 5 - ARTIFICIAL LIGHTS" 

35 GOSUB1000:INPUTL:GOTO10 

40 PRINT"ENTER PLANT HEIGHT" : PRINT"1 - 1 FT OR LESS" 

45 PRINT"2 - 1 TO 2 FT":PRINT"3 - 2 TO 3 FT" 

50 PRINT"4 - OVER 3 FT":PRINT"0 - ANY" 

55 GOSUB1000:INPUTH:GOTO10 

60 PRINT" ENTER NIGHTIME TEMPERATURE" : PRINT" 1 - 40 TO 50 DEG." 

65 PRINT"2 - 50 TO 60 DEG." :PRINT"3 - 60 TO 70 DEG." 

70 GOSUB1000:INPUTN:GOTO10 

75 PRINT'ENTER SPECIAL FEATURES" : PRINT" 1 - TRAILING/CLIMBING" 

80 PRINT"2 - TERRARIUM":PRINT"3 - DISH GARDEN" 

85 PRINT"4 - FOLIAGE COLOR/MARKINGS" : PRINT" - ANY" 

90 GOSUB1000:INPUTC:GOTO10 

95 PRINT'ENTER YOUR DATA DISPLAY CHOICE" 

96 PRINT"1 - SCIENTIFIC NAMES" .-PRINT" 2 - SCIENTIFIC AND COMMON N 
AMES" 

97 PRINT"3 - SCIENTIFIC, COMMON, PLUS SOME PLANT CARE NOTES" 

98 GOSUB10O0:INPUTG:GOTO10 

99 FORZ=1TO103 

100 READA$,Q,R,T,V 

105 IF(L=Q)+((L=3)*(Q=5))+((L=1)*(Q=2))*((H=R)+(H=0))THEN115 

110 GOT0146 

115 IF(N=T)THEN125 

120 G0T0146 

125 IF(C=V)+(C=0)+((C=1)*(V=5))+((C=2)*((V=6)+(V=8)))THEN140 

130 IF( (C=3)*( (V=7)+(V=8) ) )+((C=4)*(V>4) )THEN140 

135 G0T0146 

140 IFK10THEN143 

141 GOSUB1000:INPUT"HIT ENTER TO CONTINUE LISTING";B$ 

142 I=0:GOTO10 

143 Y«Y+1:IFG=1PRINT@(176+16*Y) ,A$ 

144 IFG>1PRINTA$;" - ";: 1=1+1 :GOSUB2000 

145 IFG=3GOSUB3000: 1=1+1 

146 NEXTZ: RESTORE :IFY«0PRINT"SORRY - NO RECOMMENDATIONS" 
152 GOSUB1000 

155 Y=1:N=0 

160 INPUT"WOULD YOU LIKE ANOTHER RUN (Y/N) " >Q$: IFLEFT$(Q$,1) ="Y" 

THEN 5 

165 CLSiEND 

500 DATAACALYPHA, 4 ,3,2, 4 , ACORUS ,5,1,1, 4 , ADIANTUM ,2,2,2,2 

501 DATAADROMISCHUS,4,1,2,4,AGAVE,4,1,2,0,AGLAONEMA,2,2,3,0 

502 DATAALOE ,4,1,2,0, APOROCACTUS ,4,3,1,1 , ARAUCARI A , 3,4,2,0 

503 DATAASPARAGUS,3,2,2,1,ASPIDISTRA,2,3,2,0,ASPLENIUM,2,1,2,2 

504 DATAAUCUBA,3,4,1,7,BEAUCARNIA,4,4,2,0,BEGONIA,5,1,3,4 

505 DATABRASSAI A , 4,4,3,0, BUXUS ,4,4,1,0, CALADI UM , 5 , 2 , 3 , 4 

Program Listing 2 contmuts 
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WHAT 



I • 



ES 



80 micRocompuTinc 

DO FOR YOU? 

I ¥• provides you with more information on your TRS-80* than any other single source 

• gives you 20-30 new programs to use each month 

• reviews equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80— its good points and its limitations 
{80 Microcomputing is not affiliated with Tandy) 

• lets you save money— lots of it— by comparison shopping within the ad pages 

• clues you in on how other TRS-80 owners are using and updating their systems 

• lets you in on what is really happening in the industry 

• brings you Wayne Green's outspoken 
and often controversial editorials every 
month 

• and best of all it gives you a no risk 
subscription offer— B CJO 

■ d(J 

Subscribe today -if you are not satisfied with ^B 
the first issue — write "cancel" across your H ^J 

invoice and send it back. v LJ"*" 

The 80 Microcomputing is yours to keep. ^ \ 




Canadian 1 year only/US funds $27.00 Foreign 1 year only/US funds $35.00 

80 Microcomputing • PO Box 981 • Farmingdale, N.Y. 11737 

*TRS-80 is a trademark of Tandy 
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Wages 

Is 
Here 

FORTHETRS-80 

• Wages MEETS PAYROLLS 

» Wages IS GUARANTEED 

i Wages COST ONLY 
$35.00 FOR MODEL I 
($45.00 FOR MODEL II) 



FROM 
The Maine Software Library 

P.O. Box 194 " 268 

Standish, Maine 04084 

'A Trade name of the Tandy Corp 



f IS YOUR MICRO TOO***? 



THEN 
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WITH 

S-100! 
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COMPUTER wTF ^198 

INCORPORA TED 

5620 I76' h Street S.W. 

Lwnwood Washington 96036 

'2061 743-4336 

formerly HUH 



Program Listing 2 continued 

506 DATACALATHEA,5,2,3,6,CALLISIA,3,3,2,5,CARYOTA,3,4,3,0 

507 DATACEPHALOCEREUS ,4,1,1, 3 ,CEROPEGIA, 3,3,2, 5 ,CHAMAEDORA, 2 ,1,3 
,8 

508 DATACH AMAEROPS ,4,4,2,0, CHLOROPHYTUM ,3,2,2,5, CHRYSALIDOCARPUS 

,3,4,3,0 

509 DATACIBOTIUM,3,4,2,0,CISSUS,3,2,2,1,CODIAEUM,4,4,3,4 

510 DATACOLEUS,4,2,3,4,CORDYLINE,4,3,3,4,COSTUS,3,3,3,4 

511 DATACRASSULA, 4 ,2,1, ,CYATHEA, 3 ,4,2, ,CYCAS ,3,3,2,0 

512 DATACYPERUS ,4,4,2,0, CYRTOMIUM ,2,2,1,1, DAVALLI A ,2,2,2,1 

513 DATADIEFFENBACH IA , 3 , 4 , 3 , 4 ,DI ZYGOTHECA ,3,4,3,0, DRACAENA, 3 ,4,3 
,4 

514 DATAECHEVERIA, 4,1,2,3, ECHINOPSIS , 4,1,1,3, EUONYMUS ,3,3,1,7 

515 DATAEUPHORBI A, 4 ,2,2,3, FATSHEDERA, 4 ,3,1,1, FATSI A, 4,4,1,0 

516 DATAFICUS,3,4,3,0,FITTONIA,2,1,3,6,GASTERIA,5,1,2,0 

517 DATAGEOGENATHUS ,5,1,3,4, GREVILLEA ,4,2,2, ,GYMNOCALYCIUM ,4,1, 
2,7 

518 DATAGYNURA ,4,2,3,5, HAWORTH I A ,5,1,2,3 , HEDERA ,4,2,1,1 

519 DATAHOWEI A, 3,4,3,0, HYPOESTES ,5,1,3, 4 ,KALANCHOE ,4,1,2,0 

520 DATALAURUS ,4,4,1,0, LIGUSTRUM ,4,4,1,3, LIVISTONA, 3,3,3,0 

521 DATALOBIVIA,4,l,l,3,MAMMILLARIA,4,l,l,3,MARANTA,5,l,3,4 

522 DATAMONSTERA ,3,3,3,0, MYRTUS ,4,3,1,3, NEPHROLEPIS ,3,3,2,1 

523 DAT AN ICODEM I A , 4 , 2 , 3 , , NOTOCACTUS ,4,1,1,3,OLEA,4,4,1,0 

524 DATAOPUNTI A , 4,4,1,0 ,OSMANTHUS ,4,3,1,3, PACHYPHYTUM ,4,1,2,0 

525 DATAPANDANUS ,3,4,3,0, PEDILANTHUS ,3,3,2,0 , PEPEROMIA , 5,1,3,0 

526 DATAPH ILODENDRON ,3,3,3,0, PHOEN IX , 3 , 2 , 3 , 3 , PI LEA ,5,1,3,4 

527 DATAPIPER, 3 ,4,3, 5 ,PITTOSPORUM, 4 ,4,1,0, PLATYCERIUM ,5,2,2,0 

528 DATAPLECTRANTHUS ,3,2,2,1, PLEOHELE ,3,4,3,0, PODOCARPUS ,4,4,1,0 

529 DATAPOLYPODIUM,3,2,2,1,POLYSCIAS,4,3,3,0,POLYSTICHUM,2,2,2,2 

530 DATAPTERIS,2,1,2,2,RHAPIS,3,4,2,0,RHOEO,3,3,3,4 

531 DATASANSEVIERIA, 2 ,3,2,4, SCI NDAPSUS ,5,1,3,1, SEDUH ,4,2,2,1 

532 DATASENECIO ,3,2,2,1, SETCREASEA ,4,2,3,5, SYMGON IUM ,3,2,3,5 

533 DATATETRAPANAX,4,4,2,0,TOLMIEA,5,2,1,1,TRADESCANTIA,3,3,2,5 

534 DATAZEBRINA,3,3,3,5 

1000 PRINTSTRINGS (64, 42) ;: RETURN 

2000 IFZ=lPRINT"COPPERLEAF OR BEEFSTEAK PLANT" 

2001 IFZ»2PRINT"JAPANESE SWEET FLAG" 

2003 IFZ=3PRINT"HAIDENHAIR OR VENUS' HAIR FERN" 

2004 IFZ»4PRINT"SEA SHELLS, PLOVER EGGS, OR CALICO HEARTS" 

2005 IFZ=5PRINT"CENTURY PLANT" 

2006 IFZ=6PRINT"CHINESE EVERGREEN" 

2007 IFZ=7PRINT"ALOE" 

2008 IFZ=8PRINT"RATTAIL CACTUS" 

2009 IFZ=9PRINT"NORFOLK ISLAND OR STAR PINE" 

2010 IFZ»10PRINT"ASPARAGUS FERN" 

2011 IFZ=11PRINT"CAST IRON PLANT" 

2012 IFZ=12PRINT"MOTHER OR BIRD'S NEST FERN" 

2013 IFZ-13PRINT"JAPANESE AUCUBA OR GOLD DUST TREE" 

2014 IFZ=14PRINT"ELEPHANT FOOT TREE OR PONY TAIL" 

2015 IFZ«15PRINT"BEGONIA" 

2016 IFZ»16PRINT"SCHEFFERA, OCTOPUS TREE, OR UMBRELLA TREE" 

2017 IFZ«17PRINT"BOXWOOD" 

2018 IFZ=18PRINT"CALADIUM" 

2019 IFZ=19PRINT"PEACOCK PLANT" 

2020 IFZ-20PRINT"STRIPED INCH PLANT" 

2021 IFZ*21PRINT*TUFTED FISHTAIL PALM" 

2022 IFZ«22PRINT"OLD MAN CACTUS" 

2023 IFZ=23PRINT"ROSARY VINE OR HEARTS ENTANGLED" 

2024 IFZ=24PRINT"PARLOR OR NEANTHE PALM" 

2025 IFZ-25PRINT"EUROPEAN FAN PALM" 

2026 IFZ=26PRINT"SPIDER, BRACKET, OR RIBBON PLANT" 

2027 IFZ=27PRINT"BUTTERFLY, FEATHER, OR CANE PALM" 

2028 IFZ=28PRINT"HAWAIIAN OR MEXICAN TREE FERN" 

2029 IFZ=29PRINT"GRAPE OR KANGAROO IVY" 

2030 IFZ=30PRINT"CROTON" 

2031 IFZ»31PRINT"COLEUS" 

2032 IFZ-32PRINT"HAWAIIAN TI PLANT" 

2033 IFZ=33PRINT"SPIRAL FLAG OR STEPLADDER PLANT" 
203 4 IFZ=34PRINT"JADE OR SILVER DOLLAR PLANT" 

2035 IFZ=35PRINT"TREE FERN" 

2036 IFZ=36PRINT"FERN OR SAGO PALM" 

2037 IFZ=37PRINT"UMBRELLA PLANT" 

2038 IFZ=38PRINT"HOLLY FERN" 

2039 IFZ-39PRINT"DEER'S, SQUIRREL'S, OR RABBIT'S FOOT FERN" 

2040 IFZ=40PRINT"DIEFFENBACHIA OR DUMB CANE" 

2041 IFZ-41PRINT"FALSE ARALIA" 

2042 IFZ=42PRINT"DRACAENA OR DRAGON TREE" 

2043 IFZ=43PRINT"ECHEVERIA OR PAINTED LADY" 

2044 IFZ»44PRINT"PINK EASTER LILY CACTUS" 

2045 IFZ=45PRINT"WINTER CREEPER" 

2046 IFZ=46PRINT"CROWN OF THORNS OR DRAGON BONES" 

2047 IFZ=47PRINT"TREE OR ARALIA IVY" 

2048 IFZ=48PRINT"JAPANESE ARALIA" 

2049 IFZ=49PRINT"BENJAMIM OR WEEPING FIG OR RUBBER TREE" 

2050 IFZ=50PRINT"MOSAIC PLANT" 

2051 IFZ-51PRINT"GASTERIA" 

2052 IFZ=52PRINT"SEERSUCKER PLANT" 

2053 IFZ-53PRINT-SILK OAK" Program convnoas 
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Program continues 

2054 IFZ=54PRINT"PLAID OR CHIN CACTUS" 

2055 IFZ-55PRINT"PURPLE OR JAVA VELVET PLANT" 

2056 IFZ»56PRINT"HAWORTHIA" 

2057 IFZ=57PRINT"ENGLISH IVY" 

2058 IFZ=58PRINT"SENTRY PALM" 

2059 IFZ=59PRINT"FRECKLE FACE OR PINK POLKA DOT PLANT" 

2060 IFZ=60PRINT"KALANCHOE" 

2061 IFZ=61PRINT"SWEET BAY OR LAUREL" 

2062 IFZ=62PRINT"WAX LEAVED OR TEXAS PRIVET" 

2063 IFZ-63PRINT"CHINESE FAN PALM" 

206 4 IFZ=6 4PRINT"COB OR GOLD EASTER LILY CACTUS" 

2065 IFZ»65PRINT"GOLD STAR OR PINCUSHION CACTUS" 

2066 IFZ»66PRINT"PRAYER PLANT OR ARROWROOT" 

2067 IFZ-67PRINT"CUT OR SPLIT LEAF PHILODEHDRON" 

2068 IFZ=68PRINT"MYRTLE" 

2069 IFZ»69PRINT"SWORD FERN" 

2070 IFZ=70PRINT" INDOOR OAK" 

2071 IFZ=71PRINT"BALL CACTUS" 

2072 IFZ=72PRINT"OLIVE TREE" 

2073 IFZ=73PRINT"BEAVERTAIL OR BUNNY EAR CACTUS" 

2074 IFZ-74PRINT"FALSE HOLLY" 

207 5 IFZ=75PRINT"MOONSTONES OR SILVER ALMONDS" 

2076 IFZ=76PRINT"VEITCH SCREW PINE" 

2077 IFZ=77PRINT"DEVIL'S BACKBONE OR REDBIRD CACTUS" 

2078 IFZ*78PRINT"PEPEROMIA" 

2079 IFZ"79PRINT"PHILODENDRON" 

2080 IFZ»80PRINT"MINIATURE DATE PALM" 

2081 IFZ-81PRINT"ALUMINUM PLANT OR SILVER TREE" 

2082 IFZ=82PRINT"SAFFRON OR BLACK PEPPER" 

2083 IFZ«83PRINT"JAPANESE PITTOSPORUM" 

2084 IFZ=84PRINT"STAGHORN FERN" 
2035 IFZ-85PRINT"SWEDISH IVY" 

2086 IFZ=86PRINT"PLEOMELE" 

2087 IFZ-87PRINT"CHINESE PODOCARPUS" 

2088 IFZ-88PRINT"HARE'S FOOT FERN" 

2089 IFZ«89PRINT"VICTORIA OR BALFOUR ARALIA" 

2090 IFZ-90PRINT"TSUSSIMA HOLLY FERN" 

2091 IFZ=91PRINT"TABLE OR BRAKE FERN" 

2092 IFZ-92PRINT"LADY PALM" 

2093 IFZ=93PRINT"MOSES IN THE CRADLE OR BOAT LILY" 

2094 IFZ-94PRINT"SNAKE PLANT OR BOWSTRING HEMP" 

2095 IFZ»95PRINT"DEVIL'S IVY OR POTHOS" 

2096 IFZ=96PRINT"BURRO*S OR DONKEY'S TAIL" 

2097 IFZ«97PRINT"GERMAN OR PARLOR IVY" 

2098 IFZ-98PRINT"PURPLE HEART" 

2099 IFZ=99PRINT"ARROWHEAD VINE" 

2100 IFZ-100PRINT"RICE PAPER PLANT" 

2101 IFZ=101PRINT"PIGGY-BACK PLANT, MOTHER OF THOUSANDS" 

2102 IFZ-102PRINT"INCH PLANT OR WANDERING JEW" 

2103 IFZ=103PRINT"WANDERING JEW" 

2999 RETURN 

3000 PRINT" --> SOIL, HUMIDITY, FEEDING. — "; 

3001 IF(Z-2)+(Z=35)PRINT"WET, NORMAL, 6M" 

3002 IFZ=32PRINT"WET, HIGH, 3-4M" 

3003 IFZ=3PRINT"WET, HIGH, 6M" 

3004 IFZ=12PRINT"MOIST, HIGH, 6M" 

3005 IF(Z=16)+(Z=60)PRINT"DRY, NORMAL, 6M" 

3006 IF(Z=1)+(Z-13)+(Z-19)+(Z=50)+(Z=86)+(Z=89)PRINT"HOIST, HIGH 

, 3-4M" 

3007 IFZ=7PRINT"DRY, NORMAL, FALL" 

3008 IF(Z=21)+(Z=25)+(Z-27)+(Z=O7)+(Z«63)+(Z=80)+(Z=92)THEN3010 

3009 GOTO3011 

3010 PRINT"WET, NORMAL, SPRING" 

3011 IF(Z = 11) + (Z=17)+(Z = 24)+(Z«30) + (Z=*41) + (Z = 43)+(Z = 58)THEN3015 

3012 IF(Z=61)+(Z-66)+(Z=67)+(Z=6 9)+(Z=70)+(Z-74)+(Z=77)THEN3O15 

3013 IF(Z=87)+(Z=90)+(Z=100)THEN3015 

3014 GOTO3016 

3015 PRINT'MOIST, NORMAL, SPRING" 

3016 IF(Z-29)+(Z=34)+(Z=4O)+(Z"53)+(Z«76)+(Z-78)THEN3020 

3017 IF(Z-95)+(Z-96)+(Z=98)+(Z=102)THEN3020 

3018 GOTO3021 

3020 PRINT"DRY, NORMAL, 3-4M" 

3021 IF(Z=6)+(Z=28)+(Z-38)+(Z-39)+(Z=42)+(Z=48)+(Z=49)THEN3025 

3022 IF(Z-59)+(Z=84)+(Z=88)+(Z=91)THEN3025 

3023 GOTO3026 

3025 PRINT"MOIST, NORMAL, 6M" 

3026 IF(Z-9)+(Z»10)+(Z=15)+(Z=18)+(Z=20)+(Z-26)+(Z=31)THEN3O35 

3027 IF(Z=33)+(Z=45)+(Z=47)+(Z-52)+(Z-55)+(Z=57)+(Z=79)THEN3035 

3028 IF(Z-81)+(Z»82)+(Z=85)+(Z=93)+(Z=97)+(Z=99)+(Z=101)THEN3035 

3029 IF(Z-1O3)THEN3035 

3030 GOTO3036 

3035 PRINT"MOIST, NORMAL, 3-4M" 

3036 IF(Z=4)+(Z=5)+(Z=8)+(Z=14)+(Z=22)+(Z=23)+(Z»36)THEN3045 

3037 IF(Z=44)+(Z-46)+(Z-51)+(Z=54)+(Z-56)+(Z=64)THEN3045 
303 8 IF(Z«65)+(Z-68)+(Z=71)+(Z=72)+(Z-73)+(Z-75)THEN3045 

3039 IF(Z=83)+(Z-94)THEN3045 

3040 GOT03999 

3045 PRINT"DRY, NORMAL, SPRING" 

3999 RETURN 



EPSON Printers 



MX- 100 $ 749 

wide carriage gr.itii.i. 

MX- 80*7T $ 569 

uses roll (.infold or single sheet paper 

MX- 80 $ 469 

top selling dot matrix printer 



C.ITOH 

Starwriter Printers 



25cps parallel $1380 
45cps parallel $1755 

Type»v iter quality fricti 



OKI DATA Printers 



Mieroline80 $398 

Mieroline 82A $584 

Microline8.'3A $895 



M.rroline 82A & 83A ItMUTM 

1/11. |-, l.Mnl"i,ili.liilf nwr-i ck-s L i-.ul-i s 


UDS Modem 103 LP 
UDS Modem 103 JLP 
LEXICON Modem LLX-11 


Sl75 
S ?I5 

$125 


Scotch 3M Diskettes 

8 SSSD 10/ i 2/9 
V'« SSSD 10/ $2 69 


50/$? 59 



dULlststPon 

P.O. Bon 305 
M.issapequa, NY 11758 

C516) 798-7448 

visr. MC ma >\ 
FOaSn.RO.ng »Omt ».S O,. UdtlluTll ^* 323 

PRICES SUBJEC1 TO CHANGE . 



HMHRBHNnaBnne 

| TRS-80* I 

m 




When you buy your 
TRS-80™ equipment! 

Isc our loll free number to 
£$ check our price before >ou hu> 
a TRS-80^... anywhere! 

V Don't delay . . . CALL TODAY , 





Am 




If Mil 



SALES COMPANY 



s See List of Advertisers on page 41 8 



1412 WEST FAIRFIELD DR 
PO. BOX 8098 PENSACOLA FL 32506 
904/4386507 
nationwide 1800 874 1551 
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"... .It's becoming very clear now. . . 
Your microcomputing life is going to be very 
exciting ... Money! I see much 
money for you. Perhaps it is the 
money you will gain when 
Instant Software's new 
business applications 
guide your financial 
endeavors. I see 
travel. . you will 
journey to distant 
worlds in distant 
times. You will build 
kingdoms from des- 
erts and armies 
from slaves. Never 
will you be bored, 
adventurous one! Your 
programming burdens will 
lighten with new utilities— new 
tools. I see color! Many 
bright colors! I see new 
packaging for all these trea- 
sures .. .everything new! 
And... yes, a tall, hand- 
some stranger who will 
guide you to these won- 
ders. It will be your In- 
stant Software dealer— 
a wise one indeed. All 
awaits you — all is 
yours for the asking. 
Soon. . very soon!" 



Get a glimpse of the future today— at your nearest 

Instant Software dealer. 



THE COMPUTER SHOP CMMen 


ATLANTA COMPUTER MART Atlanta 


RURAL AMERICA ENTERPRISES Ma.srait 




WISCONSIN 


OlENSKY BROS . MOWH 


BAILEES COMPUTER SHOP Augu»l* 


ZlM COMPUTERS B'oomynCeme' 


WANNA PLAY Cincinnati 


BYTE SHOP Gfeeniietd 


ALASKA 


DELTA DATA DYNAMICS TuCW 


MISSISSIPPI 


OKLAHOMA 


BYTE Shop Miiwsuiea 


COMPUTER TALK Anchorage 


ENERGY LOGIC. Columbus 


C-COM Jac*son 


COMPUTER STORE INC "uisa 


COMPUTER WORLD Appieion 


ARIZONA 


*LEM»NG DRUG CO Wrens 


D»E R'S INC Wesi Point 


COMPU'ER WORLD T u)S a 


COMPUTER WORLD Green Bay 


CERF. Phoenu 


HAWAII 


SOF -WAREHOUSE Jac" son 




COMPUTERLAND Madron 


COMPUTER STORE Phoen.« 




MISSOURI 


RADIO ShaCk ASSOC STORE Guymo' 


COMPUTERLAND Mirwaukee 


mesa Electronics m— ■ 


MILLS ELECTRONICS Laheana 


CENTuR* NEXT COMPUTERS Comntu 


SOUNDS ETC Wetonge 


COMPUTERLAND Weussu 


MILLETS ELECTRONICS. Ueu 


RAOaO SHACK ASSOC STORE Honolulu 


COMPUTER CENTER JopMt 


DREGOh 


COMPUTERLAND OF FO» RIVER VALLEY 


PERSONAL COMPUTER PLACE Mm 


IOAHO 


COMP u TRS. FiornaaM 




OsTeTaMfi 


SMUTEK. Tuceon 


COX A NELSON. Moscow 


CRC COMPUTERS Jop-n 


COMPUTERLANO OF PORTLAND Ttgard 
i*R ELECTRONICS Grant Pass 


MAGIC LANTERN COMPUTER Mad»Sor 


TOY BOX. S*- * Vr*U 


DENNIS STONE ENTERPPaSES FrvrtianO 


OS Cameron 


OMEGA MCROS Mwwawkee 


SIcWCotpuTER SYSTEMS HofSp.. 


ELECTRONIC SPECIALTIES Bote 
IOAHO MICROCOMPUTER Bofti 


HOUSE OF COMPUTERS JOphn 
MOORE SOF TWARE Pam..:-- 


PIONEER ClECTRONiCS. SandY 


SAO TV SALES Monroe 


CALIFORNIA 

ADVANCE RAOKXH/S DEALER). Grass Veiley 

ADVANCED COMPUTER PRODUCTS. Santa tM 


ALPINE COMPUTER CENTER Roc-lora 
CHICAGO MAIN NEWSTAND. E.enjlon 
COMPREHENSIVE MICROSYSTEMS Chicago 


SOF TWARE ShAC* BaWon 
MONTANA 

COMPUTER STORE B»lhng» 


PENNSYLVANIA 

A t . iED HOBBIES Pn<iadeipn.a 

BELL ELECTRONICS. fainOoro 


COMPUTER CONCEPTS Cneyenne 


ALBANY TYPEWRITER. Albany 
ALLTRONICS. Ssn Jo*e 


NEBRASKA 


BELL ELECTRONICS G.r*<0 
COMPUTERLAND Gipsoria 


ClSA MICROCOMPUTING. S-dney 

DE FOREST SOFTWARE Nunewadmg. Vic 


AMCO ELECTRONIC SUPPLY. Aiusa 


COMPUTER JUNCTION E.mnur»t 


r-up -cot evi n " fee " 




CANADA 


ASAP COMPUTERS. Signal Hill 


COMPUTER STORE RocMofC 

CREATIVE PROGRAMMING Cierlemio" 
GARCIA A ASSOCIATES. Chicago 
ILLINOIS CUSTOM COMPUTERS Mar-Sbwc; 


GREA: RACE HOBBY PLACE Lmcom 
HATCH COMPUTER Alliance 
LE20TTE STUOIO Oga"e)i 
MICROAGE COMPUTER STORE Omana 
NEVADA 


ERiF COMPUTER Erie 
J&E COMMUNICATIONS Alioona 
MAFEK ASSOCIATES. JONnsfcawn 
PERSONA^ COMPUTER CORP Pa©' 




BYTE INDUSTRIES HSywarO 

CAPITOL COMPUTER SYSTEMS Sacramento 
CMASCO COMPUTERS El Morne 


DiSintKilOr 

MICRON DISTRIBUTING 

Toronto. On* 


COAST ELECTRONICS. Mono Bay 
COMPUSOUNO. CkMMM 


JNL COMPUTER SYSTEMS Downer ■ G-o-a 
MIDWEST MICRO COMPUTERS Lombard 


PERSONAL SOFTWARE Neve- LI 3 MaNwm 
PITTSBURG COMPUTER STORE Pitlsburg 
STEVENS RADIO SMACK DEALER PTtoerumaa 
RUMPElSTlLSKM TOY SHOP New Hope 






compusup. Lmpmbji 

computer mart of california inc 

Diamond Bar 

COMPUTERLAND San Francnoo 


THE PH.OT HOUSE. Gladstone 
INDULNA 


MEW HAMPSHIRE 

BITSNBYTES COMPUTER CENTER Coneonj 

COMPUCRAFT Kaana 


ALLIED COMPUTER CENTRE Thunder Bay 
Ontano 


ABC HOBB' E»ans«-»e 


COVER CRAFT Imi*y 


TELEVISION PARTS COMPANY INC 

PUERTO RtCO 

MICRO COMPUTER S T ORE. Capa"a T»r.ace 

COLONIAL ENTERPRISES |RvS DEALER) 


ARUON ELECTRONICS Toronto. Ontano 
BITS A BYTES. DartmoutK. N S 

Quebec 

COMPUCORNER. Smilhers B C 


COMPUTER PLUS. SwMiy««Hl 
COMPUTER STORE. S*n Lsendro 
COMPUTER WORLD. WeeiiYiinsie* 
DEROSEAR APPLIANCE 4 REPAIR. Wea«er*nie 
DIMENSIONAL SOFTWARE. San Diego 


DAD ELECTRONICS. Angola 
DIGITAL TECHNOLOGY Lataretle 

GAME HUT Btoofflingion 
GAME PRESERVE, Indianapolis 


PORTSMOUTH COMPUTEP CENTER 

Portsmouin 

RADIO SHACK ASSOC STORE Ke*ne 


H W ELECTRIC. Nonh'too* 
EXATRON. Santa Cla/a 
GAME-O-RAMA Sanla Be/oara 
OOOO FAIRS NATURAL FOODS. Lornpoc 

hobb* world Electronics, Nontw-jo* 


PROFESSIONAL MICROCOMPUTER 
SOFTWARE Munc* 

THE BOARDROOM indtanaooln 


RtDER RADIO (R/S DEALER) 

Pata'Dcougn 

STURDIVANT ANO DUNN Conway 

NEW JERSEY 

AOELMANS STATIONERY CO Un-on C*» 
BARGAIN BROTHERS West Trenton 
CHANNEL 1 RADIO ShACk Madlotd 
COMPUTER FORUM Radbank 


SOUTH CAROLINA 

OMNI ELECTRONICS Cha-leslon 

ACE MINI SYSTEMS. Oarmsv.He 
CHATTANOOGA COMPUTER CENTER 


COMPUTER BARN. Samia. Onta'4 
COMPUTER CIRCUIT London Omano 
COMPUTER INNOVATIONS Ottawa. Onlano 
COMPUTER SHOP I TO Calgan, Alberta 


HUNTING TON COMPUTING. Col<-«- 
INLANO ELECTnONtCS. RffWWde 
MAUBU MKAOCOMPUTING. Mafcbu 
MAAFAM CO San Joee 
MlCFaDCOMPUTlMG. Corcoran 
NET PROFIT COMPUTERS. Tonence 


IOWA 

LENWOOO SYSTEMS Cemer Po*m 
MEMORY BANK INC , BetiendOrf 
SERNETT LEISURE CENTER Carton 
KANSAS 


Chattanooga 

COMPUTER WORLD Nasn-J* 

COMPUTERLAB Me^-pn-s 

hah ELECTRONICS Tu«anoma 
TEXAS 


COMPUTERLAND OF BURLINGTON 

BwrhAgtt>n Ontano 

CREATIVE COMPUTERS V<eto«* 8 C 

OATATEC COMPUTER SYSTEMS LTD 

SasAaioon. Sas* 

ELECTRONICS ?00' Wowtf—a. Ontano 

GALACTICA COMPUTERS LTD EuYnonion 


OPAUPfrECHNfCAL BOOKS. Lo» Angaria* 

OPPORTUNITIES FOR LEARNING. Cnaiswortf 
PC COMPUTERS. El Camlo 


AMATEUR RADIO EQUIPMENT w<cf>-.ia 
CENTRAL KANSAS COMPUTERS Marmgton 
COMMUNICATIONS CENTER. Lincoln 


COMPUTE PWORLD OF westfiElO Wastnaag 
CFtOWVEY^S. Wlheanousa S»ahon 
DAVE S ELECTRONICS MG PfSWiBM 


CODEDATA INC . Arbngton 
COMPUTER CONCEPTS Beaumont 


RAC PRODUCTS, Sar. JOM 
RADIO SHACK. El Cajon 


HATCH COMPUTER CENTER. All.anca 
HIGH TECHNOLOGY. Wicnita 


ELECTRONIC WORLD Mantua 
JAJ ELECTRONIC WORLD. Manioa 


COMPUTER PROGRAMMING ASSOC LuObOCfc 
COMPUTER PORT A.Hngton 


iRlSCO OU QUEBEC 5ia Foy. Quebec 
MICROMATlON. Toronto Ontario 


RADIO SMACK San Diego 

RAV SOUND (R7S DEALER). Fortune 


KENTUCKY 


LAShEN ELECTRONICS 'NC Dar-yiiie 


COMPUTER SALES A SERVICE. Fori Worlti 


MlCROSHACK. Sashaioon Ssa» 


CBM INC . Le«inglor> 
COMPUTER MAGIC. louWWaa 


MIDAS OATA SYSTEMS INC . MarKor 


COMPUTER SOLUTIONS San Anton* 


MICRO SHACK Regina Sasa 

MAW COMPUTERS Mississauga Ontario 


RADIO SHACK ASSOC STORE. Mooresiown 


COMPUTERLAND OF SW HOUSTON Hou»lor 


SALINAS hobb* CENTER Salinas 


PERRY S COMPUTER Bremen 


RAOIOS UNLIMITED SomerMT 


COMPUTERS BY 0*NwJ. take Jac«so" 


NIP A TUCK VARIETY London Ontario 


SHAVER RAOtO. Saff JOM 


LOUISIANA 


SOFTWARE CiT> Pine Brook 


COMPUTERS TO GO AaMtM 


OFFICE CENTRE, Kingston. Ontario 


SILVER SPUR ELECTRONICS. Cft.no 


ACME BOOK CO Baton Rouge 


SOFTWARE CITY Rive* Edge 


COMPUTEX Wabsle' 


SAUlT OFFICE MACHINES. Saun Si Mar* 


SOFTWARE PLUS. El Tore 


COMPUTER SERVICES OF ShREVEPORT 


NEW MEXICO 


CORSAIR Ft Worth 


Ontar-O 




£*— xpon 


AUTEL ELECTRONICS CO AtjUJOwergue 


GATEWAY ELECTRONICS HowMO" 


STATUS COMPUTER SYSTEMS St Camar.nws 


STACEYS BOOKSTORE. San Ftenctaco 


COMPUTER S>OPP£ M**."* 


JAW ENTERPRISES Ck*»S 


THE HOSEfT CENTER An»#n« 


Ontario 


STRAWFLOWER ELECTRONICS iRfS DEALER 


MM 


MICROAGE COMPUTER STORE 


KA ELECTRONICS Delias 


TOTAL COMPUTER SYSTEMS A(a. Ortar-; 


Han Moon Bar 


FRTEBURG COMPUTER CENTER FfyaowQ 


AibuQuerque 


MACS TV *«■•-• 


WEST WORLD COMPUTERS. Edmonton 


THE COMPUTER STORE. Santa Monica 


MAINE COMPUTRONlCS Bangor 


MITChCLL MUSIC Cmttois 


MARYUAC iNOUSTmjES fRrS DEALERl 


Aiberta 


THE FEDERATED GROUP. C— ■ — 


MAINE MICRO SYSTEMS INC Auburn 


THOMAS E CARP JEWELER. Alamogordo 


Houston 




THE SOFTWARE STORE. Hwnimgion Hmc» 


MID-MAINE COMPUTER COMPANY Auburn 


waAGamES WEST Aibuque*Que 


MICRO COMPUTER CONCEPTS P«ano 


ITALY 




MARYLAND 


NEW YORK 


PAN AMERICAN ELECTRONICS (RrS DEALER). 


BITS A BYTES Moan 


WABASH APPLE. El Toro 


COMM CENTER. Lau-et 
PROGRAM STORE. Baltimore 


ARISTO CRAFT DISTINCTIVE MINIATURES. 


RL COLE'S ELECTRONICS San Anion,o 


FRANCE 


COLORADO 

APPARAT Denver 


^SoSHWreC SroR C E k M..«. ****, 


ASO HOME COMPUTER CENTER 
Pough* sepsis 


80 SOFTWARE San Antonio 

TOTAL COMPUTER STORE. Beaumoni 


NETHERLANDS A BELGIUM 


F1STELS MICRO ELECTRONICS. Dan** 


MASSACHUSETTS 

LAND OF ELECTRONICS Lynn 


BERLINER COMPUTER CENTER 
New Hyde Par. 


WAGHALTER BOOKS INC Houston 




POOR RICHARD S CALCULATORS. Fofl CoWns 




CONNECTICUT 


MARK GORDON COMPUTERS Cembr>dge 


COMPUTER CORNER. While Pia>n S 


UTAH 


SOFTWARE IMPORT BRABANT 


BYTE ME COMPUTER SHOP New London 


MiDOlEBORO MUS*C iRVS DEALEP4 


COMPUTER RESOURCES Wiliiamsvuie 


COMPUTERLAND. San LaseCty 


COMPUTER LAB New London 


MNMMboro 


COMPUTER SHOP Kingston 
COMPUTER TREE EaaaWal 


FOOTHILL MODELERS San Lake C*y 
QUALITY TECHNOLOGY Salt Le*e C*v 


E.nOhoven Nefh 


INSTRUCTIONAL SYSTEMS COMPUTERS 




Mancnestar 


OMNIIEK SYSTEMS. Tew*sbu-> 


COMPuTERLANO C* w Place 


VERMONT 




TECHNOLOGY SYSTEMS. Bern* 


SOUND COMPANY. Springfield 


COMPUTERLA»« OF NYC New Yort 


TEMPO CO iPuS Of AlERL BremebO'C 


COMPUTER COLLECT iEF fcjeayiaiaare 


the COMPUTER STORE. Stamfcjrd 


STAR COMPUTING. Franwngham 


DtGiBVTE SYSTEMS Mew Yon 


VlftGATfUi 


MICRO COMPUTING K'Omrner-.e 


DELAWARE 


THE GAME SHOP East AcSon 


B»MlCRCXX«PUTER SERVICES Coftoes 


COMPUTER SOLUTIONS, leesburg 


MICRO DYNAANCS. Emdnoven 


MICRO PRODUCTS. Wilmington 


MICHIGAN 


FUTURE VISIONS COMPUTER STORE Me*.»w 


COMPUTER WORKS INC Harrtsonbuig 


MUSrCPRlNT CHIP Arka< 


DtSmCT OF COLUMBIA 


ALL FOR LEARNING. W h Ux — - 1 


MICROHUT Bioo-i»n 


FRAME GALLERY. Hwmdon 


OVEL GONNE DracMan 


THE PROGRAM STORE. Washington. DC 


ALTERNATE SOURCE. Lansing 


MODERN TEK SHOPS Snydei 


HOME COMPUTER CENTER INC 


R a i MICROCOMPUTERS The Hague 


FLORIDA 


A M ELECTRONICS Ann ArtX* 


MR COMPUTER vvappmge'a Fan, 


Virg<n.« Beacn 


NEW ZEALAND 


ALL SYSTEMS GO. Winter Garden 


COMIC KINGDOM Detion 


PNR CLEAN AIR ENTERPRISES. 


LiTTLfc SOLDIER Aleiandna 


VISCOUNT ELECTRONICS. Paimerston North 


AMF MICROCOMPUTER CENTER Tampa 


COMPUTER CENTER. Gaiden C.l» 


PiallSDuigr 


SYSTEMS MARKETING Arlington 


NORWAY 


COMPUTER CENTER. Wast Pain- 


COMPUTER CONNECTION Farm.ngtor H.ils 


PhANTOS RESEARCH Camniua 


WASHINGTON 




COMPUTER HAVEN Melbourne 


COMPUTER MART Oawson 


PROGRAMS UNLIMITED Jer.cho 


AMERICAN MERCANTILE COMPANY Seattle 


SWEOEN 


COMPUTER JUNCTION. Fort Lauderdale 


COMPUTER MART. Flint 


SOFTRON SYSTEMS Ren»selae. 


CAJ ELECTRONICS Rtchiand 


SEN TEC AB Ja/laHa 


COMPUTER SYSTEM RESOURCES. Gainas-.lt. 


COMPUTERLAND Kent wood 


WATFRLOO HOBBIES Mineoli 


COMPUTERLAND BeUevue 


UNITED KINGDOM 


COMPUTER WOFtLO. Clearwater 


COMPUTERLAND SoulM-em 


WORLD OF COMPUTERS Port Oesier 


COMPUTERLAND Federal Way 


CALISTO COMPUTERS B*m.ngherr 


COMPUTERLAND. JBaMBBaMi 


COMPUTRONlCS. Midland 


NORTH CAROLINA 


COMPUTERLAND Sposane 


THE SOFTWARE HOUSE London 


COMPUTERLAND. Sarasota 


EKjHT BIT CORNER Uu*kegon 


RAYBURN MiCRO^LECTFIONfCS. SyNa 


THE ELECTRONIC ShQP OVrnpu 


• EST GERMANY 


COMPUTERLAND Tampa 


FERRIS RADIO Haw* Par* 


SOUND MILL Ha*s*>C* 


EMPIRE RECTRONiCS Sean* 


MSCROSTUFF FranAlun 


COMPUTERLAND Weet Paan Baacn 


GOLDEN ANVIL South H*.*n 


OMO 


EMPIRE ELECTRON<^ SunnvsaM 




CREATIVE COMPUTING. Orlando 


HOeBY HOUSE. BattM Om* 


ABACUS ii. Toledo 


J 8 SALES SnohomO'sn 






LEARNING CENTER LIT3 Ann An» 


ALTAlR SYSTEMS INC Dayton 


LORDS Port Angeles 




Data unlimited. MiOouw 




HAH HO68Y SALES. Sarasota 


MlO-MICHtGAN MEMORY Dirnondai* 


astro VIDEO ELECTRONICS INC Lancaster 
CINCINNATI COMPUTER STORE Onc.nnat. 


PERSONAL COMPUTERS INC SoOane 


YOUR NAME COULD 


HIS COMPuTERMATION Melbourne 


NEWMAN COMMUNICATIONS Gt and Rapid S 


COMPUTER STORE ToMdO 


OSS ENTERPRISE ■---■: 




KOBY-S KORNER. Pansacoia 


T fll-COUNTY ELECTRONICS A SOUND 


COMPU'ERIANO Coiumbirt 
COMPUTERiAND May'ieid He.gnts 


WESTERN MICROCOMPUTER CENTER. 
BeHtngham 


BE HERE. CALL: 


MICROCOMPUTER SYSTEMS INC lampa 
MINI CONCEPTS. Holly HIH 


CENTER. Fanton 
WEATHERWAX DRUGS. BrooMyn 


COMPU'ERLAND No"" Ol"Sle<I 


WEST VIRGINIA 

COMPUTER CORNER Mcganio-n 


1-800-258-5473 


MICRO DATA BASE, Lahaland 
RAY'S AMATEUR RADIO. Ctoarwaiet 




JERRYS COMPUTER Cleveland 
JOBAR ENTERPRISES MioOiedeifi 


COMPUTER STORE Huntington 




YEOLDE-EACHERSSHOPPE n—llTB 




ROCS TV. Ocaia 


MINNESOTA 


MICROAGE Columbus 


Wheeling 




SOUND IDEAS Oauneamlte 


CODE ROOM Eden P-a.ne 


MICRO COMPUTER CENTER Cenlerviiie 


SOUND A ELECTRONK- SPECIALTIES 




SOUTH EAST MICRO DATA Onando 


LANTOS COMPUTER CORP M.nr*apo"S 


MICRO FLEC'HONiCS INC Cc-umboS 


Mc-gantow^ 





Find out what you're missing. 

You heard the lady. Your microcomputing life is going to be very exciting. But don't 
leave it to chance— leave it to us! We have a brand new catalog full of packages and 
valuable coupons to help make it happen. It's free. . if you fill out the coupon and mail 
it today. (Or make a photocopy and spare your magazine). 

NAME: 



ADDRESS: 
CITY: 



STATE: 



.ZIP: 



Instant Software Inc. 



Peterborough. N.H. 03458 603-924-7296 -A80 



APPLICATION 



A microprocessor highballs the mainline. 



The 80 Limited 




Bert Latamore 
Desktop Computer Staff 



A70-car freight train clears the Pitts- 
burg yard on the long trek to Hoboken. 
Four heavy diesels pound the track and 
shake the hills with their full-throated roar. 
As the freight, with its heavy load of steel, 
picks up speed on the multi-track mainline. 
a sleek bright colored stainless steel pas- 
senger train passes westbound at 80 mph. 
Ahead, an unscheduled local freight is 
shunted onto a siding. The block signals 
turn green, and the huge diesels continue 
down the track into the night. 

It's typical mainline train action, but 
these trains run in a building in Union. NJ. 
The track of the Hudson, Delaware and 
Ohio is the HO scale layout of a train group 
called simply "The Model Railroad." The 
Hudson, Delaware and Ohio, one of the larg- 
er model railroads, is known among model- 
ers for its experiments with computers. 

Today, a homemade microcomputer de- 
scribed by Michael Nesladek, the line's 
electrical superintendent, as being "like a 
TRS-80." keeps track of the line's inventory, 
schedules, waybills (determining the desti- 
nation and car assignments) and other 
paperwork. 
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This computer attracted the attention of 
the model railroad world. The custom-built 
machine was designated to automate con- 
trol of 30 engines on the busy layout. The 
computer, built and successfully tested but 
never fully installed, was created a full 
decade ago when computers were huge 
mysterious machines and the computer 
chip was still a laboratory anomaly. 

The Model Railroad Club's computer was 
the brainchild of Paul Mallery. a Bell 
Telephone technician and lifelong model 
railroader. Few others would attempt to 
construct and install a small dedicated 
computer using pre-chip technology but 
Mallery considered it the most practical 
answer to the cab control problem. 

With only one train running on a single 
loop track, the operator has no problem 
with cab control. When two trains run on the 
track the operator needs to control each 
separately. Despite recent advances in mi- 
crominiaturized radio control systems and 
other cab control systems, the most popu- 
lar answer is blocking. 

The track is divided into sections, each 
insulated electrically and powered sepa- 



rately from the others. Each train operator 
uses a transformer connected through a 
switch system to power any single block. 

When only two trains and a few blocks 
are involved, the switch system is fairly sim 
pie. although it still requires good reflexes. 
When two trains end up in the same block 
the operator must shut the system down 
and separate the trains by hand. With up to 
30 trains and 1.000 blocks, cab control is a 
first class problem. 

The Hudson, Delaware and Ohio had this 
problem in the early 1970s. At that time no 
practical alternatives to blocking existed. 
Radio receiving equipment, too large for the 
small HO engines, offered very few control 
channels. Pulse power, in which each en- 
gine's power is sent in distinctive pulses, re- 
quires computer chips, and was unknown 
at the time. 

Mallery was left with only one choice: He 
decided to computerize the system with a 
custom-built machine. 

Mallery's computer might be called a 
dedicated train processor. According to 
Nesladek it is hard wired for its function. It 
needs no programming, more like an elec- 
tronic game than a microcomputer. 

Two kinds of sensors were to keep track 
of the trains. Photodetectors at the ends of 
each block would signal when a train en- 
tered or left that block. Electrical current 
detectors inside each block would inform 
the computer about electrical activity. 

The computer would "initialize" each 
train when it started operation and keep 
track of which trains each operator con- 
trolled. It would signal to the engineers lo- 
cated on a balcony above the layout what 
track conditions were ahead. A green light 
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JUST LAUNCHED! 
VOYAGE OF THE VALKYRIE 

BY LEO CHRISTOPHERSON 






ADVANCED 

OPERATING 

SYSTEMS 

450 St. John Road 
Michigan City, 
Indiana 46360 

Available now at 

leading software 

retailers or call 

1-800-348-8558 to 

order. (Indiana 

residents call 

1-219-879-4693) Disk 

version: $39.95, 

Tape: $34.95. 

VISA and MasterCard 

accepted. 



The ancient Norse lords bravely sailed their ships across new waters in search of 

adventure. No obstacle was too great to overcome nor any force powerful 

enough to prevent their mighty advance.! Now you're in command. You are 

the pilot of the attack ship Valkyrie. Your mission: to wrestle the island Fugloy 

from the grasp of an army of laser-wielding war birds and secure the gofden 

treasures hidden within the walls of the island castles. Success of the mission 

depends solely upon you. The castle Drage appears on the horizon when 

suddenly the air is alive with the flutter of giant wings. Your prize is in sight . . . 

do you dare accept the challenge and go on?«You can put yourself at the 

controls of the Valkyrie thanks to the genius of Leo Christopherson. As 

absolutely flickerless birds sail smoothly across the screen, strains of Wagner's 

"Ride of the Valkyries" are heard. The game offers 10 levels of difficulty which 

provide a challenge for players of all ages and skills. The game also provides 

one of the finest examples of computer cartoon-graphics presently available. 

Voyage of the Valkyrie is available for *TRS-80 and + Apple Microcomputers. 

Brave old worlds and battle new adversaries when you accept the 

challenge of the Valkyrie. 

"Trademark of Tandy Corp 
trademark of Apple Computer, Inc. 



"Mattery was left with 

only one choice. 

He decided to computerize the system 



would signal clear track; a yellow light 
meant the train was overtaking another and 
would have to slow down; and a red light 
would signal a blocked track. The system 
allowed manual override for blocks with 
switches at signal towers. Tower control- 
lers could determine which train approach- 
ing the switch point would have right-of-way. 

Mallery built the computer and tested 
controlling one engine on a short stretch of 
track. When AT&T transferred him south 
the club had no one capable of finishing the 
project. The sensors were never installed, 
and the computer never became fully opera- 
tional. The club depends on manual block 
switching for cab control. 

The Model Railroad Club faces that issue 
again as it plans to expand the 40 by 40 foot 
layout to 110 by 40. The larger layout will in- 
crease cab control problems. 

Nesladek said the club probably will not 



computerize the layout, however. He favors 
radio control. Today's small radio systems 
offer 99 control channels. "With 99 chan- 
nels you can do anything," he commented. 

While the Hudson, Delaware and Ohio 
may never be computerized, the experiment 
may prove prophetic. HO, viewed in the 
1950's as a very small scale for electric 
trains, is now considered fairly large. N 
scale, popular now due to its compactness, 
bears the same general size relationship to 
HO that a narrow gauge engine bears to a 
full-sized one. 2 scale, offering trains about 
half the size of N scale, is gaining in 
popularity. 

Despite advances in chip technology, it is 
hard to imagine a radio control system com- 
pact enough to fit into an N or 2 scale 
switch engine. For these small-scale lines, 
therefore, blocking remains the primary cab 
control system. 



A computer can perform other functions 
in model railroading. One railroad journal 
recently carried an article about a sophisti- 
cated topography analysis program to de- 
sign the layout of a model train system. This 
program was designed originally to aid 
engineers in planning superhighways and 
mainline train trackage. 

Once you have a computer running your 
blocking system, you may be tempted to 
automate other aspects. A computer can 
run some trains outright when not enough 
people are at the club. You can identify cars 
with a labeling system and automate your 
train yard. Specify what cars you want on 
each train; the computer will find and con- 
nect them to make the train. 

Nesladek said, however, that approach 
has no place on the HD&O. "We don't want 
the computer to run our trains," he ex- 
plained. "We want to run them ourselves."B 



SAY MERRY CHRISTMAS 



eK 
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microcomputing 



Give all your friends who own a TRS-80* the best possible Christmas present— 
80 Microcomputing. 80 Microcomputing is the only Journal devoted to the TRS-80* 
and its users the only journal packed with reviews, programs, applications and hun- 
dreds of dollars worth of software. 80 Microcomputing— the best idea for Christmas 
yet. for only $25 00 a year. 

Bill: Me MC VISA AE 

Card • Expirt Date 

Signature Interbank • 




My Name 

Address 

Ctty 

Please enter a one year gift subscription to 

Name 

Address 

City __ 



tarts 



Zip 



State 



Z.p. 



IMBWl ftrntf Co»p. 



Canadian $27/1 year only. US funds Foreign $35/1 year only, US fundi. 
All Christmas Gift Subscriptions will begin with tha January 1981 issue 

80 Microcomputing • P0 Box 981 • Farmingdale NY 11737 "Dae 
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Send Your Business To Europe via 
Wayne Green International 

You can introduce your products to the European market without leaving your office. All you 
need is a phone and the best advertising liaison between here and Europe— Wayne Green 
International. We represent four of the largest microcomputing magazines in Europe that will 
help you introduce and make your product known in the European market. 



MICRO DIGEST 

MICRO DIGEST is the newest resource for American 
businessmen to rely on for the best exposure overseas. 
The first dealer-oriented computing publication in 
Europe. MICRO DIGEST caters to dealers, reps. OEMs 
and importers of micro and mini products. MD is the 
organ of the European Microcomputer Publishers Asso- 
ciation (EMPA). It is published in four editions (English. 
French. German and Italian), reaching a market of 312 
million people. As the publishers of West Germany's 
CHIP and several other popular computing periodicals. 
EMPA is in the best position to determine the make-up 
of the computerist market. The list of people receiving 
MICRO DIGEST has been put together by EMPA. As a 
result. MD's present circulation of 8000 reaches the 
most prominent computerist community in Europe — a 
community that's waiting to hear from American 
businessmen. Make MICRO DIGEST your best ally in 
the European micro market. 



Special 10% discount 
to charter advertisers 



CHIP 

The German-speaking market has an exceptional sales 
potential. CHIP, the leading German magazine for 
desktop computers, will help you to make this market 
your own. Over 65% of the CHIP readership deals with 
computers in their business or profession. With its 
reputation for excellence and a paid circulation of 
62.913*. CHIP is your direct line to the German 
microcomputer market. 
•IVW Auditing (ABC Equivalent). 2nd quarter. 1981 



COMPUTING TODAY 

Britain's COMPUTING TODAY offers the advertiser a 
well-balanced publication with very competitive rates 
and a rapidly rising paid circulation of 34.000. 
COMPUTING TODAY is the only microcomputing 
magazine in England audited by ABC. It provides solid 
penetration across the entire microcomputing market 
and is an effective sales medium for hardware, soft- 
ware, peripherals and publications. Whatever your 
product range, there is simply no better way to build 
microcomputing business than through the pages of 
COMPUTING TODAY. 



MICRO & PERSONAL COMPUTER 

MICRO & PERSONAL COMPUTER is the ideal media 
for introducing and marketing computer products in 
the Italian market today. With a monthly circulation of 
30.000 M&PC is in the hands of virtually everyone in- 
volved with computing in Italy. In the last two years. 
the Italian economy has grown, in real terms, by a 10% 
rate— a growth rate second only to Japan's. The total 
EDP market in Italy in 1981 has totalled 5.000 million 
dollars. It is this level of trade that is waiting to be taken 
advantage of. It can be yours, with the help of MICRO & 
PERSONAL COMPUTER. 



TO RECEIVE FURTHER INFORMATION 
ON THESE MAGAZINES, WRITE OR 
CALL: „. „. „. c . „ 

Piergiorgio Saluti 
Wayne Green International ^531 
Peterborough. New Hampshire 03458 
(603)924-7138 Depi.-A75 




WINCHESTER 
HARD DISK 

for 

TRS-80™ 

Add 6.3 meg to 1 9 meg to your TRS- 80 



Integral Winchester 
Business System includes 
48K MODEL III, DOS, 
DISK III™, 6.3 MEG 
HARD DISK (internal). 

$4995 




$2895 

6.3 MEGABYTE 

WINCHESTER 

HARD DISK SUBSYSTEM 

With Chassis, PS, DOS. 

9.5 MEG $3395.00 



VR Data Winchester HD 
Subsystem Features: 

• TRSDOS Compatible Operating System 

• State-of-the-Art Circuitry 

• Full Calibration, Test and Burn-in 

• Up to 4 drive configuration 

• Heavy duty Power supplies 

• Warranty- 120 days-parts & labor 

• 115/230 VAC, 50/60 Hz. 



Optional Mod III Configurations: 

9.5 Meg HD (internal) add $500.00 

80tk1 side floppy add $120.00 

80 tk 2 side floppy add $240.00 



Optional Winchester Subsystem 
configurations: 

2x6.3 meg drives 
2x9.5 meg drives 



$4495.00 
$5495.00 



Model III Communications 



COMING SOON 

d-con $299. 

Integral Modem 
NEEDS NO RS232 
— Direct Connect 
Programmable Dialing 
AUTO ANSWER/ORIGINATE 
Easy Installation 



HERE NOW 

VR-RS232C $75. 

Direct Replacement For R.S. RS232 
Fully Tested & Burned-ln 
Easy Installation 
120 Day Warranty 
Programmable Pincut 
Prototype Area 



Phone 800-345-8102 • in PA 215-461-5300 
\ZJrZ0dl3l VR Data Corporation 
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DISK 111 



100% Compatible 



Model III Disks 



Complete Business 
System includes: 
48K TRS-80™ Model 
III, Disk III™ 2 Drive 
System, TRSDOS 
and Manual. 



$1882 




DISK III Single 
drive assy 



$599 



DISK III Two 

drive assy 864.00 
DISK III Assy 

w/out drives 435.00 
TRSDOS™ & 

Manual 



21.90 



1 DISK III single drive assembly includes: one 40 track 
5".v double density drive, power supply, controller, 
mounting hardware, and applicable cables. 



External drives 



(3&4) 



275.00ea. 



IMMEDIATE DELIVERY - COMPARE AND SAVE 

VR Data's DISK III features: 

• Completely compatible with TRSDOS 

• State-of-the-art circuitry 

• Fully tested, calibrated & burned-in 

• Up to 4 drive configuration 

• Heavy duty linear power supply 

• Warranty 120 days - 100% parts and labor 

• Installation with simple hand tools 

• Optional 80 tk and 2 sided drives 

• READ 40 - Pgm. to read 40 tk. Diskettes 

on 80tk. Drives $25.00 



Peripherals 

Epson MX-80 500.00 

Epson MX-80 FT 615.00 

Epson MX-1 00 800.00 

Centronics 739 700.00 

Starwriter25(P) 1395.00 

RS-232 95.00 

Lexicon modem 105.00 



MODEL l/Eii 
EXTERNAL DRIVE 
W/ PS & ENC 

Fully Compatible 
120 day warranty 
Easy installation 
80 tk or 2 sided 
80tk&2sided 



$275 




$419.00 
549.00 



IF YOU DONT SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT. 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp 

DISK III is a trademark of VR Data Corp.' Dealership available 



OTHER PRODUCTS 

SUPERBRAIN 64K 
PARALLEL PORT — 

SUPERBRAIN 
DISK & MYSTERIES 
BASIC & MYSTERIES 
NEC Ribbons (min. 6) 
Epson Ribbons 
NEW— 
LDOS Operating 

System 
COMING SOON!! 
Internal MODEM for MOD III 



2990.00 

99.95 
22.50 
29.95 
5.95 
12.50 



149.00 



CABLE "VRDATA" • TELEX 845-124 
777 Henderson Boulevard • Folcroft, PA 19032 



-- See List of Advertisers on page 418 
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APPLICATION 



LOAD 80 



It means Computer Operated Inventory for Numismatics and Such. 



COINS 



Robert James Lloyd 
341 Vi ElktonRd. 
Newark, DE 19711 



One area microcomputers are ideally 
suited to is inventory control. 

After experiencing the fun of micros, I 
decided to merge computers with another 
of my hobbies, coin collecting. It started 
many years ago during my days as a news- 
boy, when I amassed a large bag of loose 
change and decided to start a coin collec- 
tion. 

However, the task of keeping a manual 
inventory up-to-date was soon forgotten 
and not having an orderly system to control 
my collection resulted in duplicate coin 
purchases. 

Since I was unable to locate any soft- 
ware programs on numismatics, I de- 
veloped one armed with a TRS-80 Level II 
16K and the Level II Basic Manual. After 
much trial, error and frustration, COINS 
emerged. 

Counting Coins 

COINS allows 175 items to be stored in a 
file, with each item consisting of five 
fields: Coin Description, Date, Mint, Grade 
and Value. Each file is coded with a File 
Identification Code, Date and as a user op- 
tion, a reference used to determine coin 
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grade and value. 

Once a file has been created, it may be 
stored on a cassette for future use. You 
may, if you wish, output the file to a line 
printer. The printout makes a nice reference 
as you do your coin shopping. It is also use- 
ful when trying to obtain insurance on your 
collection. 

Key-in the program as shown. Once 
done, display the program. If all is well, 
save it and make a backup copy. 

Before running COINS, it is advisable to 
make a list of all abbreviations you plan to 
use in the different fields. For example, a 
Washington Quarter may be abbreviated 
as WASH QUART. 

The mint may be coded as it appears on 
the coins— S for San Francisco— D for 
Denver, etc. Coin grades become VG or 
VGOOD for Very Good, UNC for Uncir- 
culated, EXF for Extremely Fine, etc. 



Coin Description— 1 1 Alpha numeric characters 
Date — 4 Numeric characters 
Mint — 5 Alphanumeric characters 
Grade— 6 Alphanumeric characters 
Value— Not greater than $9999.99 



Fig. 1. Allowable Field Lengths 



It doesn't matter how you abbreviate, if 
you are consistent and stay within the 
maximum length restrictions placed on 
field length. 

Type RUN. The screen will clear and the 
menu should be displayed. Just press the 
desired option. COINS uses the INKEY$ 
function. Enter need not be pressed when- 
ever a flashing cursor appears. 

Without a file in memory, your only op- 
tions are A (create file), E (input file), and K 
(end program). Should you accidentally try 
another option, "You do not have a file in 
memory" will flash and the menu will 
return. 

As long as a file is residing in memory, 
all menu options are available except the 
create file option. That prevents wiping out 
a file by accidentally pressing A. 

Create File 

After selecting menu option A, you will 
be prompted to enter a File Identification 
Code. An ID code must be entered or an in- 
put error will appear on your screen. Max- 
imum code length is six alphanumeric 
characters. Next, enter the date the file is 
being created. Do not use commas when 
inputting the date. Try something like 
03/23/80 or Mar 23 1980. Maximum length 
of the date is 12 alphanumeric characters. 
Finally, enter the reference to determine 
the coin's grade and value. Maximum 



length for the reference is 25 alphanumeric 
characters. The screen will clear and you 
will see: "(Item #1) Enter coin, date, mint, 
grade, value?" 

Enter the fields, but be sure to separate 
each with a comma. See Fig. 1 for allow- 
able field lengths. 

The Value field will accept input in 
several ways. An amount of $125 may be 
entered as 125, 125., or 125.00. You do not 
need a trailing decimal for whole amounts. 

When you type CLOSE.1, 1,1,1 you will 
close the file and return the menu. 

If you violate the maximum length, you 

will be given another chance to enter that 

item. 
Once you have reached the maximum 

number of entries, "This file is full" will 

flash on your screen, and the menu will 

return. 

When prompted by the menu, press B. If 
you do not have a file in memory, an error 
message wilt flash and the menu will be 
returned. Should a file be in memory, the 
screen will clear and the file will be 
displayed. 

Only 10 items will be displayed at a time. 
A flashing cursor means press C (Continue 
Listing) or M (Return Menu). 

Once the file has completed listing, the 
total value of the coins in the file will be dis- 
played and you will be asked to press M. 

Printer List File 

Press C when prompted by the menu. 



". . . during my days as a newsboy. . . 
I amassed a large bag of loose change 
and decided to start a coin collection." 



The printout of a file is formatted to 
8 Vi -inch-by- 1 1-inch continuous fanfold. 
When the printer is ready, press P. If you 
should press P while the line printer is 
offline, you will be told the printer is not 
ready to receive information, and the menu 
will again be displayed. The file will be 
printed using the same format as a screen 



listing. While each item is being printed, 
its number will be displayed on the screen. 
See sample run. 

Select menu option D. The video display 
will clear and you will be asked to press R 
when the recorder is set up. Each item's 
number will be flashed on the screen as it 
is recorded. A file of 1 75 items takes about 







COIN INVENTORY LISTING 






DATE: 












REFERENCE: 












ID CODE: MERGE 










FILE CONTAINS 15 ITEMS 










ITEM* 


COIN 


DATE 


MINT 


GRADE 


VALUE 


1 


BARB DIME 


1895 


o 


GOOD 


$ 60.00 


2 


WASH QUART 


1976 


S-SIL 


PROOF 


$ 3.00 


3 


JEFF NICKEL 


1940 


NONE 


VFINE 


$ 0.20 


4 


LINC PENNY 


1909 


S-VDB 


UNC 


$275.00 


5 


ST GAU $20 


1914 


D 


UNC 


$340.00 


6 


LRG CENT 


1821 


NONE 


VGOOD 


$ 11.00 


7 


ROOS DIME 


1969 


D 


EXFINE 


$ 0.60 


8 


TWENTY CENT 


1875 


CC 


GOOD 


$ 40.00 


9 


BUST QUART 


1828 


NONE 


FAIR 


$ 19.00 


10 


HALF EAGLE 


1838 


D 


FINE 


$500.00 


11 


IND. EAGLE 


1913 


S 


VFINE 


$225.00 


12 


JEFF NICKEL 


1938 


D 


VGOOD 


$ 1.10 


13 


LINC PENNY 


1965 


DBLDI 


UNC 


$450.00 


14 


PROOF SET 


1967 


NONE 


PROOF 


$ 6.25 


15 


HALF CENT 


1794 


NONE 


FAIR 


$ 50.00 


TOTAL VALUE OF THE COINS LISTED IN THIS FILE IS $1,971.15 










Fig. 2. Sample Run 







5,000,000/20,000,000 BYTES 

From Micro Mainframe 

10 MEGABYTE HARD DISK DRIVES, with REMOVABLE Cartridges, For Models I / II / III (S5.995/S8990). 

SERIES III H. Model III with 5,000,000 byte hard disk drive(s) ($6,995/ $9, 095) or add to your Model I /III ($3,795). 

SERIES III F. Model III with a controller board (available separately) and operating system which allows you to start 
with, or move up to, dual-headed or eight-inch floppys. 

From AT-80 
GL80 — $149 — Radio Shack General Ledger 1.1 with over 30 added features; including a general ledger, classified bal- 
ance sheet, check register and options to use an "automatic" account number or re-do an entry or document. 

ARB0 — $199 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts. 

GL/M1 — $49 — Convert your General Ledger 1.1 to GL80. Typical user comment: "Takes half as much time." 

AR/M1 — $49 — Convert your Accounts Receivable 1.2 to AR80. Typical user comment: "Saves hours." 

GL/M1 and AR/M1 require proof of purchase of the original programs, or, send a disk copy of the original programs for 
conversion at no additional charge. Documentation (apply to purchase) — $5.00 each. 

FTDEM080 — $12 — Displays and Executes the NEWDOS/80 Appendix A programs/ keyboard entries. Requires 32K. 

NEWDOS/80 - $135 LOOS - $135 EPSON MX-70/80/FT - $Call FRICTION KIT - $49 

AT-80 3827 Dismount Dallas, Texas 75211 (214) 339-0498 



-- See List ol Advertisers on page 418 
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"A file of 175 items 

takes about 15 minutes to save." 



15 minutes to save. 

During the menu display, press E. Enter 
the ID code of the desired file. Next, 
prepare the recorder and press R. If the file 
wanted and the file found on the tape do 
not match, the file ID found will be 
displayed. 

The time to input a 175 item file is also 
15 minutes. 

Option F is used when items are to be 
added to an existing file. 

To add an item within a file, press W. 
Next, enter where the new item is to be 
added. For example, if you want the new 
item to be number 15, you would input 14. 
The new item will appear after the item 
number entered. If you enter a number 
larger than the total number of items in the 
file, an error will occur. However, zero may 
be entered since the new item would 
become item one. After an error, you will be 
given another chance to add the item. 

Only one item may be added within a file 
at any time. As the file is being rearranged 
to accommodate a new item, a small arrow 
will move across the screen. (This was 
done to tell if the program got hung-up.) 

Items may be added to the end by choos- 
ing option E when in the Add mode until 
either the file is full or you close the file. 
The format is the same as creating a file. 

Select menu option G. Enter the item 
number you wish to delete. If you enter 
zero, or a number larger than the total 
number of items in the file, an error will oc- 
cur. Re-enter the information. Here again, 
an arrow will travel across the screen. You 
will be told when the item has been deleted 
and returned to the menu. 

Edit File 

Sometimes it is necessary to edit a file. 
Press menu option H. To edit the file 
codes, press F. Three options will be 
shown— I to edit the ID code, D to edit the 
date and R to change the reference. Make 
your selection and follow the instructions 
displayed on the screen. 

When you press I, you will be asked 
which item is to be changed. Again, you 
must not enter zero or a number larger 
than the file. The item will be displayed as 
it appears in the file. When prompted, 
enter the corrected item. It will then print 
on the screen. 

Should you decide to search the file, 
press I when the menu is displayed. You 
will be given a choice of conducting a 
search by any of the fields. The program 
allows only an exact match. 
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COINS 






Variables 




Strings 


Double Precision Variables 


IS 


INKEYS Input 




B« File Value 


JS 


File ID Code 






K$ 

LI 

NS 

Y$ 

Z$ 

ASS 

CSS 

DSS 


File Date 
File Reference 
Input File ID 
PRINTUSING Format 
PRINTUSING Format 
COIN Search 
MINT Search 
GRADE Search 




Dimensioned Arrays 


B Coin Date 
AE Coin Value 
AS Coin Description 
C$ Coin Mint 
DS Coin Grade 
MS DATA Storage 


Integer Variables 




A 


Number of File Entries 




C 


Cursor Character Position 




D 


Display Information Loop 




F 


Item Number 




G 


Item Number In Search Routine 




H 

I 


Add/Delete Item Number 
Number of Items to be merged 




J 


Number of Items in memory 




L 


Line Count for Screen Display 




M 


Input Error Flag 




N 


Page Number for Hardcopy 




P 


Pointer Change Loop 




Q 


Printer List Flag 




R 


Time needed to Re-arrange Memory 




S 


Screen Location for PRINT® 




T 


Time Delay Loop 




U 


Screen Display 




BS 


DATE Search 




ES 


VALUE Search 




A1-A2 


Computes String Length and LSB 




C1-C2 


& MSB of string value starting 




D1-D2 


address for Coin Description, 
Coin Date and Coin Grade 




B1-B2 


Computes LSB & MSB of address 
for Coin Date 




E1-E2 


Computes LSB, Next MSB, MSB, 
and Exponent address for Coin 






Value 

Table 1. 



Program Listing 



1 REM * VER. 1 DATED 7/9/80 BY ROBERT JAMES LLOYD * 

2 CLEAR4050:POKE16424,66:POKE16425,0:DEFINTA-D,F-Z:DIMA$(17 8) ,B(17 

8) ,C$(17 8) ,D$(17 8) ,E(178) ,M$(27) :S-330 : A«17 8 : Z $-"$#, t#* , ### . # 
#":Y$="S#,###.##":F0RD-1T026:READM$(D) :NEXTD 

3 DATA<A> CREATE FILE,<B> SCREEN LIST FILE,<C> PRINTER LIST FIL 

E,<D> RECORD FILE,<E> INPUT FILE,<F> ADD ITEMS, <G> DELETE 
ITEM,<H> EDIT FILE,<I> SEARCH FILE,<J> MERGE 2 FILES, <K> 
END PROGRAM, 183, 145, 32, 183, 187, 32, 187, 183, 32, 151, 164, 149 ,160 

,186,1 

Program continues 



Program continued 

31 

4 L*10:B#=0:N«1:H=0:Q=0:CLS: PRINTTAB (24) ""; : F0RD=12TO26 :PRINTCHR5( 

VAL(M$(D) ) ) ; : NEXTD: PRINT: PRINT: PRINTTAB ( 5) "COMPUTER OPERATED 
INVENTORY FOR NUMISMATISTS AND SUCH" : PRINTSTRINGS (62 , 140 ) : PRI 
NTSTRING$(15,138) ;" **** m E N U *•** », 

5 PRINTSTRINGS (15, 133) : PRINTSTRINGS (62 , 131 ) : FORD=1T05 : PRINTTAB ( 11 ) 

M$(D) ;TAB(35)M$(D+5) : NEXTD: PRINTTAB ( 22 ) MS ( 11 ) : PRINT085 4 , "SELE 
CT OPTION ";:G0SUB114 

6 IFASC(IS)=650RASC(IS)=690RASC(IS)=75CLSELSEIFASC(ISX650RASC(I$) 

>75G0SUB111 :GOT06ELSEGOSUB88 

7 CLS : ONASC ( I $ ) -6 4GOT08 ,16, 29, 32, 33, 36, 51, 60, 71, 84, 87 

8 IFA$(1)O""GOTO107 

9 J$="":PRINT"INPUT FILE ID CODE UP TO 6 ALPHA/NUMERIC CHARACTER 

S ":INPUT"(DO NOT USE COMMAS) " ;JS :GOSUB91 : IFM=1M=0 :CLS : GOT 

09 

10 K$="":PRINT:PRINT"INPUT FILE DATE (DO NOT USE COMMAS) ": INPUT" (N 

OT MORE THAN 12 ALPHA/NUMERIC CHARACTERS) "; K$ :G0SUB91 : IFM=1M= 
0rCLS:GOTO10 

11 LS="":PRINT:PRINT"INPUT REFERENCE USED TO" : PRINT"DETERMINE COIN 

GRADE AND VALUE" : PRINT" (NOT MORE THAN 25 ALPHA/NUMERIC CHARA 

CTERS)": PRINT" (NO COMMAS )": PRINT: PRINT" IF THERE IS NO REF 

ERENCE, PRESS ENTER" : INPUTL$:G0SUB91 : IFM=1M=0 :CLS :G0T011 

12 FORF=1T0176:CLS:IFF=176GOT099 

13 GOSUB112:IFM-1M=0:GOTO13 

14 IFA$(F)="CL0SE"A=F:G0T04 

15 NEXTF 

16 IFQ=1GOTO17ELSEPRINTTAB(20)"COIN INVENTORY LISTING" : PRINT'DATE: 

";K$;TAB(25) ; "REFERENCE: " ;L$ : PRINT" ID CODE: " ; J$;TAB ( 25) "F I 
LE CONTAINS ";A-1;" ITEMS" :GOSUB102 :G0T018 

17 LPRINTTAB(29)"COIN INVENTORY LISTING" : LPRINTSTRINGS (3 , 10 ) tLPRIN 

TTAB(10)"DATE: " ;K$ :LPRINTTAB( 10 ) "REFERENCE: " ;L$:LPRINTTAB( 1 
0)"ID CODE: ";J$:LPRINTTAB(10)"FILE CONTAINS" ;A-1 ; "ITEMS" :LPR 
INTSTRINGS(3,10) :GOSUB102 

18 FORF=lTOA-l:GOSUB104:Bi=Bt+VAL(STR$(E(F) ) ) :U=A-1 : IFQ=0GOTO21ELS 

EPRINTei28,"ITEM #";F;" IS BEING PRINTED" : IFPEEK ( 16425 ) O60GO 
T024 

19 LPRINTCHRS(ll) :N-N+1:LPRINTTAB(5)"FILE ID: " ; JS;TAB( 23 ) "DATE: " 

;K$:LPRINTTAB(60)"PAGE: ";N:LPRINT 

20 IFF=A-1GOTO23ELSEGOSUB102:GOTO24 

21 IFF=A-1G0T025 

Program continues 



mm 

\ HOW LOW 

Can we Go? 

8 Premium 
16K Dynamic rams: 

$19.95! 

These top quality, high speed, low power 
RAMs expand memory in TRS-80* l/ll/lll 
and Color Computers, Heath H89, Apple, 
newer PETs, etc. Backed by one year limited 
warranty. Add $3 for two dip shunts and 
conversion instructions for TRS-80* I. 

Why pay mora. . .we stock the right part* 
at the right price. 



refunded VISA Maste 



i ■>', snipping excess 
|415> 562-0636. ^ hours 
Prices $uoj*ci io change 



CompuPro 

BOM 2155. OAKLAM) ARPORT. CA 946M 



^^ELECTRONICS ^ 



• 75 



Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOGIC's 

T80-FS1 night Simulator 

fortheTRS-80 



SubLOGIC's T80-FS1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
out-of-the-cockpit view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's characteristics. 

Once you've acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy's fuel depot 
while evading enemy fighters. 

Computer and aviation experts call the 
T80-FS1 a marvel of modern technology. 
You'll simply call it fantastic! 



Special Features: 

• 3 frame-per-second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80, Level 1 or 2 

• 16K memory 

• Nothing else! 

my m£ w 




Only 



See your dealer or order direct. For 
direct order, include $1.25 and specify 
UPS or first class mail Illinois residents 
add 5% sales tax. Visa and Mastercard 
accepted. 








LOGIC 

Communications Corp. 
Box V, Savoy, IL 61874 
(217)359-8482 
Telex: 206995 •iso 



- Set List ol Advertisars on p*ge 4 18 
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". . . an assembly language routine 

would be ideal, but I have 

a limited knowledge of the low-order language." 



Program continued 

22 IFU-L<0GOTO24 

23 IFF/L=1GOSUB27:CLS:GOSUB102 

24 NEXTF:IFQ=1G0T026 

25 PRINT: PRINT'TOTAL VALUE OF THE" : PRINT'COINS LISTED IN THIS FILE 

IS ";:PRINTUSINGZ$;B#:GOT06 9 

26 LPRINT:LPRINTTAB(7) "TOTAL VALUE OF THE" :LPRINTTAB(7 ) "COINS LIST 

ED IN THIS FILE IS " ; : LPRINTUSINGZ$ ;BI :LPRINTCHR$ (11 ) :GOT04 

27 PRINT"PRESS C TO CONTINUE LISTING— PRESS M TO RETURN TO MENU ": 

.•GOSUB114 

28 IFASC(IS)=67L=L+10:RETURNELSEIFASC(I$)-77GOTO4ELSEGOSUB111:GOTO 

28 

29 PRINT" PREPARE PRINTER" : PRINT: PRINT"WHEN READY, PRESS P ";:GOSUB 

114 

30 IFASC ( 1$) =80CLSELSEGOSUB111 :GCTO30 

31 IFPEEK(14312)<>63PRINT"THE PRINTER IS NOT READY" :GOT01 00 ELSE LPR 

INTSTRINGS(3,10) :Q=l:GOT016 

32 GOSUB109:CLS:PRINT"FILE ID, DATE AND REFERENCE ARE BEING SAVED" 

:PRIt!T#-l,A,J$,K$,L$:CLS:FORF=lTOA-l:PRINT@128,"ITEM #";F;" I 
S BEING SAVED":PRINT#-1,AS(F) ,B(F) ,C$(F) ,D$(F) ,E(F) :NEXTF:GOT 
04 

33 IFLEtl(A$(l)) >0GOTO107ELSECLS:PRINT"ENTER IDENTIFICATION CODE":I 

NPUT"OF DESIRED FILE" ;NS :GOSUB101 : IFM=1M=0 :GOT033 

34 CLS:GOSUB109:CLS:PRINT"FILE ID, DATE AND REFERENCE ARE BEING IN 

PUTTED": INPUT#-1, A, JS,K$,L$:CLS:IFJ$ON$PRINT"FILE , ";N$;" 1 N 
OT LOCATED... FILE '";JS;"' FOUND" :GOT069 

35 FORF=lTOA-l:PRINTei28,"ITEM #";F;" IS BEING INPUTTED" : INPUT#-1 , 

AS(F) ,B(F) ,C$(F) ,D$(F) ,E(F) :NEXTF:G0T04 

36 IFA=176G0T099 

37 PRINT'DO YOU WISH TO: ": PRINT: PRINT"<W> ADD ONE ITEM WITHIN THE 

FILE":PRINT"<E> ADD ITEMS AT END OF THE FILE" : PRINT:G0SUB11 
3 

38 IFASC(IS)=6 9CLSELSEIFASC{I$)=87CLS:GOT04 3ELSEGOSUB111:GOT038 

39 F0RF=AT0176 :CLS: IFF = 176A=F -.GOT099 

40 GOSUB112:IFM=lM=0:GOTO40 

41 IFAS(F)="CL0SE"A=F:G0T04 

42 NEXTF 

43 INPUT'AFTER WHICH ITEM DO YOU WANT TO ADD IT" ; H :GOSUB96 :GOSUB10 

6 
4 4 F0RF=AT0H+1STEP-1:PRINT§S,CHR$(94) : FORP=2TO0STEP-1 : Al-PEEK (VARP 

TR(A$(F) )+P) : A2=PEEK( VARPTR ( AS ( F+l ))+P) : CI =PEEK (VARPTR (C$ (F) ) 

+ P) : C2=PEEK( VARPTR (C$( F+l ))+P) : D1=PEEK (VARPTR (D$ (F) ) +P) :D2-PE 

EK (VARPTR (C$ (F+l) )+P) 
4 5 POKE(VARPTR(D$(F) ) +P) , D2 : POKE (VARPTR (DS (F+l ) ) +P) , Dl : POKE (VARPTR 

(C$(F) )+P) , C2 : POKE (VARPTR (CS( F+l ))+P) , CI : POKE (VARPTR (A$ (F) ) +P 

) , A2 : POKE ( VARPTR (A$( F+l ))+P) ,A1:NEXTP 

46 FORP=1TO0STEP-1:B1=PEEK(VARPTR(B(F))+P) : B2=PEEK (VARPTR (B(F+1 )) + 

P) : POKE (VARPTR (B(F))+P) , B2 : POKE (VARPTR (B (F+l )) +P) ,B1:NEXTP 

47 FORP-3TO0STEP-1 :E1=PEEK (VARPTR (E(F))+P) : E2-PEEK (VARPTR ( E (F+l )) + 

P) : POKE (VARPTR (E(F))+P) , E2 : POKE (VARPTR ( E (F+l )) +P) ,E1:NEXTP:PR 
INT§S,CHR$(32) : S=S+1 : IFS=341S«330 

48 NEXTF 

49 F=H+1:GOSUB112:IFM=1M=0:GOTO49 

50 A=A+1:IFA=176GOTO99ELSEGOTO100 

51 INPUT"WHICH ITEM IS TO BE DELETED" ;H :G0SUB96 : IFH=0M=1 :GOSUB94 :M 

=0:CLS:GOTO51 

52 GOSUB106 

53 FORF=HTOA:PRINT#S,CHR$(94) : FORP=0TO2 :A1=PEEK (VARPTR (A$ (F) ) +P) :A 

2 = PEEK (VARPTR (AS (F + l ))+P) :C1«=PEEK (VARPTR (C$ (F) ) +P) :C2 = PEEK(VA 
RPTR(CS(F+1))+P) :D1=PEEK (VARPTR (DS(F) ) +P) : D2-PEEK (VARPTR (D$ (F 
+1))+P) 

54 POKE (VARPTR (D$(F) )+P) ,D2 : POKE (VARPTR (D$ (F+l )) +P) ,D1 : POKE (VARPTR 

(C$(F) )+P) , C2 : POKE ( VARPTR (C$( F+l ))+P) , CI : POKE (VARPTR (A$ (F) ) +P 
) , A2 : POKE ( VARPTR (A$( F+l ))+P) ,A1:NEXTP 

55 FORP-0TO1:B1«PEEK (VARPTR (B(F) ) +P) : B2-PEEK (VARPTR (B (F+l )) +P) : POK 

E(VARPTR(B(F) )+P) ,B2: POKE (VARPTR (B(F+1 ) )+P) ,B1:NEXTP 

56 FORP«0TO3:E1-PEEK(VARPTR(E(F) ) +P) : E2-PEEK (VARPTR (E (F+l )) +P) :POK 

E (VARPTR (E(F) ) +P) , E2: POKE (VARPTR (E (F+l )) +P) , El :NEXTP: PRINT0S, 
CHRS(32) :S=S+1:IFS=341S«330 

57 NEXTF 

58 A=A-1:PRINT:PRINT"ITEM #";H;" HAS BEEN DELETED. ": IFA<2A$ (1 )-"" : 

JS="":K$="":LS«"":A=151 

59 GOTO100 

60 CLS:PRINT"DO YOU WISH TO EDIT: ": PRINT: PRINT"<F> FILE ID, DATE, 

OR REFERENCE" :PRINT"<I> ACTUAL ITEM INFORMATION" : PRINT:GOSU 
B113 

61 IFASC (1$) =7 0CLSELSE IFASC ( 1$) -73GOT067ELSEGOSUB1 11 :G0T061 

62 CLS: PR I NT "WHAT IS TO BE CHANGED: ": PRINT: PRINT"<I> FILE ID":PR 

INT"<D> FILE DATE": PRINT" <R> FILE REFERENCE" : PRINT:G0SUB113 

63 IFASC (I$)=73CLSELSEIFASC( IS )=68GOT065ELSEIFASC(I$)«82GOT066ELSE 

GOSUBlll:GOT063 iv~,««, «,„., 

Program continues 



Select the appropriate field by pressing 
A, B, C, D or E. Enter what you are trying to 
locate. The program will search the file 
and display those items that match your 
request. Note a value search will list all 
items equal to or less than the amount 
entered. If you entered $10, all coins hav- 
ing a value of $10 or less will be displayed. 

Once the search has been completed, 
you may return to the menu by pressing M. 

Option J allows two files to become one, 
as long as the total number of items does 
not exceed 175. A file must be in memory 
to use the merge feature. When prompted, 
enter the number of items in the file to be 
merged. Next, set up the recorder and 
press R. 

As each item is merged, its number will 
be displayed. Upon completion, the menu 
will be returned. List everything in the 
merged file on the screen and check it. 

Notice the file ID code is now MERGE, 
and the date and reference are blank. You 
may use the Edit option to label the new 
file created by MERGE with an ID code, 
date and reference. 

When you wish to exit the program, 
simply press K during the menu display. 
Write the File ID Code and date on the 
cassette for future use. The code is 
necessary when trying to load a file. 

The Program 

Memory requirements for COINS are ap- 
proximately 8.5K for program storage and 
14.5K for execution. 

Due to large memory requirements, 
COINS was written with only one REM 
statement, and all line numbers are in- 
cremented by one. 

Beware of increasing the program size 
beyond its present length. There is little 
memory left while this program is ex- 
ecuting. If you wish to change it, I recom- 
mend changing arrays A$, B, C$, D$ and E 
to 153, and all 176'sto151. 

The areas I consider the heart of the pro- 
gram are lines 44-48 and lines 53-57. These 
sections use a neglected feature of Basic— 
VARPTR. (See Level II Reference Manual for 
a description.) 

What happens is the address value of 
each item is computed and one added or 
subtracted from it. This eliminates the 
need for the computer to periodically per- 
form memory management, when the com- 
puter seems to "hang". Nothing is wrong 
with that since new strings are not created 
to make room in the file during an add/ 
delete option. 
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£ RACET SORTS - RACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES RACET compulm. - 

I 




FIELD PROVEN!! 

10 MEGABYTES and MORE for the TRS-80* Model II 
plus SHARED ACCESS to HARD DISK DRIVE 

Hard/Soft Disk System (HSOS) Software allows access as single drive You can have that 10 Megabyte continuous file • that 50.000 name maillist or inventory' 
Of a directory with 1000 entries! All completely compatible with TRSDOS 2 BASIC You can mix floppy and hard disk drives. Includes special utilities including 
HPURGE. DCS Directory Catalog System. HZAP Hard Disk Superzap. and many special formatting options. Three to eight times faster than floppy' RACET quality 

HARD DISK DRIVE & CONTROLLER $5995. Second User $595. HSOS Software S400. (Note: HSDS now also available for CORVUS drives") 

KFS-80 (1-dnve 32K Mm - Mod II 64K) Mod I and III $100, Mod II $175 

Assembly language ISAM facility! Interfaces with BASIC. Very fast access to records in large files Access/insert times 1-4 seconds 

B-Tree directory structure eliminates record search. No file reorganization required Sector buffering reduces media and drive wear while increasing performance 

Can be used for primary and secondary file database applications. Records are kepi in sorted order on disk by alpha key. Deferred write option. Comprehensive 

file maintenance and debugging utilities are included. Attention applications programmers - Save time in implementing your custom database application software 

MAILLIST (1 drive 32K Min - Mod II 64K) Mod I and III $75, Mod II $150 

This ISAM-based maillist minimizes disk access times. Four keys — no separate sorting. Supports 9-digit zip code and 3-digit state code. Up to 30 attributes 

Mask and query selection. Record access/update time 1 -4 seconds' ' 

DISCAT (32K 1 -drive Min) Mod I and III $50 

This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language program 

works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette 

free space. RS232 drivers and other features. 

LPSPOOL (32K 1 -drive Min) Mod I $75 

LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues 

maintained by the system as print files are generated. LPSPOOL supports both parallel and serial printers. 

BASIC LINK FACILITY BUNK' (Mod I Min 32K 1 -disk) Mod I $25; Mod II $50; Mod III $30 

Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program 

may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to beam mav 

be specified! 

INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50; Mod III $60 

Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds" 

Select only functions you want to optimize memory usage. 

INFINITE BUSINESS (Requires Infinite BASIC) Mod I A III $30 

Complete printer pagination controls — auto headers, footers, page numbers. Packed decimal arithmetic — 127 digit accuracy + , - , *. / Binary search of 

sorted and unsorted arrays. Hash codes. 

COMPROC (Mod I & Mod III — Disk only) Mod I $20: Mod III $30 

Command Processor Auto your disk to perform any sequence of instructions that you can give from the keyboard. DIR. FREE, pause, wait for user input BASIC 

No. of FILES and MEM SIZE. RUN program, respond to input statements. BREAK, return to DOS. etc Includes lowercase driver software, debounce and screenprint! 

GSF (Mod I & III Tape or Disk - Specify Memory Size) Mod I $25; Mod II $50; Mod III $30 

Generalized Subroutine Facilities The STANDARD against which all other sorts are compared' And then compare prices! Machine language — fast and powerful' 

Multi-key multi-variable and multi-key character string. Zero and move arrays Mod II includes USR PEEKS and POKES Includes sample programs. 

DSM (Mod I Mm 32K 2-dnve system Mod II 64K 1 -drive Mod III Mm 32K 1 -drive) Mod I $75; Mod II $150; Mod III $90 

Disk Sort/Merge tor RANDOM files All machine language stand-alone package for sorting speed Establish sort specification in simple BASIC command File 

Execute from DOS Only operator action to sort is to change diskettes when requested 1 Handles multiple diskette files! Super fast sort times — improved disk I/O 

times make this the fastest Disk Sort/Merge available on the TRS. 

UTILITY PACKAGE (Mod II 64K) $150 

important enhancements to the Mod II The fHe recovery capabilities alone will pay for the package in even one application! Fully documented in 1 24 page manual' 

XHIT. XGAT. XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, wildcard' mask select. 

absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette including track -0. and absolute disk backup/copy with 1/6 

recovery DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more Change Disk 

ID with DISKID XCREATE preallocates files and sets LOF" to end to speed disk accesses DEBUG!! adds single step, trace, subroutine calling, program looping. 

dynamic disassembly and more" 

BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50 

SEEK and FIND functions for Variables. Line Numbers. Strings. Keywords All" options available for line numbers and variables. Load from BASIC — Call with 

'CTRL'R. Output to screen or printer! 

DEVELOPMENT PACKAGE (Mod II 64K) $125 

Includes RACET machine language SUPERZAP. Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus' software package including 

uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation for Mod I. Assemble directly 

into memory. MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG). extended editor commands. 

DEALER inquiries invited. System Houses - check for special pricing on hard drives and software. 



CIRCLE READER REQUEST EOR f REE 24-PAGE CATALOG 
•TRS-80 IS A TRADEMARK OF TANDY CORPORATION 



CHECK. VISA M/C. COO. PURCHASE OROER 
TELEPHONE ORDERS ACCEPTED (714) 997-4950 



^ RACET computes -3 



1330 N. GLASSELL, SUITE M. ORANGE. CA 92S67 
RACET SORTS - RACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES - RACET computes - 
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Program continued 

64 CLS: INPUT"ENTER NEW FILE ID CODE * ; J$ :GOSUB90 : IFH-1M-0 :GOT064EL 

SEPRINT'FILE ID CODE IS NOW ";J$:GOT01BB 

65 CLS: INPUT-ENTER NEW FILE DATE" ; KS :GOSUB90 : 1FM=1M=0 :G0T065ELSEPR 

INT"FILE DATE IS NOW ";K$:GOTO100 

66 CLS: INPUT-ENTER NEW FILE REFERENCE" ;L$ :GOSUB90 : IFM-1M-0 :GOT066E 

LSEPRINT'FILE REFERENCE IS NOW " ; L$ :GOTO100 

67 CLS: INPUT-ENTER ITEM NUMBER TO BE EDITTED" ;F : H=F :GOSUB96 : PRINT: 

PRINT" ITEM #";H;" APPEARS IN F.ILE AS FOLLOWS: ": PR I NT:GOSUB102 
:GOSUB104:FORT=1TO1000:NEXTT:CLS 

68 GOSUB112:IFIF. = 1IE = 0:GOTO68ELSEPRINT:PRINT"THE ITEM NOW APPEARS 

AS FOLLOWS:": PRINT: G0SUB1 02 :GOSUB104 

69 PRINT:PRINT"PRESS M TO RETURN TO MENU "?:GOSUB114 
7 IFASC(I$)O77GOSUB111:GOTO70ELSE4 

71 AS$="ZZZ":BS«-1:CS$«"YYY":DS$="XXX" :ES— 1 : CLS : PRINT" SEARCHES MA 

Y BE CONDUCTED BY ANY FIELD ": PRINT: PRINT'WH ICH FIELD DO YO 

U WISH TO CONDUCT THE SEARCH BY ": PRINT: PRINT" <A> COIN <B> DA 
TE <C> MINT <D> GRADE <E> VALUE" : PRINT:GOSUB113 

7 2 IFASC(IS) <650RASC(IS) >6 9G0SUB111 :GOT072ELSECLS :ONASC ( 1$) -64GOTO 
74,74,74,74,73 

7 3 PRINT'DURING A SEARCH BY THE 'VALUE' FIELD, ANY ITEM WORTH" :PRI 
NT"THE AMOUNT INPUTTED OR LESS WILL BE DISPLAYED. ": INPUT" ENTE 
R THE AMOUNT TO BE SEARCHED FOR " ; ES : GOT07 9 

74 PRINT'WHAT DO YOU WISH TO SEARCH FOR " ; : ONASC ( I S) -64G0T075 ,76 ,7 
7,78 

7 5 INPUTAS$:GOT07 9 

76 INPUTBS:GOT07 9 

77 INPUTCS$:GOT07 9 

78 INPUTDS$ 

79 PRINT: PRINT "SEARCHING FILE " :GOSUB101 :GOSUB101 : FORF-1TOA-1 : 

IFAS$=A$(F)ORBS-=B(F)0RCS$=CS(F)0RDS$=D$(F)0RES->E(F)CLS:G0SUB 
102ELSENEXTF:GOTO81 

80 FORG=FTOA-1 : IFASS-AS (G) ORBS=B (G) ORCSS-C? (G) ORDS$«D$ (G) ORES->E (G 

)F=G:GOSUB104:NEXTG:GOTO82:ELSENEXTG:GOTO82 

81 PRINT: PRINT'A MATCH CANNOT BE FOUND" 

82 PRINT: PRINT'PRESS S TO CONDUCT ANOTHER SEARCH — PRESS M TO RETUR 

N TO MENU ";:GOSUB114 

83 IFASC(I$)=83GOT071ELSEIFASC(I$)»77GOT04ELSEGOSUB111 :GOT077 

84 GOSUB8 8: PRINT" CAUTION: WHEN MERGING FILES, THE TOTAL NUMBER OF 

ITEMS MUST": PRINT "NOT EXCEED 17 5 . " : PRINT: INPUT "HOW MANY ITEM 
S ARE IN THE FILE TO BE MERGED"; I :J-A: IFJ+I-1 >176PRINT: PRINT- 
TOO MANY ITEMS MERGE CANNOT BE DONE" :GOTO100 

85 CLS :G0SUB1 09: CLS: PRINT "CHECKING THE LENGTH OF INPUTTED FILE.... 

":INPUT»-1,A, J$,K$,L$:IFJ+A-1>176PRINT"TOO MANY ITEMS. ..." :GO 
SUB101:GOSUB101 :GOSUB101 :GOT04ELSECLS :F0RG=JT0J+A-2 :PRINT3320 
,"ITEM #";G;" IS BEING INPUTTED" 

86 INPUTI-1,AS(G),B(G) ,C$(G) ,D$(G) ,E(G) : NEXTG:JS= "MERGE" :K$=" : L$- 

"": PRINT: PRINT "MERGE COMPLETE" :A-A+J-1 :GOTO100 

87 PR I NT "IF A FILE WAS CREATED, BE. SURE TO PROPERLY MARK THE CASSE 

TTE":PRINT"WITH THE CORRECT FILE ID CODE AND DATE FOR FUTURE 
REFERENCE. " : PRINTSTRING$ (10,10): END 

88 IFA$(l)=""ORA<2CLSELSERETURN 

89 FORD=1TO5:PRINT§400,"YOU DO NOT HAVE A FILE IN MEMORY" :GOSUB101 

:PRINT(!400, STRINGS (32,32) :GOSUB101 : NEXTD:GOT04 

90 IFLEN (A$ (F) ) >110RB(F) >99990RLEN (CS(F) ) >50RLEN (DS (F) ) >60RE (F) >99 

99.99IE=1:A$(F)="":B(F)=0:C$(F)="" :DS(F)-"" :E(F) -0:GOTO94 

91 IFLEN (JSXIORLEN(JS) >6M=1:J$="" :GOT094 

92 IFLEN(K$) >12K$«"" :M=1ELSEIFLEN (L$) >25LS="" : M=l :C0T094ELSERETURN 

93 IFLEN (N$)<10RLEN(N$)>6N$="":M-1 

94 IFM=1C= ( 256 * ( PEEK ( 16417 ) -60 ) +PEEK ( 16416 ) -2) +66ELSERETURN 

95 F0RD=lTO5:PRINTecC, "INPUT ERROR RE-ENTER" :GOSUB101 : PRINT3C, 

STRINGS (24, 32) :GOSUB101 : NEXTD: RETURN 

96 IFA<51R=120ELSEIFA<101R=16 5ELSER=210 

97 IFH>A-1FORD-1TO5:PRINT#400, "THERE AREN'T ";H;" ITEMS IN THIS FI 

LE'ELSERETURN 

98 GOSUB101:PRINT§400,STRING$(50 > 32) :GOSUB101 :NEXTD: H-0 :GOT04 

99 FORD-1TO5:PRINT§408,"THIS FILE IS FULL" :GOSUB101 : PRINT§408 ,STRI 

NG${17,32) :GOSUB101 : NEXTD :GOT04 

100 FORT«1TO500:NEXTT:GOTO4 

101 FORT«1TO100:NEXTT: RETURN 

102 IFQ=0PRINT"ITEM t";TAB(13) "COIN" ; TAB ( 25 ) "DATE" ; TAB (35 ) "MINT"jT 

AB{45) "GRADE" ? TAB (56) "VALUE" : RETURN 

103 IFQ=1LPRINTTAB(7) "ITEM I" ;TAB ( 20 ) "COIN" ;TAB ( 32 ) "DATE" ; TAB (42) " 

MINT"; TAB (52) "GRADE" ; TAB (6 3) "VALUE" : RETURN 

104 IFQ-0PRINTF;TAB(10)AS(F) ;TAB(24)B(F) ;TAB (3S ) CS ( F) ; TAB (45) DS (F) 

; TAB (54) ; : PRINTUSINGYS ; E (F) : RETURN 

105 IFQ«1LPRINTTAB(9)F;TAB(17) A$(F) ;TAB(31)B(F) ;TAB ( 42) CS (F) ;TAB(5 

2)DS(F) ;TAB(61) ; : LPRINTUSINGYS ; E (F) : RETURN 

106 CLS: PRINT" JUST A MOMENT PLEASE ": PRINT: PRINT" MEMORY IS BEIN 

G RE-ARRANGED" :PRINTei92, "IT COULD TAKE UP TO" : PRINTP216 , "SEC 
ONDS. ":F0RD»lTO4 : PRINT3211 ,R:GOSUB101 :PRINTe211 , " ":G0SUB1 
01 : NEXTD : PRINT0211 , R: R=0 : RETURN 

107 PRINT'THERE IS A FILE ALREADY IN MEMORY" : PRINT: PRINT" <D> DELE 

TE FILE AND RE-RUN PROGRAM" : PRINT" <M> RETURN TO MENU": PRINT: 
GOSUB113 

108 IFASC(I$)*68GOT02ELSEIFASC(I$)=77GOT04ELSEGOSUB111 :GOTO108 

109 PRINT'PREPARE RECORDER" :PRINT: PRINT"WHEN READY, PRESS R " } : GOS 

UB114 

110 IFASC(I$)=82RETURNELSEG0SUB111 :GOTO110 

111 C=256*(PEEK(16 417)-60)+PEEK(16416)-2:GOTO115 

112 CLS SPRINT" (ITEM i";F;") ENTER COIN, DATE, MINT, GRADE, VALUE" 

:INPUTA$(F) ,B(F) ,CS(F) ,D$(F) ,E(F) :GOSUB90 : RETURN 

113 PRINT"SELECT OPTION "; 

114 C=256*(PEEK(16 417)-60)+PEEK(16416) 

115 PRINT§C,STRINGS(2,14 3) ;:GOSUB101: IS=INKEY$: IFlS-""PRINTgC, " " 

;:GOS\3B1B1:GOT0115 

116 PRINTgC," ";IS; : FORT-1TO50 :NEXTT: IFASC ( IS) <65GOT0115ELSERETURN 



Execution time to add or delete an item 
in the first version of this program is about 
30 minutes, vs. 3 minutes using VARPTR. 
There may be faster ways to rearrange a 
file and more than likely, an assembly 
language routine would be ideal, but I have 
a limited knowledge of the low-order 
languages. 

Bugs 

I have tried to make COINS as bug-free 
as possible. That is not to say there aren't 
any. If you should encounter any prob- 
lems, go back and check the listing. I used 
a Line Printer III to produce mine, and it 
slashes all zeros. My golden rule is to dou- 
ble check everything and then do it again. 

After spending several hours con- 
solidating your collection and keying it in, 
you are ready to save it on cassette. Sud- 
denly, you accidently press Break. Simply 
type GOT04 and your file will still be intact. 
This may be done any time a problem 
arises, but, if you type RUN, you will lose 
the file. 

I find it tedious sitting at the keyboard 
for several hours. Frequent breaks seem to 
alleviate this. Therefore, I create many 
small files, say 25 to 50 items long and 
then later, using the merge function, make 
several large files of 175 items each. 

Sometimes when saving a file on tape, I 
forget to mark the cassette with the File I D 
code. The answer is simply to execute the 
input file function. When asked to enter 
the ID code, just press Enter. Once the ID 
code of the recorded file is read, an error 
message will be displayed giving the 
proper file ID. 

My last caution concerns the cassette 
tape. Due to the questionable reliability of 
cassettes, I do not use anything larger 
than a 30-minute tape. One 175-item file 
will fit with a little tape left over. It is 
preferable that only one file be stored on a 
tape. I would rather lose one file than five 
or six. 

COI NS was written with the amateur col- 
lector in mind. If you have a large collec- 
tion, I suggest changing the tape I/O 
routines to accommodate a disk. If you en- 
counter a problem you cannot remedy, 
send me a letter. 

Since COINS was written, my collection 
has been drastically reduced. I still keep 
what's left in a safe and recommend safe 
deposit boxes. An inventory significantly 
reduces the risk of theft, since the collec- 
tion Is not displayed. 

I hope collectors giving COINS a trial 
run will find it as useful as I have. ■ 
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MODEL 




DISCOUNT 

TRS-80 



MODEL III 



BUY 
DIRECT 




26-4002 

64K 1 Drive 

'3288.00 

26-4160 1 Drive Exp $1034.00 

26-4161 2 Drive Exp 1574.00 

-4162 3 Drive Exp 2114 00 

4150 Hard Drive -1 3994 00 + 

4151 Hard Drive 2 3144.00 + 

•4530 Scripsit II 265.00 

-4512 Profile II 162.00 

-4511 Visicalc II 265.00 

-4501 Gen Ledger 180.00 

•4506 Mail List 72.00 



26-1061 4KI 

26-1062 16K III 

26 1066 48K III 

W 2 Drives RS232 



$609.00 
849.00 

2069.00 



COLOR 



%£* 



PRINTERS 




CERTRUniCS 
BEST PRICES 

Text Quality Centronics 
739-1 Printer $729.00 



COMPUTER SPECIALISTS 

CALL US. . . 
SAVE MONEY 

We carry the full line of TRS-80 Computers. All 
other software, furniture, and accessories at dis- 
count from catalog price. We stock most items 
to assure you fast delivery and save you money. 

We Offer The Total Package. . . 

SATISFACTION - Thousands of satisfied 
customers since 1978 

—FAST DELIVERY - We ship all in-stock items 

within 24 hours 26 3001 4K $318.00 

26-3002 16K Ext. Basic 488.00 

—LARGE INVENTORY - Largest in Southeast U.S.A. 7 ^ 3003 32K Ex , Basjc 578>00 

26-3010 Color Video 333.00 

— HONESTY - No gimmicks - No worry mail 26-1206 Recorder 34.00 

order ease 

—TOLL FREE PHONES Doesn't cost you a 
penny to call us 

WE ARE THE BEST! 





Pocket Computer 

26 3501 1 9K PC $188.00 

26-3503 Cassette IF 45.00 

14-812 Recorder 72.00 

26-3505 Mini Printer 134.00 

WRITE US FOR A 
FREE CATALOG 
THOUSANDS OF SATISFIED CUSTOMERS 




ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 



1-800-841-0860 Toll Free Order Entry 



MICRO MANAGEMENT SYSTEMS, INC." 



No Taxes on Out Of DOWNTOWN PLAZA SHOPPING CENTER 



State Shipments 

Immediate Shipment 
From Stock on Most Items 



DEPT. iL 
115 C. SECOND AVE. S.W. 

CAIRO, GEORGIA 31728 

(912) 377-7120 Ga. Phone No. & Export 

IRS WO li • roa.lftaraa' trademark of tha Tandy Cora. 



A copy ol the manufacturer's war- 
ranty can be obtained free upon 
specific written request to the 
Electronics Department of our 
Cairo Georgia Retail Store. 



* See List ol Advertisers on page 4 18 
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STYLE 



In praise of perforative prompts. 



Let's Get Rude! 




Richard Ramella 

1493 Mountain View Ave. 

Chico, CA 95926 



Ventriloquist Edgar Bergen was the 
soul of good manners, but his wooden 
sidekick, Charlie McCarthy, was cheerfully 
rude to anyone who came near, including 
long-suffering Mr. Bergen. 

I sensed an analogy between a ventrilo- 
quist's dummy and a computer the first time 



I tried out a friend's microprocessor. He 
wanted me to try a little game he'd man- 
aged—a high-low opus which must have 
used all of fifty bytes. 

The screen flashed, "I'm thinking of a 
number one to 10 which you must guess. 
Ready to play?" 

"OK," I typed, and hit Enter. 

The screen replied, "No, stupid. Answer 
yes or no. OK, bozo?" 

I gave my friend a furrow-browed, 
sidelong glance. He shrugged. 

I got up and walked away. "That's a 
nickel more of that than I needed. Care for 
a game of chess?" 

My friend was crestfallen. "But you 
didn't even try it." 



100 REM 'NOVEL BY RICHARD RAMELLA* 

110CLS:CLEAR260 

120 PRINT" I AM THE DJIN OF THE PRINTED CIRCUIT." 

130 PRINT "I HAVE JUST CONCOCTED THE PLOT OF A NOVEL." 

140 PRINT"CAN YOU ASK ME YES OR NO QUESTIONS" 

150 PRINT" AND FIGURE OUT THE STORY?":PRINT 

160 PRINTPRINT-DONT BOTHER WITH QUESTION MARKS" 

170 PRINT-'OR WORRY ABOUT SPELLING I UNDERSTAND.":PRINT 

180 INPUT"QUESTION";B$ 

190A$ = MID$(BJ».9,1) 

200 IF(A$ = "A")OR(A$ = "E")OH(A$ = T')OR<AS = "0")PRINT"YES":GOTO180 

210 IF(A$ = "U")OR(A$ = "L")OR(A$ = "S")OR(A$ = "T")PRINT "YES":GOTO180 

220 IF(A$ = "Y")OR(A$ = "K")OR(A$ = "M")PRINT "MAYBE":GOTO180 

230 PRINT "NO":GOTO180 

240 END 



Program Listing 1 



"I am not stupid, and I am not a bozo," I 
said. And that was that . . . until I got my 
own microprocessor. 

Soon my little computer developed a 
smart-aleck screen and would insult and 
hector anyone who dared hit Enter. In time, 
I realized this was bad computer mental 
health and I wiped the mean aspects away 
from numerous programs. I believe that, 
even when the computer challenges, it 
should remain an essentially agreeable 
entity. 

Still, the human bent for deviltry is such 
that it's admittedly fun to have the com- 
puter toss a zinger now and then. 

Accordingly, I offer two little programs 
which are total tricks. Each has sufficient 
grace and humor that your victims will be 
willing ones. 

Novel and Tanterian Takeaway 

Novel is a program in which the com- 
puter claims to have concocted a plot 
which the player must guess in a series of 
questions answered by yes, no or maybe. 
In truth, answers are based on a letter 
within an alphanumeric string produced 
when the player asks a question. The 
player unconsciously makes up his own 
plot. It is neatly played when adapted to 
readout, which you, of course, present to 
your totally charmed victim. 

Tanterian Takeaway is a removal game, 
the concept for which probably originated 
about five minutes after people learned to 
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(( 



your victims 
will be willing ones." 



count their fingers. Here, it is dressed as players will insist on subsequent runs 
science fiction and has a humorous end- even after the computer tells them it's a 
ing. It doesn't take long to play, and most no-win situation. ■ 



100 REM *TANTERIAN TAKEAWAY* BY RICHARD RAMELLA 

110 CLS 

120 PRINT "HUMAN RAPSCALLION!!" 

130 PRINT 

140 PRINT "I'VE CAUGHT YOU STEALING THE" 

150 PRINT "100 JEWELS OF PLANET TANTER." 

160 PRINT 

170 PRINT "ORDINARILY, THE PENALTY" 

180 PRINT "IS SEVERE AND TERMINAL..." 

190 PRINT 

200 PRINT "BUT I'M A GAMESMAN." 

210 PRINT "FOR YOUR LIFE AND THE JEWELS" 

220 PRINT "YOU MUST MATCH WITS WITH ME" 

230 PRINT "AT TANTERIAN TAKEAWAY." 

240 PRINT 

250 INPUT "HIT ENTER FOR RULES"; 

260 CLS 

270 PRINT "WE TAKE TURNS MOVING 1 TO 10 JEWELS" 

280 PRINT "FROM THE BLUE BOX TO THE RED BOX." 

290 PRINT "THE ONE WHO MOVES THE 100TH JEWEL" 

300 PRINT "IS THE WINNER OF LIFE AND TREASURE." 

310 PRINT 

320 INPUT "HIT ENTER TO START"; 

330 CLS 

340 PRINT "I GO FIRST, MOVING 1 FOR A TOTAL OF 1 . ' 

350 FOR N»l TO 100 STEP 11 

360 INPUT "HOW MANY ARE YOU MOVING" ;X 

370 CLS 

380 IF X<1 GOTO 420 

390 IF X=<11 GOTO 440 

400 PRINT "THE HUMAN CHEATS I TAKE 10 OR FEWER 1" 

410 GOTO 360 

420 PRINT "YOU MUST MOVE AT LEAST ONE." 

430 GOTO 360 

440 PRINT "YOUR TOTAL IS AT";N+X;"BY TAKING" ;X 

450 PRINT "I MOVE" ;11-X; "FOR A TOTAL OF";N+ll 

460 PRINT 

470 PRINT 

480 IF N+ll=100 THEN 500 

490 NEXT N 

500 PRINT "I WIN, MY DOOMED FRIEND." 

510 GOSUB 6 80 

520 PRINT 

530 PRINT "AND NOW FOR A CONFESSION:" 

540 PRINT 

550 PRINT "THE GAME IS RIGGED SO I ALWAYS WIN." 

560 PRINT "THIS SHOULD TEACH YOU TO" 

570 PRINT "NEVER TRUST A TANTERIAN " 

580 GOSUB 6 80 

590 CLS 

600 FOR Z=l TO 320 

610 PRINT "HA "; 

620 NEXT Z 

630 GOSUB 680 

640 X=0 

650 CLS 

660 PRINT"LET*S PLAY AGAIN." 

670 GOTO 340 

680 FOR A«=l TO 1500 

690 NEXT A 

700 RETURN 

6990 NEXT A 

Program Listing 2 



BUGOUT 




THE ULTIMATE BOG CATCHER! 



THREE POWERFUL MACHINE 
LANGUAGE MONITORS 

UNEQUALLED ASSEMBLY 
LANGUAGE INSTRUCTION 

A tew months ago we published a lest version ot 
BUGOUT The response was overwhelming 1 We 
received numerous enclamations similar to the fol- 
lowing from R E m Philadelphia 

Although I am just a beginner at Assembly 
Machine Language I found the program and book 

excellent I car truly say that i learned more in two 
hours with your manual than l was able to lea'n in 
the previous two months I say this with no exag 
gerahon Thanks lor an excellent program It s 
worth twice the price 1 

Now. after considerable exchange ol ideas with 
BUGOUT owners we are proudly introducing the 
following new products to compliment our initial 
offering The products shown below will provide a 
choice of power according lo your needs 

BUGOUT/BEG 

The original BUGOUT MONITOR It does most 
things better than any other monitor on the market 
An ideal product lor the budget-minded beginner 
who wants to grasp machine language as rapidly 
as possible with a modest investment 
INCLUDES ONE Ml BOOK BUGOUT ASSEMBl Y 
LANGUAGE COURSE 

Order No. BUGVIT TAPE $24 95 

Order No. BUGVID DISK $29.95 

BUGOUT/INT 

An intermediate version of BUGOUT containing 
most of the features of BUGOUT PRO descr.bed 
below it is tor the beginner who wants all the 
power he can get at ar intermediate price, or tor 
those working exclusively in a 16K environment 
This product is NON-RELOCATABLE and resides 
in high 16K memory The disk version overlays 
DOS 

INCLUDES TWO (2) BOOKS ASSEMBLY COURSE 
& ADVANCED MANUAL 

Ord«r No BUGV2T TAPE $44.95 

Order No BUGV2D DISK $49 95 

BUGOUT/PRO 

The ULTIMATE' debugger We have taken the 
best ideas from other monitors, combined them 
with our best, and The best from BUGOUT owners 
to create a truly professional debugging/learning 
package No other monitor can give you the flex- 
ibility, ease of operation and POWER offered by 
BUGOUT'PRO BAR NONE 1 Order the DEMO 
TAPE if uncertain You WILL become a believer 1 
INCLUDES TWO (2) BOOKS ASSEMBLY COURSE 
& ADVANCED MANUAL 

Order No. BUGV3T TAPE $64.95 

Order No. BUGV3D DISK $69 95 

DEMO-TAPE and DETAILED INFORMATION 

PACKAGE $ 5.00 

i Refundable On purchase ol any BUGOUT version: 



UPGRADES from V1.0 to V2.0 
or V2.0 lo V3.0 
UPGRADES from V1.0 lo V3.Q ..... 

All foreign orders, please add 
All C O D or other special handling, 
please add 



$19.95 
$39 95 



$ 5 00 
$ 500 



We accept Master Charge. Visa. Money Orders or 
Checks — Washington Slate residents please add 
5.3% sales tax. 

THE SOFTWARE PLANTATION 

PO BOX 44623 

TACOMA. WA 98444 

(206)531 1506 



DEALER INQUIRIES 
INVITED 
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SOFTWARE FOR TRS-80 



UNITERM DOS PLUS OPERATING SYSTEM 

'The Universal Terminal PrOQram' A ,ast - eas y ,0 use. and bug-free operating system tor the TRS-80 Model i 

The FIRST and ONLY terminal program for both the Model I and Model III and III This system is a must for business and hobby users Easy to use. 

TRS-80 computers Written by Pete Roberts, this program will soon become supports Single and Double density in the Mod III. (Mod I with Doubler) In- 

the standard of terminal software Unique features includes a Handsome eludes a $100 reward for an error if you can locate one (See Micro Systems 

binder with over 7b pages of instructions and examples. Free upgrade policy Software ad tor details ) 

using 'ocal Bulletin Boards and MicroNET Expanded functions such as Type DOSPLUS 3.3S (Mod I Single Density). $99.95 

to buffer Display Buffer . Define Auto logon, polling, signon. and connect DOSPLUS 3 3D (Mod I Double Density. Doubler required). $99.95 

messages' Requires 32K disk system Only $79.95 DOS PLUS 3. 3111 (Mod III Smg/Doub Density). $99.95 
ST80HI. OMNITERM. SMART80. SMARTIII owners'" Upgrade to 

UNITERM ' Send your ORIGINAL program disk and receive UNITERM' for NEWDOS/80 OPERATING SYSTEM 

only $29.95" The Hottest Disk Operating System tor the TRS-80 Model I and III Version 

2.0 with full single and. double density support, allows the use of and com 
C0NNECTI0N-80 BBS WnafiOfl of disk drives types and densities. Full Double density support when 
Run your own Computer Bulletin Board. This software package when combm- used with a Doubler. On the Model I. you can read and write Model III corn- 
ed with your Model I or Model III TRS-80 and an Auto Answer Modem will patable data disks On the Model III. you can write Model I single or double 
convert your computer into a mini-times share system. Functions include density data disks for use on the Model I Includes Expanded directories, 
message leaving, both public and private, message retrieving. Bulletins. dynamic basic merge and delete, selective variable clearing, enhanced basic 
Downloading merchandise, product ordering, chat. etc. This is a full feature editing. Enhanced chaining functions. Superzap utility. Disk enhanced editor 
system, and well known for excellence among modem users Only $199.95 assembler and disassembler, and much more Special Price, $139.95 

UTILITY PACK M-ZAL 

This package includes three of the most useful programs available for the Th| s is the most powerful Editor Assembler for the TRS-80 ever written 

serious TRS-80 user, by Mike Friedman. Features a full screen editor, a menu driven asembler. and an interactive 

1 ) Spooler: Very fast, allows page parameters and perfection skip over linker which allows the linking of /CMD and /RLD files. Files can be loaded 
automatically you can even switch DOS's without mterupting printing 1 to Disk or Tape' Assembly Language programers like Dick Baicom. and Pete 

2) Erase: Super Purge utility with multiple modes of operation Allows you to Robert claim that this is the best Editor Assembler on the market' Special 
display DIR and position cursor over file to be killed, and then a key stroke Price. $129.95 

and it's gone! You will never use KILL' again' 

3) Map: Places a sector map (LUMP map for NEWDOS/80) of your disk on OTHER MYSTERIES 

the screen Shows free, used and locked out grans. We carry the full line of IJG 'Other Mysteries' books at discount prices These 
ENTIRE PACKAGE ONLY (Specify Mod I or III). $49.95 books are a must for computer users 

TRS— 80 Disk and Other Mysteries J22.50 $19.95 

COPY III Basic Decoded and Other Mysteries . $2«95 $26.96 

This Model ill Utility, written by Dick Baicom. allows you to load system tapes Custom TRS-80 and Other Mysteries $29\tf $26.95 

into your computer at either 500 or 1500 Baud and then copy them onto a Basic Faster & Better . . $29 9\ $26.95 

new tape at either 500 or 1500 Baud Includes 10 page instruction manual, 

$g .95 MX-80 RIBBON RELOADS 

Don't throw away your worn MX-80 ribbon cassettes We carry endless loop 
THE COPYRIGHT KIT ribbons to replace the worn ribbon in your MX-80 ribbon cassette and save 

A self-instruction booklet on copyrighting the computer software you write. money. Installation takes about 3 minutes each. Special offer $3.50/ea., 
Includes step by step instructions, sample forms, as well as discussions of $35.00/doz. 

copyrights, patents and trade secrets your rights secured by copyrights. CASOP 

legal remedies upon infringements, material not copyrightable and MUCH The CAS0P u , lhty by Paui spoltore allows you to copy system tapes, find load 
MORE' Written by Attorneys Published by National Attorneys Publications locations, check for hidden messages modify program blocks, relocate pro- 
and distributed exclusively through B T Enterprises IF YOU EVER WROTE A gram blocks and merge tw0 tape pr0 grams together. A sort of SUPERZAP 
COMPUTER PROGRAM. YOU NEED THIS BOOK 1 $11.95 (or , ape uSers $24.95. 

AVAILABLE AT 

Breere Computing Microimage. All System. Go CPU Computet Corp Program. Unlimited Son John Enterprises 

PO Box 1013 14b 03 25rh Road 105 W Plant Street 175 Mam Sired 20 Jwclio Tpke PO Box "»» 

Berklev Ml 4807' KUishmu NY 11.IM Winter Garden FL 32781 Charleston. MA 0212°- Jericho. NY 1 1753 Freeman!. CA 94538 

13131 288 9422 13051 877 2830 >800> b45 6038 t4I5l b51 4147 

Contemporary Comm Corp Stevens Radio Shack Sort Sector Marketing Omni System. Associates Bob". TV Computer Sen. ol Danbury 

S582 Coral" Wav 5b2 Nun Road 6250 Mtddle Belt Road P O Box h32 93 15 86th Drive P O Bo« W 

Haslclt Ml 48841 > Phoen:xville PA 19460 Garden Gtv Ml 48135 W Caldwell NJ 0700b Woodhaven NY 1 1421 Danbur,. C T Ob810 

1517)339 1028 • iSOO) 345 6279 1.31 3) 425 402(1 (201) 22b 9 185 (212)4412807 1 2031 744 551b 
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Centereach, New York 11720 
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(516) 981-6568 (Voice) 
(516) 588-5836 (Doto) 
MNET-70331, 105 
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Dealer Inquiries Welcome 

Add $2.00 S & H 
NYS res. add appr. tax 
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'THE SYSTEM' 




New TRS-80 Model III 

Model III. 48K 2 Siemans Disk Drive system, $1799.00. (plus 
shipping and handling) includes Dos Plus ill operating system 

ADD DISK DRIVES 

Internal Drive #1— Includes Micro Mainframes Controller board. 
Dual Drive Power Supply (for 2 internal disk drives), Mounting 
Hardware (for 2 internal disk drives). 40 Track Siemans Disk 
Drive. $629.95 

Internal Drive #2— Includes 40 Track Siemans Disk Drive 12 ms 
Disk Drive. $299.95 

Memory Upgrade. 150ns. Prime Chips, Add 16K. $44.95, Add 
32K. $79.95 

SPECIAL!!! 

Internal Drive #1 $629.95 

Internal Drive #2 $299.95 

32K RAM Memory Chips $79.00 

All Together "TT0t»*4^ 

Includes Complete Installation Instructions! $849.95 

External Drive #3— Includes case (as shown above, dual power 
supply, cable, mounting hardware for 2 external drives, $429.95 
External Drive #4— (same as Internal Drive #2) 40 track disk 
drive. $299.95 

External case (no drives)— Includes case, powers supply (for 2 
drives) cable, mounting hardware, (shown above) $179.95. 

SPECIAL!!! Dual External Drives & Case, $629.95 

NOTE: Dual Sided Drives— add $99.00 per drive. 
Flippy Drives (single sided only)— add $19.95 per drive 
Dos Plus III (3.3) Operating System, $99.95 alone, $49.95 with 
drive purchase. 



ACCESSORIES 
Put Your Printer on a Pedestal! 

This printer stand allows you to place a stack of paper under the 
printer for neat paper stacking— Available for most printers. 

(MX-80, MX-80F/T. LPIV, etc.) $24.95 

Larger stand (MX-100. Anadex, etc.) $29.95 

Extra Shelves (Shown Above) $9.95 

MODEL I DISK DRIVE CASES 

Clear Cases for your model I disk drives, complete with power 
supply for b-1/4 inch disk drives 

Single Drive Case $79.95 

Dual Drive Case $109.95 

Triple Drive Case $139.95 

Quad Drive Case $169.95 

Smoked Plexiglass Cases. Add $5.00/per drive. 

LYNX MODEMS 

The finest Auto Answer/Dial Modem on the market' This is a 
direct connect modem for your model I or III. Does not require an 
RS232-C interface in your computer! Season Special. $299 .■96. 

$249.95 
AMBER EASE 
Amber filter for your computer. Amber has been shown to be the 
easiest on the eyes Easy to install (Shown on computer above.) 
Season Special, All TRS-80 Models. $19.95 

TIC-TOC-80 MICROCLOCK 

A microclock for your TRS-80 Model I. Gives your computer the 
correct time and date on powerup Clock is maintained on a 
lithium battery for long life. Plugs onto the I/O Buss of the TRS-80 
Model I and does not require any modifications for most com- 
puters Complete with extensive documentation and a disk with 
utilities SPECIAL NOW AVAILABLE IN KIT FORM' 

Complete assembled and tested $99.95 

Kit with P/C board, parts and instructions $59.95 

Kit with P/C board, parts list and instructions $19.95 
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171 Hawkins Road 
Cenrereach. New York 11720 

(516) 961-8568 (Voice) Dealer Inquiries Welcome 
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INTERFACE 



A Basic program allowing you to reach out and touch someone. 



The Communicator 



Heathkit Assembly Language 
Programming Course 
The Heath Co. 
Benton Harbor, Ml 
$50 

Richard C. McGarvey 
221 Hirsch Field Dr. 
Williamsville, NY 14221 



After you have mastered Basic, you may 
decide to try a second language. The 
cheapest and most powerful language 
available to TRS-80 users is the Assembly 
language. 

Heathkit offers an 8080-based training 
course (Model 1 108) on Assembly program- 
ming for $50. It makes no assumptions 
about previous knowledge and starts with 
the absolute basics of digital computer pro- 
gramming. It is well arranged and takes 
everything in nice, easy steps. At times I 
found it too slow, and every now and then I 
felt insulted that I was taken for a dummy. 
But that is what I needed. With previous 
courses I lacked the opportunity to ask 
questions. The Heathkit course answered 
those questions before I had to ask them. 
This time I was really learning Assembly 
programming. 

The Course 

The Heathkit Assembly Language Pro- 
gramming Course is divided into 10 concise 
lessons. Chapter one is an introduction to 
digital computers. After completing chap- 
ter one you are started on your way to 
building a working Assembly program. 
Each chapter introduces new instructions, 
explains how they work and exactly what 
they can do. They are then incorporated in- 
to the program you are building. You are led 
along the logic trail and learn the mathe- 
146 • 80 Microcomputing, December 1981 



matics behind what is happening without 
being aware of it. 

This approach to Assembly program 
ming is what makes the course so suc- 
cessful. Along with the lessons is a 
workbook that is indispensible. The 
workbook lets you practice what you are 
learning. 

which contain information on number sys- 
tems and mnemonics. The appendices are 
great reference tools; I still use them 
regularly. 

Another important feature is the final ex- 
am. You might think that having the book 
would make the test easy, but that isn't the 
case. In fact, the test is written with the 
book in mind. The answers require that you 
know, in intimate detail, what is happening 
behind the instructions. 

The Lesson Plan 

Each individual lesson is arranged in the 
same format as the overall course. This for- 
mat aids the student in following the course 
and also provides a clear starting point 
after the student returns from a study 
break. 

Each lesson opens with a table of con- 
tents. It breaks the lesson down into ap- 
proximately nine major parts. The first part 
of each lesson is the introduction. This tells 
what the goal of the new lesson is and what 
you should have learned from the last les- 
son. It also previews the way in which the 
old material will be integrated into the new 
lesson. If there are any points of major in- 
terest that will be assumed in the new les- 
son, the introduction tells the student and 
directs him to the correct place in the 
course to get the brush-up he might need. 

The second part of the lesson is the unit 
objectives. This simple, but important, part 
of the lesson enumerates what you will 
learn in the coming lesson. Usually four or 



five points long, the unit objectives section 
tells you what the course considers most 
important. Invariably you will find items 
from the unit objectives section of one 
lesson listed as important points to know in 
the introduction section of the following 
lessons. 

Next comes the unit activity guide. This 
breaks the lesson into major topics and 
lists them in order. It also allows you to 
record the time you spend on each section. 
The unit activity guide is a great aid in keep- 
ing track of your progress and also in 
locating a starting point when you return 
from a study break. 

The meat of each lesson is the course 
material. Each lesson starts off slowly, with 
an explanation of what you are learning and 
how it is used. The lessons are designed to 
accept interaction with the student, so you 
can study at your computer. 

Any part of a lesson that introduces a 
new or exceptionally important concept is 
highlighted by its own subsection. A topic, 
such as flow-charting, can be introduced in 
the middle of a lesson without losing the 
thread of the lesson. This approach is used 
frequently in the course and is very well 
handled. Since computer programming re- 
quires so much background knowledge, the 
average student many become bored with 
other courses before he ever reaches the 
actual programming lessons. This is not the 
case here since the Heathkit course is de- 
signed to interject the background material 
when it is necessary to know it. 

In many sections, the student is asked to 
write the required program section without 
help from the course. The lesson will then 
show how the author would write the pro- 
gram, but stresses that as long as the stu- 
dent's program works it is correct. 

Not only is the program written from 
scratch, it is improved once it is working. 



r 
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MOD-II HARD DISKS 

AVAILABLE NOW 

WHY WAIT FOR RADIO SHACK 

Micro Mainframe now supports the Model-II* Computer system with our high quality add on 
Winchester disk systems. Each of the disk systems available offers the same high quality Error 
Correcting controllers used in our Model-I* and Model-Ill" systems. 

Features 

• 5 Megabyte to 120 Megabyte systems supported (formatted capacity), with total system 
capacities from 10 Megabytes to 480 Megabytes. 

• Oasis* operating system available (Model-II* only) 

• TRSDOS* compatible operating systems available (all models) 

• Model-I* and Model-Ill* unit prices include operating system. 

• Error Correction on all controllers for years of trouble free operation (up to four bit burst ). 

• Simple interface to the host computer through one of our host adapters. 

• Models available soon for Apple* and other computer systems. 

• Support for more Winchester systems than any other manufacturer. 

System Pricing 
Removable Cartridge Winchesters 

MMF-100R1 Model-I or Model-ID version $5350.00 

MMF-100R2 Model-II version $5395.00 

MMF-100A Apple Version $5350.00 

5 xMegabyte Desktop System 
Prices Reduced 

MMF-3H, 48K system w/Floppy backup $5995.00 

Other Systems 

10 Megabyte Fixed Hard-disk systems begin at $5295.00 

120 Megabyte Fixed Hard-disk systems begin at $7995.00 

Model-Ill* Floppy Controller w/installation kit $279.95 

Why become locked into a proprietary system from one manufacturer, when Micro Mainframe 
supports a total of 15 drive manufacturers. When a new drive becomes available, you need only to 
purchase that drive and controller to upgrade your system. The software and Host Adapter works 
with the new drive package, thus allowing minimum upgrade cost. 

Call for the location of your nearest Micro Mainframe Dealer. 
Dealer inquiries invited. 

MICROMAINFRAME ., 

714 Alhambra Blvd. • Sacramento. Ca 95816 
(916)447-7048 

• Oasis is a copyright of Phase ( me Systems 

• Model! I. II. i.- Ill are Tandy trademarks 

• Apple \s a hidematk of Apple G«p. 
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After the goal program is written and work- 
ing, the course puts on the bandages and 
gingerbread. Bandages correct program 
routines to make them more efficient, and 
rewrite routines are not duplicated but used 
over each time new parameters are en- 
countered. Gingerbread is the dressing up 
stage that makes the program more interac- 
tive with the computer operator. 

An added benefit is an excellent Assem- 
bly number base conversion program and a 
monitor program that simulates CPU opera- 
tion so you can see what is going on in the 
computer. You learn while writing and de- 
bugging these programs, and you continue 
to learn while using them. 

After the lesson content has been de- 
voured, there is a section of exercises. 
These are short problems that review mate- 
rial covered in the lesson just completed. If 
you cannot solve the exercise, you can go 
back to the lesson and get what you 



missed. Each exercise section has a cor- 
responding section in the workbook. If you 
successfully complete both exercise sec- 
tions, you know your stuff. 

The unit exams are short and to the point. 
If you completed the lesson and the exer- 
cises you will do just fine on the exam. You 
can always look back into the lesson if 
something is not clear. 

If all else fails, you can look at the unit ex- 
am answers. Once you see what you are do- 
ing wrong, the haze will clear. These are the 
answers to the questions any student 
would ask after taking the lesson. 

Each lesson has an appendix. This is usu- 
ally a listing of the program the student is 
working on as it should appear up to that 
point. The appendices also contain subrou- 
tines that are of interest in the program that 
is under construction. Use of the appen- 
dices allows the student to catch up on the 
program under construction if he has fallen 



behind. Also, after a break in the study rou- 
tine, a review of the appendix of the pro- 
ceeding lesson will help bring the student 
up to date. 

The Final Exam 

When you get the course you also receive 
a sealed final exam. It is tough. The final is 
as comprehensive as the course. Once you 
finish the exam you can mail it to Heathkit 
and have it scored. If you pass you receive 
Heathkit continuing education credits. 

How Long Does the Course Take 

I spent approximately 15 hours with the 
course before I felt I had completed it. 
Almost anyone could finish the course in 
less than 30 hours, most in less than 20. 
How much Assembly experience you take 
into the course will be a factor. The impor- 
tant thing is that you really don't have to 
rush. 



ACHB2- 

ADC M 

ADCr 

ADD M 

ADDr 

ADI(B2) 

ANA M 

ANAr 

ANKB2) 

CALL 

CQB2XB3) 

CM(B2KB3) 

CMA 

CMC 

CMPM 

CMPr 

CNQB2XB3) 

CNZ(B2XB3) 

CP(B2XB3) 

CPE(B2XB3) 

CPI(B2) 

CPCHB2XB3) 

CZ(B2XB3) 

DAA 

DADB 

DADD 

DADH 

DADSP 

DCBM 

DCRr 

DCXB 

DCXD 

DCXH 

DCXSP 

Dl 

El 

HALT 

IN<82) 

INRM 

INRf 

INXB 

INXD 

INX H 

INXSP 

JQB2XB3) 

JM(B2XB3) 

JMP(B2XB3) 

JNC(B2)(B3| 

JNZ(B2XB3) 

JP(B2XB3) 

JPE(B2XB3) 

JPO(B2XB3) 

J2(B2XB3) 

LDA(B2XB3) 

LDAXB 



Z-80 

ADCA.n 

ADC A.(HL) 

ADCA.r 

ADD A.(HL) 

ADD A.r 

ADD A.n 

AND(HL) 

ANDr 

ANDn 

CALL nn 

CALL C,nn 

CALL M.nn 

CPL 

CCF 

CP(HL) 

CPr 

CALL NC.nn 

CALL NZ.nn 

CALL P.nn 

CALL PE.nn 

CPn 

CALL PO.nn 

CALL Z.nn 

DAA 

ADO HL.BC 

ADD Hl.DE 

ADD HL.HL 

ADD HL.SP 

DEQHL) 

DECr 

DECBC 

DECDE 

DECHL 

DECSP 

Dl 

a 

HLT 

IN A,(n) 
INC (HL) 
INCr 
INCBC 
INCDE 
INCHL 
INCSP 
JP c.nn 
JPM.nn 
JPnn 
JPNC.nn 
JP NZ,nn 
JP P,nn 
JP PE.nn 
JP PO.NN 
JPZ,nn 
LD A,(nn) 
LD A.(BC) 



8080 



LDAX D 


LD A.(DE) 


LH LD(B2XB3) 


LD HL(nn) 


LXI B1B2XB3) 


LD BC.nn 


LDICXB2XB3) 


LDDE.nn 


LXI H(B2XB3) 


LD HL,nn 


LXI SP(B2XB3) 


LD SP.nn 


MOV M.r 


LD(HL).r 


MOV r.M 


LD r.(HL) 


MOV M.r2 


LD r.M 


MVI M 


LD(HU.n 


MVI r.(B2) 


IDr.n 


NOP 


NOP 


ORAM 


OR(HL) 


ORAr 


ORr 


ORI(B2) 


OR n 


OUT(B2) 


OUT(n).A 


PCHL 


JP(HL) 


POPB 


POPBC 


POPD 


POPDE 


POPH 


POPHL 


POPPSW 


POPAF 


PUSH B 


PUSH BC 


PUSH D 


PUSH DE 


PUSH H 


PUSH HL 


PUSH PSW 


PUSH AF 


RAL 


RLA 


RAR 


RRA 


RC 


RETC 


RET 


RET 


RLC 


RLCA 


RV 


RETM 


RNC 


RET NC 


RNZ 


RETNZ 


RP 


RETP 


RPE 


RETPE 


RPO 


RETPO 


RRC 


RRCA 


RST 


RSTP 


RZ 


RETZ 


SBBM 


SBC A,(HL) 


SBBr 


SBC A.r 


SHLD(B2XB3) 


LD(nn),HL 


SPHL 


LDSP.HL 


STA<B2XB3) 


LD(nn).A 


STAXB 


LD(BC).A 


ST AX D 


LD(DE),A 


STC 


SCF 


SUBM 


SUB(HL) 


SUBr 


SUBr 


SUI(B2) 


SUBn 


XCHG 


EX DE.HL 


XRAM 


XOR (HL) 


XRAr 


XORr 


XRI(B2) 


XORn 


XTHL 


EX(SP),HL 



Tab/e 1. 



Problems 

There are two major problems with the 
courses. Problem one is that the Heathkit 
course is not Z-80 Assembly rather, but 
8080/8085 Assembly. Z-80 is an upgraded 
version of 8080 and 8080 will work just fine 
on the Z-80 system. However, the 
mnemonics are different (i.e., 8080 JMP for 
jump is JP in Z-80), and a compiler that 
handles 8080 is necessary. 

If you have a disk Editor/Assembler (Ra- 
dio Shack Microsoft), you can compile 8080 
mnemonics with no problem. If not, it will be 
necessary to convert 8080 to corresponding 
Z-80 mnemonics before compiling. Table 1 
is a conversion chart. 

Once you have overcome the mnemonics 
problem, you may wish to use the greater- 
powered Z-80 instructions that do not have 
any corresponding 8080 instructions. When 
you understand Assembly instructions, you 
can simply add the new Z-80 mnemonics to 
your vocabulary and pick out the fine points 
of their operation from the numerous Z-80 
publications. 

Problem two is no more formidable than 
the first. Since you are likely to be working 
on a computer other than a Heathkit, you 
will find some incompatibilities. The course 
points out what they will be, but you must 
find the solutions. An example is video out- 
put. The Heathkit computer uses a port out- 
put for getting data on the screen. TRS-80 
uses an addressed screen (memory 
mapped). I refer you to 80 Microcomputing 
for the answer. If you look in back issues 
you will see articles about TRS-80 ROM sub- 
routines. If you set up the video output the 
same as in the lesson and then substitute a 
Call to a video subroutine (i.e.,33H) for the 
Out (port) instruction in the program, your 
problem is solved. 

You will run into this problem in other 
areas such as with keyboard scan, but the 
answer is the same. Simply use a ROM 
routine or write your own subroutine. 

Heathkit certainly deserves credit for 
publishing this fine course, but the real 
credit goes to the author, Williard I. Nico.B 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES 



FOR TRS-80* Model I 

CCI-100 5V4", 40 Track (102K) $299 

ADDON DRIVES FOR ZENITH Z-89 
CCI-189 5v 4 ",40Track(102K) $389 

Z-87 Dual 5% "system $995 



External card edge and power supply included. 90 day warranty/one 
year on power supply. 

CORVUS 5mg $3089 10 mg $4489 Mirror $699 

RAW DRIVES 8"SHUGART801R $399 

5V4-TANDON $CALL POWER SUPPLIES $CALL 




DISKETTES - box of 10 

5V4- Maxell $40 

8" Maxell $45 

PLASTIC FILE BOX- Holds 50 5 V* ' diskettes 

PLASTIC LIBRARY CASE 5V4" $3.00 

HEAD CLEANING DISKETTE 

FLOPPY SAVER $10.95 

16K RAM KITS 

200ns for TRS-80,* Apple II, (specify): 

COMPUTERS/SYSTEMS 

ALTOS ACS8000 Series 

ZENITH 48K, all-in-one computer 

ATARI 400 $ 359 

MATTEL INTELLIVISION 

APPLE PERIPHERALS 

TERMINALS 

ADDS Viewpoint 

ZENITH Z-19 

TELEVIDEO 910 $ 559 920C $729 

IBM 3101-10 



BASF/ Verbatim 
BASF/ Verbatim 

8' 

RINGS 



$26.95 
$36.00 
$19.00 
$ 4.00 
$25.00 
$ 6.95 



2 for $37 $19 

Jumpers $2.50 



800 



950 



$CALL 
$2149 
$ 789 
$ 259 

$CALL 



SCALL 
$ 725 
$ 929 

$1189 



S-100 CALIFORNIA COMPUTER SYSTEMS 



MAINFRAME 
64KRAM 



$349 
$569 



Z80CPU $ 239 

FLOPPY DISC CNTRL $ 339 



PRINTERS 




NEC SPINWRITER 
7710 R.O. Par 
7710 R.O. Par w/tractor 
7720 KSR w/tractor 
7730RO.Ser 
7730 R.O. Ser w/tractor 
NEW 3500 Series 
MX-80 MX-80FT 



EPSON MX-70 

PAPER TIGER 

IDS 445 Graphics & 2K buffer 

IDS 460 Graphics & 2K buffer 

IDS 560 Graphics 

ACCESSORIES 



ANADEX 

OKIDATA 
Microline 80 
Microline 82 
Microline 83 



DP-8000 $849 



$2395 
$2595 
$2795 
$2395 
$2595 
$CALL 
MX100 $CALL 



$ 639 
$ 799 

$1049 

$CALL 

$1389 



DP-9500/01 



Friction & pin feed 
Friction & pin feed 
120 cps, uses up to 15" paper 
Call for new Microline series! 
CENTRONICS 739, new model with graphics 
C. ITOH 
Starwriter I 
Starwriter I 
Starwriter I 
Starwriter I 
AXIOM 
DATA SOUTH 

MONITORS 

BELL& HOWELL 
LEEDEX 



25 cps, parallel interface 
25 cps. serial interface 
45 cps, parallel interface 
45 cps, serial interface 
GP-80M 
180 cps 

9"B&W BHD911 



12" B& W 
13" Color 
9" B & W 
12" B& W 
13" Color 



$129 
$329 
$149 
$219 
$349 



$CALL 
$CALL 
$CALL 

$ 739 

$1525 
$1620 
$1950 

$2075 
$ 319 

$CALL 

$155 

12" Green Screen $155 

12" Green Screen $238 
13" Color $399 

12" Green Screen $129 



SANYO 



ZENITH 

TELECOMMUNICATIONS 

PRENTICE STAR MODEM 1 year guarantee $125 
UNIVERSAL DATA SYSTEMS UDS103LP $149 UDS103JP $215 

NOVATION CAT $139 D-CAT $149 

AUTO-CAT $199 APPLE CAT II $339 

D.C. HAYES SMART/STACK MODEM $235 

MICRO-MODEM II $295 

CCI Telnet Communications Package $1 35 

APPLE ACCESSORIES AND SOFTWARE 



INTEGRATED SYSTEM W/INTERNAL CABLES, TESTED $1975 

2P + 2SI/0 $ 269 

4 PORT SERIAL I/O $ 249 

4 PORT PARALLEL I/O $ 179 

CABLES $CALL 

CASIO CALCULATORS 

POCKET COMPUTER FX702 $199.00 

DESK PRINTER /CALCULATOR FR100 $ 79.95 

SCIENTIFIC CALCULATOR FX8100 $ 49.95 

GAME WATCH CA90 Plastic $ 49.95 

GAME WATCH CA901 Steel $ 69.95 

SPORT WATCH AX210 Calendar $59.95 

BUSINESS SOFTWARE 

WORDSTAR for Apple II $ 329 

WORDSTAR for Zenith Z89 $ 329 

For fast delivery, send certified checks, money orders or call to arrange 
to three weeks to clear. All prices are mail order only and are subject 



Mfr. by Microsoft - Mountain Computers 
VISICALC $159.00 

VISITERM $119.00 

Z 80 SOFTCARD $259.00 

KEYBOARD ENHANCER $110.00 
APPLE JOYSTICK $ 49.00 

SUP-RMOD $ 25.00 

APPLE CARDS $ CALL 

SUPERCALC $199.00 

CPS MULTIFUNCTION CARD 

ENTERTAINMENT 

Mfr by On Line 



Personal Software 
$159.00 



Videx - CCS 
VISIDEX 
VISIPLOT $139.00 

VIDEX BOARD $249.00 

16KCARD $159.00 

SUPRFAN $ 39.00 

CCS CARDS $CALL 

ASCII EXPRESS $ 59.00 

ALF9 VOICE BOARD $149.00 
$199.00 



Broderbund 



Sinus 



California Pacific 



FLIGHT SIMULATOR $29.00 

WIZARD & PRINCESS $28.00 

MYSTERY HOUSE $24.00 

HIRES FOOTBALL $35.00 

RASTER BLASTER $25.95 

SPACE EGGS $17.95 



SARGON II 
ABM 

GORGON 
MICROPAINTER 
APPLE PANIC 
MATTEL GAMES 



$29.00 
$21.95 
$34.95 
$29.00 
$27.95 
$27.00 



direct bank wire transfers. Personal or company checks require two 
to change without notice. Call for shipping charges. 



dealer (national/international) inquiries invited Send for FREE Catalogue 



The 



TO ORDER CALL TOLL FREE 1-800 343 6522 

TWX: 710-348-1796 Massachusetts Residents call 617/242-3361 



5 Dexter Row, Dept. M12M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon.-Fri. (Sat. till 5) 

■ See List ol Advertisers on page 418 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/' Digital Research 



^^^^M^ 


MB 


[master charge 


I ViSA 
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APPLICATION 



Take your pocket rocket for a spin down the vegetable aisle. 



Sharp Marketing 



Walter J. Atkins, Jr., Ph.D. 

Qtrs 441 OA 

USAF Academy, CO 80840 



The TRS-80 Pocket Computer has ush- 
ered in a new era in personal com- 
puting. This is the first full feature com- 
puter that can be used almost anywhere. 
I designed this program to simplify the 
weekly trip to the supermarket. The com- 
puter is used as a programmable calcu- 
lator; you may total purchases and auto- 
matically add sales tax. An added feature 



is a comparison shopping function that 
allows comparison of products on a price- 
per-unit basis. 

The Program 

The program is 51 lines long and uses a 
little more than two-thirds of the Pocket 
Computer's memory. It was designed in 
modules for easy debugging. 

Lines 10-60 are the main body of the 
program. In line 25 numerical values were 
assigned to the letters C, T, and H so they 
may be used to choose different program 
functions. These letters can be entered at 
any time the computer prompts you for the 
amount. Entering H causes a branch to the 
instruction display module. Pressing C 
causes a branch to the comparison shop- 



Program Listing 

:R£M SHOPPERHELPER 

:REM *CGPYRIGHTEC'1961* 

:REM *U. J. ATKINS* 

: PAUSE" SHOPPER" : C— 1 234567 : 7 »- 7654321 1 N»0 : H— 1 111 1 1 

;IF S.'OPP I NT "CURRENT TOTAL IS «";S; INPUT'CLEAR TOTAL ''Y.-'N; '".1$ 

;1F I*-"Y-LET S»0:O-0: I**"N" 

:PAUSE" "; PAUSE "FOR INSTRUCTIONS" .PAUSE "TYPE H" 

: PAUSE "FOR THE AMOUNT." 

; I NF1JT" AMOUNT ■> ? *";N:N-N-'100: IF N— 1111.11 THEN 700 

:IF N—12345.67GOSUB 500: GOTO 50 

:IF N=-76543.21 GOSUB 400:G0TO 50 

:GOSUB 200 

:G0T0 50 
200 ;REM + ADC-MODULE* 
210 ;S-S*N;IF N>0 LET Q-Q+l 
220 :1F N<0 LET Q-Q-l 
230 ; RETURN 
400 :REM •SUN* 

:P»0: INPUT "ANY SALES TAX CY/MJ? ";I* 

i IF I»--Y" THEN 450 



410 
420 



Program continues 



ping subprogram. Pressing T will cause 
the program to go to the totaling routine, 
where either a subtotal or a final total com- 
plete with sales tax added can be 
displayed. 

Lines 200-230 are the add module. This 
part of the program will add the amount 
entered to the subtotal and count the 
number of items that have been entered. 

Lines 400-490 are the sum module. This 
part of the program will display a subtotal 
or a final total including sales tax. It also 
gives the user the option of clearing the 
total to zero at any time. 

Lines 500-570 are the comparison shop- 
ping module. This module allows the user 
to compare goods on a cost-per-unit basis. 

Lines 600-620 are used to count the 
number of items that have been entered. 

Lines 700-760 are the program instruc- 
tions which are displayed whenever the H 
option is chosen. 

Lines 800-850 are used to find the total 
number of ounces to be used in computing 
the price per unit. 

Program Use 

The program is essentially self-prompt- 
ing. Whenever it asks for the Amount, any of 
the program options may be chosen. It is 
also possible to enter an operation. For ex- 
ample, if you buy four cans of peas for 22 
cents each, you can enter the amount as 4 * 
22 and the Pocket Computer will compute 
the product before adding it to the total. I 
have designed the program to accept in- 
puts in cents; this saves the trouble of 
entering a decimal point. You simply have 
to enter an amount and press Enter to have 
it added to the total. If the amount you enter 
is a negative number, it will be subtracted 
from the total and the number of items in 
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NEC Color Monitor 
JC 1201 $319 



NEC Friction Tractor Printer 
100 CPS (Graphics, Bi-directional) $635 



INTERTEC SUPERBRAIN 64K RAM S2799 

QD SUPERBRAIN S2999 

NEC 5510 SPINWRITER (7710) S2345 

NEC 5520 SPINWRITER (7720) $2695 

NEC 5530 SPINWRITER (7730) $2345 

NEC 12" MONITOR $ 189 

NEC COLOR 12' MONITOR $ 339 
NEC PC 8023 Printer 

100 CPS Tractor & Friction $639 

OKIDATA MICROLINE-80 $ 379 

OKIDATA MICROLINE-82A $529 

OKIDATA MICROLINE-83A $749 

DIABLO 630 $1995 

WE CARRY THE COMPLETE 



APPLE II PLUS 48K $1139 CBM 8032 COMPUTER $1149 

APPLE DISK w3 3 DOS Controller $525 CBM 8050 DISK DRIVE $1349 

APPLE DISK w/o Controller $449 CBM 4032 COMPUTER $1029 

EPSON MX-80 $469 CBM 4040 DISK DRIVE 

Interfaces 

IEEE $55 TRS-80 CABLE $35 

APPLE INTERFACE & CABLE $90 

RS-232 $70 

HAZELTINE 1420 $ 799 

NORTHSTAR HORIZON II 32K QD $2925 3" Color Monitor 

ANADEX DP-9500'9501 $1199 

TELEVIDE0 912C $699 for Atari $ 79 

TELEVIDEO920C $729 MICROTEK 32K $149 

TELEVIDEO950 $ 929 

LINE OF ATARI SOFTWARE, PERIPHERALS AND ACCESSORIES. 



CBM 8032 COMPUTER 
CBM 8050 DISK DRIVE 
CBM 4032 COMPUTER 
CBM 4040 DISK DRIVE 
CBM 4022 
CBM VIC-20 
LEEDEX AMDEK 100 
LEEDEX.AMDEK 100G 
LEEDEX/AMDEK COLOR-1 

13" Color Monitor 
MICROTEK 16K RAM BOARD 

for Atari 
MICROTEK 32K 



649 
268 

139 
160 




EPSON MX-80 



DIAB4 630 



S1995 



we Accept C.O.D.'s • Stock Shipments Same Day or Next • No Surcharge for credit Cards • All 
Equipment Factory Fresh w/MFT warranty • we carry the complete line of Personal Software. 



EAST COAST 
1-800-556-7586 

OMEGA SALES CO. 

12 Meeting St 

Cumberland. Rl 02864 

1-401-722-1027 



OMECA SALES CO. 



WEST COAST 
1-800-235-3581 

OMEGA SALES CO 

3533 Old Conejo Rd #102 

Newbury Park. CA 91320 

1 805 499-3678 

CA TOLL FREE 1 800-322-1873 



^389 



• See Listol Advertisers on page 4 18 
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"... a comparison shopping function. . . 
allows comparison of products 
on a price-per-unit basis. " 



c 


— Flag to select comparison shopping routine 


D 


— Number of ounces 


H 


— Flag to select instructions 


L 


— Number of pounds 


N 


— Cost of an item in cents 


P 


— Sales tax percentage 





— Number of Items entered 


S 


— Total cost of items entered 


T 


— Flag to select totaling routine 


2 


— Price per ounce 


A$ 


— Unit of measure (pound or ounce) 


1$ 


— Yes or no response 




Variable Table 



the item count will be decreased by one. 

Also included in the program is the op- 
tion of using the Pocket Computer's per- 
manent memory. This means you can inter- 
rupt your shopping, turn the computer off, 
and still maintain the total cost of items 
entered. When you again turn the com- 
puter on, the program will display the cur- 
rent total and ask if you want to clear that 
total to zero. ■ 



Program continued 








430 


INPUT "WHAT PERCENT a.'? ";P 




440 


:P»P'100 




450 


S-S-KS*P> 




460 


;PRINT"TOTAL »*", USING "»«••. tt" S 




4?0 


■INPUT "CLEW? TOTAL<Y/N>? ";M 




460 


:1F I*«"Y" LET 5"0iO»0 




4?G 


•oOSUB 600: RETURN 




5 Of, 


:REM "COMPARISON* 




511 


: INPUT'MJHAT PRICE * " N:N-N-100 




320 


: INPUT" IS UNIT LB OR 02 ? " . M 




530 


(IF ft*«"LB" oOSUB 800 




540 


;IF A**"02" INPUT"H0U MANY 02 ? \D 




550 


|2>N/D 




560 


:PRINT"PRICE'OZ=" . USING "••# . »•" 2 




570 


;N"0:RETURN 




600 


:REM ♦1TENC0UNT* 




610 


: PAUSE" NUMBER OF ITEMS'" ;Q 




620 


: RETURN 




7 00 


;REM ♦ INSTRUCT IONS* 




710 


:PAUSE"T0 ADD AN AMOUNT "; PAUSE " TYPE THE AMOUNT" 




720 


: PAUSE" IN CENTS, " 




73 


:PAUSE"E.G. $12.95 IS" : PAUSE "ENTERED AS 1295" 




740 


1 PAUSE "TO DISPLAY TOTAL ": PAUSE " ENTER T" 




750 


1 PAUSE "TO DO COST COMPARE" : PAUSE "TYPE C" 




760 


:>30TO 30 




BOO 


:REM+POUNDSCUNCES* 




310 


: PAUSE "YOU MAY ENTER LB .": PAUSE " AND 02." 




820 


:INPUT"HOU MANY LBS. "' ".L 




630 


; INPUT "HOW MAN*!' 02 . ? " Y 




840 


:D-L*16*D 




-250 


: RETURN 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NfcW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES II 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTER IO THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 'THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEEDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 
THE UPI-J IS ALREADY IN THE TRS80 ROM! SCRIPSIT, PENCIL. 
RSM 2. ST80D, NEWDOS. FORTRAN. BASIC etc .ill work a*. .1 a 
parallel "jrinter was in use 

The UPI-3 is completely self contained and ready to use. A 34 
conductor edge card connector plugs onto the parallel printer 
port of the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial printer. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C and 20 MA. loop formats. 



bd 



SPEEDWAY ELECTRONICS 

Division <jl Binary Devices 

1 1 560 TIMBERLAKE LANE 
NOBLESVIllE, IN 46060 
(317)842-5020 

TRS 80 is a trademark nt landv 



• 275 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPI-2 for TRS80 Model II 

UPI-3 for TRS80 Model I or 3 

UPI-4 for use with Model 1 and RS Printer 

Interface Cable (no expansion interface required) 

Manual only (may be applied to order) 

Ten day return privilege — 90 day warranty 

Shipping and Handling on all orders 

Specify BAUD rate 50-9600 BAUD 



NOW 

AVAILABLE 
FOR 
MODEL II 



$149.95 
$149.95 

$159.95 
$ 5.00 

$ 4.00 
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PROFESSIONAL 




INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or 

For four successive years! 



Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day in 
accounting offices nationwide. 

Now we introduce! 

SYSTEM THREE! 

SYSTEM THREE is an improved, still more interactive version — Totals W-2's and 
computes FICA overpayment — Includes "QWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — More! 

And, as always— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax — Earned Income Credit — Maximum/Minimum Tax — Least Tax 
Method — All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

35-page Descriptive Manual - $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES, 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 635-4055 

"TRS-80 is a trademark of Tandy Corp 



' See List ol Advertisers on page 418 
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EDUCATION 



cfMD 



LOAD 80 



Practice your openings for winning form. 



The Chess Tutor 



BLACK 



8 


















7 


















6 


















5 


















4 


















3 
















2 


















1 

















B 



D 
WHITE 



H 



Robert J. Dowd 
326 Porter Drive 
Lynn Haven, FL 32444 

Opening theory is one of the funda- 
mentals of good chess, and many 
books have been written on the subject. 
However, if you are a casual player like me, 
you may find it difficult to stay sharp on 
your openings. 

I find studying books not much fun so I 
wrote a program for my TRS-80 called 
"Chess Tutor". I designed the program to 
let me practice any of several popular open- 
ings in a true game setting. I can play either 
white or black while Chess Tutor takes the 
opposite side and checks my moves for cor- 
rectness, requesting a new move if mine is 
in error. Chess Tutor also displays the 
board and all moves graphically on the 
screen. 

There are seven opening variations from 




Fig. 1. Chess Notation. 
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the book Winning Chess Openings by Fred 
Reinfeld used in Chess Tutor. They are Ruy 
Lopez, Sicilian Defense, French Defense, 
Caro-Kann Defense, Alekhine's Defense, 
Queen's Gambit Declined and Nimzo- 
Indian Defense. However, due to the way 
Chess Tutor is designed, other openings or 
variations (even complete games) could just 
as easily be used. 

Moves are entered and displayed using a 
fairly standard algebraic notation for micro- 
computer chess. The files are represented 
by the numbers one to eight and the ranks 
by the letters A to H (see Fig. 1). For exam- 
ple, the opening move for white in Ruy 
Lopez (P-K4) would be entered E2-E4. You 
enter all moves this way except castling, 
entered 0-0 on the king's side and 0-0-0 on 
the queen's side. The design of the chess 
pieces is the same as used by Hayden's 
SARGON chess program, with the center of 
the piece indicating its actual color (see 
Fig. 2). 

Chess Tutor begins by asking you to 
select your color and the opening you want 
to practice. Once these have been ac- 
cepted, the board is set up and displayed on 
the screen. In the upper left of the screen 
are the words You and Me. When it's your 
turn to move, an asterisk is displayed next 
to You. 

It is unnecessary to use Enter when 
entering your move, except for king-side 
castling. Chess Tutor does not recognize 
the backspace and erase character. If you 
make a mistake, complete the entry by 
pressing the Enter key. Chess Tutor will res- 
pond with Entry Error and Try Again. Then 
reenter your move. 

Once your move has been accepted, 
Chess Tutor evaluates it. If it's the correct 
move, the program updates the board 
display and makes its next move. If you 
made an incorrect move, Chess Tutor 
displays "Not the best" and "Try again". 
After three incorrect choices for the same 
move, Chess Tutor tells you the correct 
move. The game then continues from there. 

Since Chess Tutor requires almost all of 
a 16K Level II machine (see Program 
Listing) spaces and remark statements 
have been removed from the program. 
Therefore the following program notes are 
provided for clarification: 
• Variables — 

P— player's color (0 = white, 1 = black). 

YM— player's move flag (1 = player's 
turn). 

MV— move number. 

VM.VN— used to calculate where a piece 



"... if you are a casual 

piayer like me, you may 

find it difficult to stay sharp 

on your openings. " 



is to be displayed. 

CP— position to display current move 
notation. 

TY— counts number of player's incorrect 



guesses per move. 

YM$— holds the player's move entry. 

A$— used to hold each character of 
player's input. 






Black Pav 




Fig. 2. Chess Piece Design. 



Program Listing. 



10 DEFINTA-Z:UIMBSl8,8) ,TSI8,8) ,P9(25,11) ,N9S|7) ,CS$(3) 

20 CLS 

30 N9S(1)-"RUY LOPEZ":N9$(2) ""SICILIAN DEI" : N9$ ( J )- "FRENCH DBF": 

N9S(4) ="CARO-KANN PEF" : N9 S ( 5) - " ALEKHINE ' S [IFF" :N9$ (6) -"QN ' S GAHB 

IT DEC":N9S( /) '"NIMZO-INU DBF" 

40 PRINTTABl 29) "CHESS TUTOR" : PR I NT : PR INT 

50 GS = 5:CP = 132:C5$101="":C5$U) ■ •♦■:C5Sl2)«"l":CSl3)="?" 

61 INPUT'DO YOU WANT WHITE OR BLACK IK,'B)":PS 

7 IFLEFTStPS.l) ="W"THENP=0ELSEI FLEFTS ( PS , 1 ) - "B'THENP* 1ELSE60 

80 PRINT'CHOOSE AN OPENING" : FORI = 1TC7 : PKI N7I : N9S 1 I I : NEXT 

90 INPUTT0: IFT0vlORT0"-7THENCLS:GOTO80 

100 CLS: IFP-0THENPRINT<?e," YOU ME " ; EI.SEPRI NT*<0 , " ME 

YOU"; 
110 PRINTi'64,STR1NGS115,131! ; 

120 CT=1:F0RI-1T08:F0RJ-1T08:TS( I, J) -CT:BT-CT: I FCT- 1THENCT-CT-1E 
LSEC7-CT+1 

130 NEXTJ:CT-BT:NEXTI 
140 IFF=0THENYM-1 
150 MV=C 

160 FORI-1TOB:FORJ-1T08:READBS(I,J) :NEXTJ,I 
170 DATA20,9,22,1 1,24, 10,21,8,7, 19, 7,19, 7, 19,7, 19 
180 DATA2 5, 0,2 5, 0,25, 0,2 5, 0,0,2'), 0,25, 0,2 5, 0,25 
190 DATA2 5, 0,2 5, 0,25, 0,2 5, 0,0, 2 5, 0,2 5, 0,25,0,25 
200 DATA13.1 ,13, 1,13, 1,13, 1,2, 15, 4, 17, 6, 16, 3, 14 
210 FORI-0TO25:FORJ = 0TO11:READP9U,J) :NEXTJ,I 
220 DATA1 91, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191 
230 DATA1 91, 191, 143, 17 5, 191, 191, 191, 183, 176, 17 8, 191 ,191 
240 DATA1 91, 14 7, 135, 139,163, 191, 191 ,177,176,176,178,191 
250 DATA191, 143, 131, 131, 131, 191, 19 1,1 91, 177,17 6,184,\9i 
260 DATA191,159,131,139,191,191,191 ,183, 176, 178,' 91, 191 
270 DATA191 , 154, 129, 139, 186, 191, 191, 179, 176, 178, ie7, 191 
280 DATA1 59, 14 3, 14 5, 15 5, 143, 19 1,1 8 1,1 76, 17 6,1' 6, 176,191 
290 DATA1 91, 191, 143, 17 5, 191, 19 1,1 9 1,1 83, 17 8, 17 8, 1 « 1,1 91 
3*0 DATA191 ,147,167,155,163,191,191,177,179,179,178,191 
310 DATA1 9 1,14 3, 131, 17 9, 13 1,1 9 1,1 9 1,1 91, 17 7, 17 9, 184, 191 
320 DATA191, 159, 179, 155, 191, 191, 191, 183, 17 8, 17 8, 191, 191 
330 DATA191, 154, 185, 155, 186, 191, 191, 17 9, 17 8, 17 8, 187, 191 
340 DATA159,14 3,14 5,155,143,191 ,181,176,164,172,176,191 
350 DATA1 28, 1 28, 1 7 6, 14 4, 12B, 128, 12 8, 136, 14 1,1 4 1,1 2 8, 128 
360 DATA1 28, 17 2, 152, 164, 156, 128, 128, 142, 140, 14 0,1 4 1,1 28 
370 DATA1 28, 176, 188, 140, 188, 128, 128, 128, 142, 140,1 15, 12B 
380 DATA128, 160, 140,164, 128, 128, 128, 136, 141, 141 ,128,128 
390 DATA12B, 165, 134, 164, 133, 128 ,128, 140, 141, 141 ,132,128 
400 DATA160, 176, 174, 164, 176 ,128, 138, 143, 140, 14 2, 14 3, 128 
410 DATA1 28, 128, 17 6, 14 4, 128, 128, 128, 136, 14 3, 14 1,1 2 8, 128 
420 DATA1 28, 172, 184, 180, 156, 128, 128, 142, 143, 143, 141, 128 
430 DA TA1 28, 1 7 6, IBB, 18 8, 188, 128, 128, 128, 14 2, 14 3, 13 5, 128 
440 DATA128, 160, 188, 180, 128,128, 128, 136, 143, 14 1,1 28, 128 
450 DATA1 28, 165, 190, 180, 13 3, 128, 128, 140, 14 3, 14 1,1 3 2, 128 
460 DATA1 60, 176, 174, 164, 176, 128, 13 8, 143, 143, 14 3, 143,128 
470 DATA128,128,12B,12B,128,128,128,128,12B,128,128,128 
480 VM-15376:VN-0 

490 FORI -8T01STEP-1:F0RJ*1T08: FORK -0TO5 

500 POKEVM»VN«K,P9(BS( I ,J) ,K) : POKEVM*VK*K*64 ,P9(BS( I ,J) ,K+6) 
510 NEXTK:VN-VN*6:NEXTJ:VM-VH« 128 :VN-0: NEXT! 
520 VH-15376:FORI-1TOT0 
530 READCI 
540 IFCIO99THEN530 

550 NEXTI:PRINT0CP-4,N9$(T0) ;:GOSUB1110 
560 IFYHO1THEN930 

570 IFYM-lTHENIFP-0PRINT00,"*"jELSEPRINT010,"«"- 

580 TY-0:CA=0 

590 IFP-0GOSUB1110 



Program continues 
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for the TOS-80 from tVfcro-Mega 



The Original GREEN SCREEN 




The eyepieasmg Green Screen fits over the front of your 
TRS-80 Video Display ana gives you improved contrast wtt* 
reduced glare You get br. • >us green characters and 

graphics (ike those featured by more expensive CRT units 
Don't contuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted m a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive st"ps 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen 'squares 
off ' the face of your video display and great fy improves the 
overall appearance of your system. 

(Specify whether for Model I or Model Hit 

THE GREEN-SCREEN $1395 

Add $1 50 for postage and handling. 



THE ULTIMATE STAR TREK PACKAGE 




*$$ 



Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge, in addition to the program cassette, it includes 
comprehensive instructions, a pad oi 'Voyage Log ' record 
sheets, and a free-standing "Torpedo and Maneuvering 
Chart " 

The package is built around the latest version of Lance 
Mickius incomparable Star Trek III. a 13,000 byte program 
w.tn a host of subtle and imaginative features, which m 
elude numerous dynamic and spectacular graphic displays 
Star Tre* til puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards 
including hostile Klmgons. pulsars, and black holes You 
have at your disposal scanners, various weapons and 
defense systems onboard computers, and a loyal crew 
(You will need them all to survive the Khngons , 
Your mission is to rid the region of KHngons and to locate 
five inhabitable planets, all within 300 stardays. before re- 
' gto Star Fleet Headquarters where your overall etfec 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The Voyage Log' sheets will guide your 
strategy and the 'Torpedo and Maneuvering Chart' will 
give you a vital edge in combat (When you engage three 
Klmgon ships you can't afford to miss.) 



STAh Th£K PACKAGE 'C l*V% 
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Piogtarr. continueo 

600 I FTY - BTHES I FP ■ t7K tXW -XV *1 

610 PRINTKP-4,XVj 

620 YXS-"":FOP.!»0TC4 

630 AS=ISKEVS:lFAS«**7K£lS63f 

635 IFASC,AS!»13THF.NIFYXS^""THES66. , E:.SE630 

640 IFASC'.AS: v32T!iLS6 3BE:.SE?S:NT -CP + I * ,r«t',AS; 

659 YMS=YXS+AS:NEXTI 

661 IFYMS="0-O'0RYHS-"0 — 0-0"THENCA«l :GOTO740 

678 IFLENiYM$)»5 AND MIDS ( YHS , 3 , 1 ) »1'-*THEN710 

6 80 GCSUB1110 : FRI STi>CP-4 , "ENTRY ERROR" ; : C-OSVBlliB : PR] HT0CP-4 , "TR 
Y AGAIN" ; : IFTY'0AKDP-»0HV-MV-1 

690 IFP-lGOSL'BlllB 

700 COTO590 

710 C1-ASC(KIDS(YMS,1 ,11 )-64:Rl=ASC(MtDS(YMS,2,l) ! -48 

720 C2-ASC(NIDS(YNS,4,1) ) -64 : R2'ASC (MIDS i YMS, 5 , 1) )-4B 

7)9 IFC1<10RC1^80RRU!ORR1 S SORC2% IOHC2^BORR2xlORR2^KTHKNCOSlBll 1 

fl : GOTO 6 80 

740 IFTY=0TKENREATPI.OJ,«5,CD,RD,C: 

7 50 IFCA=CTHES820 
760 IFCIO44THES7 90 

770 IFYX S\ "• "O-O-O" TV. LNGOS'JB 1 i 1 C : GOTO d 3 L* 

780 GOSCE990:COTO93f 

790 IFCI^^r5THEt;COS;■B::l0:GCTC83i , 

600 COSLB1 050. -00709 30 

810 XFCX».44PRIVT«C?+5< !?•&) ,C5S;CI! : :GOTOa""CELSE67B 

820 IFCl-CSA?OC2-CDA!:rRl=R£A?iDR2=RDT!IESBlOELSEGCSUB1110 

830 PR I ST iCF- 4, "NOT THE BEST" ; : IFTY-2THES840ELSEGCSIB1 1 11: PRINT 2 

CP-4,"TRY AGAIN"; :TV«TY+1 : IFP=1GCSIB1110:GOTO590ELSE590 

840 GOSL'Bl 110: PRINT0CP, "BETTER IS" ; :GOSUB1118: PRINT?CP-4 ,HVI ; 

859 IFCI\44THENC3«CIELSEC3»0 

869 PRINTeCP+(P*6) ,CHRS(CS+64) +CHRS(RS+46) +"-"+CHRS(CD+64) +CHRS( 

RD+48)+C5S(C3); 

879 IFTS(RS,CS)-0THENNV-0SLSENV-25 

880 FORI"0TO5:POKEVK+((8-RS) *i28! ♦ ( (CS-1) *6) +I,P9;NV,I) : 
890 POKEVH+((8-RS)*128) +((CS-1>*6) +1+64 ,P9(NV, 1*6) 

909 POKEVM+((8-RD)*128)+(lCl>-l)*6)+I,P9lPI+(TS(RD,CD)*12),I) 

919 POKEVH+((6-RD)«128) + <(CO-l> *6) +I+64,P9(PI+(TS(RD,CO) *12) ,1+6 
) sNEXTI 

920 GOSUB1150:IFYK-0THENYK=1:GOTC570 

939 PRINTS," ";:PR1KT*10," " } : YM»0:REACPI ,CS,RS,CD,RD,CI 

940 IFP=1THENGOSUB111O:HV=HV+1:PRIST0CP-4,MV; 

950 IFCI«44PRINT*CP+6-(P*6) , "O-O-O" ; :GOSUB999 :GOT092B 

969 lPCI-55PRIKT0CP+6-(P , 6)," O-O "; :GOSUB10S0:GOTO920 

970 IFCI<.44THENC3-CIELSEC3«0 

960 PRINT#CP+6-(P*6),CHRSlCS+64)+CHRS(RS+48)+"-*+CHRS(CD+64)+CHR 

$(RD+48)+C5S(C3);:FORI«lTO1060:NEXT:COTO870 

99B IFYM-1THEKIFP-OTHEN1010F.LSE1830 

1000 IFP-0THEK1O30ELSE1010 

1018 FORII=0TOS:?OKE16272+II,12a:POKE16336+II,12B:POKE16284+II,P 

9124,11) :POKE16348+lI,P9(24,II+6) 

1628 POKE16290+II,P9I6,I1) :POKE16354+II ,P9 ( 6,11+6) :P0KE16296+I1 , 

128:PCJKE16368+lI,128iNEXTII:RETURN 

1839 FORI I-0TO5:PCKE1S376+II, 191 :POKE15440+II, 191 :P0KE15388+1I ,P 

9(6,11) iPOKE15452+i:,P9(6,II+6) 

1040 POKE15394+II,P9(14,II) :POKE1545B+II,P9(14,II+6> sPOKE15480+I 

I,191:POKE15464+II,191iNEXTII:RETURN 

1058 IFYH^lTHfNIFP»BTHEN1870ELSE1090 

I860 IFP--0THEN1B9OELSE1870 

1879 FORII^0TO5:POKE16296+II,12fl:POKE1636O+lI,128:POKE16302+II,P 

9(6,11) :POKE16366+II,P9!6,II+6) 

1060 COKE1630B+II,P9(24,II) :POKE16372 + I I ,P9(24, 11+61 :POKE16314+I 

1,191 :POKE1637«+II, 191: NEXTII: RETURN 

1990 FORI I-BTO5:P0KE154BB+II, 191 :POKE15464+II, 191 :POKE15486+II,P 

9(14,11) : POKE15470+I I ,P9( 14,11+6) 

1100 POKE15412+II.P9(6,U) :POKK15476 + II ,P9(6,II+6) :POKE1541 S+II , 

1 28 :POKE15 482+1 1,1 28 :NEXTIZ: RETURN 

1110 CP=CP+64 

1120 1FCP<«974RETUR» 

1139 FORII =256T0969STEP64:PRIVmi,STRINGS(15,32) ; :NEXT 

1148 CP-260:RETURN 

1150 IFCK66RETURN 

1160 1FCI-99THEN1229 

1178 IFCI*-88THENCIS-'RESIGN* 

1189 IFCI=77THENCI$«"HATE" 

1198 :FCI$«fc6THENCI5-"DRAWN* 

1280 IFYH=lTHENIFP«0THENPRINTeCP,CIS;ELSEPRINT9CP+6,CIJ; 

1219 IFYM=BTHENIFP"BTHENPRINT§CP+6,CI5;ELSEPRINT(»CP,CI$[ 

1220 GOSUB1110:PRINT0CP-4,"CAHE OVER! ! "; :GOSUBlllB 
1230 PRI!fr?CP-4,"PLAY AGAIN" i 

1240 INPUTZS:IFLEFTS(Z$,1)«*S"THENEND 

1250 IFLEFTS(Z$,1)»"Y"THENRUN 

1260 GOTO1220 

1270 DATA99 

1280 DATA7, 5, 2, 5, 4, 8,1, 5 ,7, 5, 5, 8, 9, 7, 1,6, 3 ,0,3,2,9, 3, 6,0 

1299 DATA1B, 6, 1,2, 5, 0,1, 1,7, 1,6, 0,1 0,2 ,5, 1,4, 0,3, 7, 8, 6, 6,0 

1308 DATAC, 8, 0,0, 0,55, 4, 6, 8,5,7,0, 8, 6, 1,5, 1,8, 1,2, 7, 2, 5,0 

1310 DATA1 8, 1,4, 2, 3, 0,1, 4, 7, 4, 6, 0,7, 3, 2, 3, 3, 0,0, 8, 0,0,O,5l> 

1320 DATA7 ,8, 2, 8, 3, 0,3, 3, 6, 1,5, 0,10, 2, 3, 3, 2, 8, 1,3, 7, 3, 5,0 

1330 DATA7,4,2,4,4,0,S,4,8,3,7 

1349 DATA99 

1350 DATA7, 5, Z. 5, 4, 0,1, 3, 7, 3, 5, 0,9, 7, 1,6, 3, 0,1, 4, 7, 4, 6,0 
1360 DATA7, 4, 2, 4, 4, 0,1, 3, 5, 4, 4, 0,9, 6, 3, 4, 4, 0,3, 7 ,8, 6, 6,0 
1376 DATA9,2,1, 3,3, 6,3, 2 ,8,3,6,0, 10,6, 1,5,2, 0,1, 5,7, 5,6,0 
1380 DATA0, 0,0, 0,0, 55, 1,1, 7, 1,6, 0,19, 3, 1,5, 3, 0,5, 4, 8, 3, 7,0 
1390 DATA7,6,2.f>,4,0,4,6,fi.S,7 

1480 DATA99 

1418 DA TA7, 5, 2, 5, 4, 8, 1,5 ,7, 5, 6, 8, 7, 4, 2, 4, 4, 0,1, 4, 7, 4, 5, 8 
1420 DATA7, 5, 4, 5, 5, 0,1, 3, 7, 3, 5, 2, 7,6,2, 6, 4, 9, 3 ,2, 8, 3, 6, 2 
1430 DAT/.9, 7, 1,6, 3, 9, 5, 4, 8, 2. 6, 2,! 9, 6, 1,4, 3, 2, 1,3, 5, 4, 4, 2 
1446 DATA/, 3, 3, 4, 4, 0, 4, 3, 8, 4, 7, 2, 10, 4, 3, 5, 2, 8, J, I ,? ^ .2,2 
1450 DATA7, 2, 2, 2, 3, 3, 3, 5, 7, 6, 5, 8, 10, 3, 1,2,2,6,4.6, 3, 2, 4,1 
1460 DATA12,5,1,6,1, 
1470 DATA99 

1481 0ATA7, 5, 2, 5, 4, 6, 1,3, 7, 3, 6, 0,7. 4, 2, 4, 4, 0,1, 4, 7, 4, 5,0 
1490 DATA9, 2, 1,3,3,0, 1,4, 5, 5, 4, 0,9, 1, 3, 5, 4, 0,4, 3. 8, 6, 5,0 
1500 DATA9,5,t,7,3,0,4.6,5,7,6 

1510 DATA99 

1526 DATA7, 5, 2, 5, 4, 0,3, 7, B, 6, 6,0, ',5,4, 5, 5, 0,3, 6, 6, 4, 5,0 

1530 DATA7, 3, 2, 3,4, 3, 3, 4, 5,2,6,0," ,4,2,4,4,0,1,4,7,4,6,0 

1540 DATA7, 6, 2, 6, 4, 4, 1,4, 6, 5, 5. 0,7, 6, 4, 5, 5, 0,3, 2, 8, 3, 6,0 

1550 DATA16,3,1,5,3,F,4,3,B,6,5,0,9,2,1,3,3,0,1,5,7,5,6,0 

1566 DATA18 ,6, 1,5, 2, 8, 5, 4, 8, 4, 7, 8, 9, 7, 1,6, 3, 0,0, 0,0, 0,0, 44 

1570 DATA8, 8, 6, 6, 6, 55, 1,6, 7, 6, 6, 0,7, 4, 4, 4, 5, 2, 3, 3, 6, 5, 5,0 

1560 DATA9, 6, 3, 5, 5, 0,1, 6, 6, 5, 5, 9,7, 1,2, 1,4, 2, 6, 3, 8, 2, 8,0 

1598 DATA11,4,1,2,3,0,4,6,5,7,6,0,B,J ,1,4,1 

1600 DATA99 

1610 DATA7, 4, 2, 4, 4, 8,1, 4, 7, 4, 5, 0,7, 3, 2, 3, 4, 0,1, 5, 7, 5, 6,0 



156 • 80 Microcomputing, December 1981 



MODEL III DISK KITS 

TWO 40/track drive kit and hardware Comes 

complete with all the necessary hardware and 2 I ' 

drives of your choice (MPI or TANDON 40 Si \* I 

track) NO SOLDERING OR TRACE CUTTING 

REQUIRED 1 COMPLETE EASY TO FOLLOW 

INSTRUCTIONS INCLUDED 875.95 

TWO 80/track drive kit and hardware Same as above 1,095.00 

ONE 40/track drive kit with all hardware and your choice of MPI or TANDON 40, 
track drive (INSTRUCTIONS INCLUDED) 599.99 

ONE 80/track drive kh with all hardware and one MPI 80'track dnve No soldering 1 

(INSTRUCTIONS INCLUDED) 699.99 

TRS-80 MODEL III. 48K. 2 40 Track TANDON or MPI drives 2.095.99 

TRS-80 MODEL III. 48K. 2 80 Track MPI drives ... ... 2,325.99 

1 YEAR WARRANTY 

16 K MEMORY 19.95 

MODEL I, III APPLE AND EXIDY. Instructions included 
(MOD 1 Keyboard requires jumpers $2.00 extra) 

ARCHBOLD SPEED-UP MODIFICATION FOR MOD I 
TRS-80. RUN UP TO 300% FASTER CPU SPEED! SPEED UP 
SLOW PROGRAMS WITHOUT SOFTWARE! 45.00 

^ONITOR?"^^^^™^ 

Black and White Monitors 12" (TECO) 129.95 

Green Phospher Monitors 12" (TECO) 159.95 

AMDEK Black and White 12" Monitor 159.95 

AMDEK Green Phopher 1 2 " Monitor 100G 189.95 

MODEL I DISK DRIVES 

These drives come complete with power supply and chassis. 
90 day warranty on disk drives ALL DRIVES COMPLETELY 
TESTED PRIOR TO SHIPPING! 40 track drives are fully 
compatible with TRSDOS, NEWDOS-80. LDOS etc. 
Fully compatible with the PERCOM DOUBLER and Double 
density 1 80 track drives require MAKE-80 program to run 
regular software (SPECIAL! GET A FREE 2 DRIVE CABLE 
WHEN BUYING 2 or more DRIVES!) 

40 TRACK MPI or TANDON DRIVES 319.95 

80 TRACK MPI 439.95 

DOUBLE SIDED 80 TRACK MPI 579.95 

2 DRIVE CABLES 25.95 

4 DRIVE CABLES 35.95 

SPECIAL DOUBLE SIDED CABLES (CALL $) 

MAKE-80 CONVERT 40 TRACK TO 80 TRACK. 
(SPECIFY MOD I. Ill) 29.95 

DISKETTES 

SPECIAL: Brown Bag Diskettes (Verbatim) Bag of 20 . 49.95 

SPECIAL: Brown Bag Diskettes 100 Quantity 214.00 

VERBATIM DATALIFE DISKETTES Box of 10 32.50 

VERBATIM DATALIFE DISKETTES 100 Quantity 275.00 




SPECIAL DISK HOLDER 



Holds 50 Diskettes 
Reg. Price $35.95 
SPECIAL 



•21.95 



PERCOM DOUBLER II (Includes DBLDOS) Doubles storage 
on Model I disk drives. Installs in Exp. Int. in minutes 1 Will not 

effect normal operation! 169.95 

NEWDOS-80 (New Version 2) 139.95 

LDOS 139.95 

DOSPLUS 3.3 89.95 

(Specify Mod I or III) 




LYNX TELEPHONE MODEM 

AUTO/DIAL AUTO/ANSWER. 
COMPLETE WITH SOFTWARE AND 
HARDWARE FOR MODELS I AND III 
The RS-232 is not needed" Completely 
assembled. LYNX MODEMS are compatible with 

ST-80 III also 299.95 

ST-80 III: Smart terminal program. Allows saving data to disk 
or sending data from disk and more' Mod I or III . . . 149.95 

PRINTERS 

SPECIAL: FREE CABLES AND FREE SHIPPING 
WITH ALL PRINTERS! 

CABLES FOR MODEL I EXPANSION INTERFACE. MOD III. 

or PMC-80 EXP 100 or PIF-40 only.) 

PLEASE SPECIFY WHICH COMPUTER! 

HIGH QUALITY DOT MATRIX 

EPSON MX-80 (Tractor feed only) 539.95 

EPSON MX-80 FT (Tractor and Friction feed) 639.95 

EPSON MX-70 (Tractor feed only) 419.95 

EPSON MX-1 00 (Tractor and Friction feed 14.5 wide) . 895.95 

EPSON MX-80 Hi-Res Graphics Option 89.95 

Add-On Friction Feed Adaptor for MX-80 or MX-70 59.95 
OKIDATA MICROLINE 80 (Friction and Pin feed) . . 414.95 
OKIDATA MICROLINE 82 (Friction and Pin feed) . . 597.95 
OKIDATA MICROLINE 83 897.95 

(Friction, Pin and Tractor feed 14.5") 
OKIDATA MICROLINE 82A 120 cps 625.00 

(9x9 matrix w/descenders) 
OKIDATA MICROLINE 83A 120 cps 925.00 

(9x9 matrix w/descenders) 
TRACTOR FEED ADAPTOR for 80 and 82 75.00 

LETTER QUALITY PRINTERS 

The C-itoh Daisy wheel printer is one of the finest Letter 
Quality printers we've seen WHY PAY MORE FOR LESS'? 7 ? 
Exchange Daisy wheels to get the kind of printing fonts you 
need. 12-10 pitch. Excellent with Scripsit or Electric pencil 
Let's face it, sometimes dot matrix doesn't hack it! (You can 
use standard Diablo Carbon ribbons with the C-itoh to get 
crisp "COPY READY" printouts!) 

C-ITOH DAISY WHEEL 25 CPS 1,795.25 

C-ITOH DAISY WHEEL 45 CPS 1,995.25 

C-ITOH TRACTOR FEED 219.95 

PMC-80 COMPUTER 

16K LEVEL II Fully compatible with 
all TRS-80 Mod I Software 595.95 

PMC-81 COMPUTER 16K LEVEL II 

with upper 'lower case Upper/ lower case 
driver in ROM Auto key repeat. Numeric keypad 
4 programmable keys Built in speaker 100% Mod I software compatible 879.99 
EXPANDER 100 PMC's expansion interface 32K. disk controller, printer interface 

(Expands PMC-80'81 to 48K) 499.99 

RF-MODULATOR 'or PMC or TRS-80 to TV Hook-up Completely assembled and 
tested (Plugs B Video port) UHF CH 33 39.95 

TRS-80 Disk and Other Mysteries Book. 132 pp . 22.50 

Microsoft Basic Decoded and Other Mysteries 312 pp 29.95 

Custom TRS-80 and Other Mysteries. 300 pp 29.95 



CALL TOLL FREE: 800-528-1149 



NO SURCHARGE FOR VISA MASTER CARD OR AMERICAN EXPRESS!!' 
(10% DEPOSIT REQUIRED ONCOD'S OVER $200 00) Send Certified Check. 




Money Order or Check 



SIMUTEK COMPUTER PRODUCTS inc. 



4877 E. SPEEDWAY 
TUCSON, AZ 85712 
(602) 323-9391 



CALL FOR 

FREE 100+ PAGE 

CATALOG!^! 



TRS-80 IS A TM OF TANDY CORP PMC-flO IS TM OF PERSONAL MICROCOMPUTERS 
PRICES AND SPECIFICATIONS ARE SUBJECT TO CHANGE WITHOUT NOTICE 



• See List ot Advertisers on page 4 18 
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"If you made an incorrect move, 
Chess Tutor displays "Not the Best 
and "Try Again." 



C1.R1— board coordinates of player's 
"from" move. 

C2,R2— board coordinates of player's 
"to" move. 

CA— castling indicator (1 = castling). 

PI— index into piece table, P9. 

CS.RS— source square coordinates read 
from data statements. 

CD, RD— destination square coordinates 
read from data statements. 

CI— move qualifier (read from data 
statements): = none, 1 = + (check). 2 = ! 
(good move), 3 = ? (bad move), 44 = queen- 
side castle, 55 = king-side castle, 
66 = drawn, 77 = mate, 88 = resign and 
99 = end of game. 
• Arrays— 

BS(8,8)— contains the piece codes for in- 
itial board setup. 

TS<8,8)— indicates color of each board 
square (1 = white). 

P9(25,11)— contains graphic codes for 



each piece, read from data statements 
220-470. 

N9$(7)— contains names of openings. 

C5$(3)— contains move qualifiers ( + . !, 
?)• 
• Data Statements— 

170-200— piece codes for initial board 
setup. 

220-470— graphic codes for all pieces. 
Each statement contains 12 values. The 
first six make up the top of the piece and the 
next six the bottom. 

220— empty white square. 

230-280— black pawn, rook, knight, 
bishop, queen and king on white. 

290-340— white pawn, rook, knight, 
bishop, queen and king on white. 

350-400— same as 230-280 except on 
black. 

410-460— same as 290-340 except on 
black. 

470— empty black square. 



1270-1710— piece, move, and qualifier 
codes for each move of the seven openings. 
Each move consists of six values: piece # 
(1-12,0 if castling), two "from" coordinates, 
two "to" coordinates, and a move qualifier. 
Each move is terminated by a 99 code. Ex- 
ample, 1280 DATA 7,5.2,5,4,0 



7 = while pawn 
5.2 = Irom E2 
5.4 = to E4 
= no qualifier 

Although Chess Tutor is developed 
around seven specific openings, you can 
add openings or even complete games by 
putting your own data statements in place 
of mine at lines 1270-1710, or by adding ad- 
ditional data statements if you have more 
than 16K. But don't forget to change lines 
30 and 80 to account for your changes or ad- 
ditions. ■ 






Quality Products With Support And Service For Less!!! 



16K Radio Shack Model 3 computer S839-48K for $899 
With 2 40 track drives $1890 and a RS232 for $1959 
16K for the Radio Shack Model 1, 3, and Apple 2 + $16 

Percom Electric Crayon— add color and hi-res graphics to your model 1 $ I 39 

The Connection— for Model 1—300 baud — orig. only & direct connect for $ 1 19 
Lex I I coupler— 300 baud— orig/ans-half/full duplex $129 

Omnitek 40 track drive w/p.s. &. case $295—80 track $395—5 S. 3 ms access 
Omnitek 80 track dual head drive with p.s. and case $499 
Omnitek 8"* disk drive power supply and case $69°> 

Omnitek Power Supply and Case for 5" drives $63 and for 8" drives $ I 39 
Omnitek cables for 5*" drives — 2-drive for $24 and 4-drive for $29 
Omnitek cables for 8" drives — 1 -drive for $24 and 2-drive for $34 
Economy 5" double density disks $24 with center rings $28 
Disks for 8" drive — double density $36 

I 2" B&.W Leedex (Amdek) Monitor $ 1 1 4 and 1 0"' B&.W APF Monitor $99 

Base 2 printer $539 C.ltoh Starwriter $1439 

Okidata Microline 80 printer $369 Tractor $50 

Okidata Microline 82A printer $499 and 83A $749— 1 20cps, urographies 

Call for Quotes on Epson, Apple, and Commodore equipment. 




commodore 



Dealer inquiries invited. Mass. Residents add 5% Tax. F.O.B. Tewksbury, freight extra. M/C. Visa or check accepted. 
TRS-80 is a reg. trademark of Tandy Corp. ^ 105 

Omnitek Computers International Inc., 1899 Main St., Tewksbury, Ma 01876 
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"Sometimes a product is marketed that is of such good 

quality and value that it soon becomes the standard 

in rfs class Orchestra-80 is this kind of program 

Jim Heid — 

80 Microcorr 

May 1°81. p ou 



ORCHESTRA^- 



Orchestra-80 

MUSIC SYNTHESIZER 

$79.95 

plus S2 00 postage and handkng 

CA residents odd 6% sates tax 

MasterCard and Visa 

accepted 



ORCHtSTRA 8fr ^njt/t' 




Free Downloading of Orchestra- 60/6 5 Files Now Available! 



Photo- 80 
Forum 80 

Buliet-dO 
Butret-80 



(201)790-6795 
(201)688-7117 
(203)744-4644 
(216)724 1963 



Connection -80 (415)651-4147 
Buliet-80 (714)359 3189 



Connecton-80 (516)588 5836 
Ccxnmunique-80 (201)992 4847 
Forum -80 (303)3410636 

lnnov-80 (516)482-8491 

BufletBO (408)241-0769 

Mkrronet R OI?CH80- 70110.503 



* l^e Orchestic 80 and 85 systems are outstanding 
achievements m cost vs performance in the musk: 
svntnes'ier aieo They produce a fine sound and pro 
gram so easily that novices have little trouble creat 
ing music wtfh the* fust eftbf ts " 

Geo ge Somers 
PKmtai ana forme* Ju*tard »wHuctor 



^• V ^SS®JWSS 



SYNTHESIZE MUSIC AND PERCUSSION IN STEREO! 

• STEREO— Separation by instrument! For e»- • New editing features and commands ^^F/*-frl £± C % F/^ QfS" 1 

ampte pray trumpet and oboe through • p^gj ir>ro ai> 1^ Model I keyboard or \f/r VI 1 v9l IU B 09 
channel A. clarinet and organ through expansion interface wt.-hout vaolng &A*%f% f\C 

channel B You can switch Instruments warranty j | V W y3 



• STEREO— Separation by mstrumentl Fore* 
ample play trumpet and oboe through 
channel A. clarinet and organ through 
channel B You can switch Instruments 
from channel to channel at any time" 

• PERCUSSION— Now you can ada a w»de 
range of percussive sounds and special 

. effects to your musk:' 

• Erfsttng Orchestra-80 Met toad and pray 
*) stereo oxjtomaticaty' 

• Optional 5th voice for use with 
speed-up mods' 



• New editing features and commands 1 

• Plugs into any 16k Model l keyboard or 
expansion interface wt.-hout vending 
warrantyt 

• includes tape and disk versions on 
cassette. 4 sample music fHes. manual. 
and fuHv assembled and tested printed 
circuit board I 



plus $2.00 postage and handii 

($5 for overseas o>rmoil) 

CA residents add 6% sales tax 

MasterCard and visa 

accepted 



:HESTRAf5 



ORCI ~, . . 
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WRITE FOR INFORMATION ON: 

• Upgrading C'ches'ro 80 to Orchestra 85 Switch to Stereo! 

• Oreatest Mlti volumes 1 and H AH new music! Ready to lood ond pray 1 

• Orchestra •90"' -Model Mi version of Orchestra -85 Available soon! 

• Oreh«stra-i<r-The Original! S79 95 



Software Affair 

858 Rubis Drrve Sunrryvoie. CA 94087 
^ 3M (408)295-5195 
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REVIEW 



A mouth and ears for your 80. 



The Cognivox 



The Cognivox 
Voicetek 

Gotota, California 
$149 

Richard C. McGarvey 
221 Hirschfield Drive 
Williamsville, NY 14221 



Always on the look out for a new toy to 
add life to my computer, I recently 
came across an advertisement for a voice 
input/output peripheral called the 
Cognivox. I was a bit surprised at the price 
because I had looked at Radio Shack's 
Voxbox and Voice Synthesizer and they 
were more expensive. I doubted that any 
voice I/O at a price as low as Cognivox 
could be of much use. I did, however, 
decide to write for information on the 
Cognivox to see if Voicetek would send 
anything worthwhile. 

The return mail was indeed interesting. 
Its description of Cognivox was honest 
and direct. The brief, two-page information 
sheet was fully descriptive of both the 
benefits and the shortcomings of the 
Cognivox. There was no hard sell, and that 
increased my interest. As a result of this 
honest approach, I decided to invest the 
money and get the Cognivox. 

The Cognivox 

The advertisement (as well as the in- 
struction manual) said that Cognivox was 
fully assembled and contained all 
necessary equipment to "plug in and use." 
This is not totally true. The only things 
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lacking in the Cognivox package (but 
available at extra cost) are the ribbon 
cable and 40-pin edge connectors needed 
to hook up the unit. Radio Shack now car- 
ries these parts and it is easier and 
cheaper to get them at your local store 
than to order them. Other than that one 
point, Cognivox is ready to use on arrival. 

The Cognivox comes with a power sup- 
ply, one microphone and a cassette con- 
taining the software to use Cognivox. The 
unit measures only 5 by 6 by 1.25 inches 
and is very light. The microphone appears 
to be of reasonable quality, and the power 
supply is made by Atari and is undoubtedly 
good quality. 

The software is designed for a Model I, 
Level II computer with at least 16K. The 
operating software is very small but the 
memory requirements for the digitized 
voice data are so great (approx. 1.5K per 
second of speech) that a 16K machine has 
less than 4K left for a Basic program. I 
should also mention that although the 
advertisement specifies that up to 32 
words or phrases are available for both 
recognition and response (with separate 
vocabularies for both), a 16K machine will 
hold approximately 11 words or phrases 
unless they are very short. Word or phrase 
length is limited to a maximum of three 
seconds duration, so if you use three- 
second words or phrases at 1.5K per sec- 
ond you will need 144K to store 32 three- 
second entries. Fortunately, three 
seconds is a long time in speech, so 32K 
can store a usable vocabulary and 16K can 
be functional though moderate. 

The software package contains a driver 



called VOX2, two demos called PROG2 
and Dialog (Dialog allows you to carry on a 
conversation with the computer). Also in- 
cluded are some games, a music demo 
and a program called VDUMP which will 
give a verbal output of a memory dump in 
hexadecimal. 

VOX2 is the brains of Cognivox and 
must be resident in order for Cognivox to 
operate. Its purpose is to construct tables, 
store digitized voice data and allow access 
from Basic via USR calls. VOX2 loads at 
5200H to 55FF. All of the memory above 
55FF is used as data tables and digitized 
storage. VOX2 is designed for a 16K 
machine, but there are some memory 
POKEs in the user's manual that allow 
larger machines to store more data. You 
are still restricted to keeping your Basic 
programs below 5200H (20992d). For those 
with 32K or 48K there is VOX2.1 (at addi- 
tional cost) which is reassembled at 
9000H. This provides more Basic room and 
still gives enough upper memory for data 
storage thus increasing both the 
vocabulary and Basic program size. 



Voice Quality 

It is obvious that for $149 you are not 
going to get high-fidelity voice output from 
Cognivox. By comparison, the voice out- 
put is a little less accurate than a well pro- 
grammed synthesizer, such as the Radio 
Shack model. However, Cognivox does not 
require phoneme programming and is 
therefore easier to use. Also it responds 
with (and to) your accent, not that of a 
machine-sounding synthesizer. 



'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 




OTHER 
MYSTERIES 



312 pages 
S29.95 



Get them at your local UG dealer! 



It has twelve thousand one-liners 
in it, and every one is great!' 
- Dennis Kitsz. Phone orders (714) 946-5805 

1 MS Ml ,. a iradrMorfc 4 1 ,<>4\ Mil t«~«rfl U IN* lurk *f Mk. ..— fl 



TKS-8Q Dink and Other Mysteries i« the 
definitive fixit bonk for disk user*. Writen 
by Harvard Pennington it ha* more than 

I :W pagesi of easy to read, entert aining and 
immensely useful information - find out 
how to recover disk files, the layout of 
information on the disk, memory maps, 
pruhlem ■olotiom . the list goes on! 

Mtnj rtadlW have saved days ol work 
by rfCOVtrin| files that hud been unreud- 
able. Now in its fourth updated printing, 
lUS-sn Disk and Other Mysteries has 
been getting rave reviews in several mag- 
ni-ines Your* for only $22.50 (pllll 13.00 
•hipping. CA residents please add I1.3A 
nlM taxi. 

MIlllHlfl BASIC Decoded and Other 
M\ -nines is the complete guide to your 
Level II ROMs. W it hover seven th«- II 
HnH of comment* and 6 additional chap- 
ter* packed with information, this is easilv 
the biggest, and best, b«M)k about the Level 

II KOMs available 

Eiploil the full power of Microsoft 
BASIC, with the aid of more than HO0 
page* of tested examples, understandable 
explanations and detailed comments. Now 
available in a revised second printing, only 
$29.95 I plus $H.OO shipping, CA residents 
add $1.80 sales tax i 

I.Ki Computer Scrvicrx. 
1260 West Foothill Blvd.. 
tpland.CA 91786 
Please send me the following 
Other M\*trrie*: 
□ TRS-Mi Disk lor $22.50 

Microsoft BASIC Decoded for $29.95 
2 The Custom TRS-MI for >29 95 

BASIC Faster and Bettor for $29.93 
_ The BFBLIB Disk for $19.95 

The BFBDBM Disk for |1B .86 
Please add |3jO0 per book, or disk. 

r ■hipping, 
Overseas airmail $8.00 per book. 
California residents add 6^ sales tax. 

Name 

Address 

City 

State Zip 

Charge in> 

D MasterCard Interbank Code 

Visa Kxpiration Date 

Card No 

_ Check cncloxd for 

Ship (ODi$3 00 extra) 
Signature 
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HIINTRODUCINGH! 
A/DD/A MB 80 

A Real World Interface 
for your TRS-80 
MOD l&lll. Control 
motor speed & direc- 
tion, measure voltages 
— any analog to digital 
or digital to analog 
operation. 

$149.95 

SPECIALS: 

16K add on memory 

prime NEC 200 nsec $18 SO/8 

"Shades" green filter $18.00 

ATHANA quality SVa floppy disk- 
ettes with hubrings in plastic 
library case 

(soft. 10. 16 sector) 

10/3425 

100/321.85 

BOOKS 

6809 assembly language prog 

$16.99 
Learning Level II $15 95 

Ihe Basic Handbook $19 95 

Microsoft Basic decoded & 

other mysteries $29.95 

TRS-80 disk & 

other mysteries $22 50 



MIS " 577 

COMF1 FORMATION, INC 




roger wilson 
vice president 

1295 Cypress Avenue 
melbourne florida 32935 

i30M 2S4 9399 



•r\ ..-fHl ntlilK-d <N-iks m<» 
...II I.. ,irr..„K.- t.nnk «.f 

o,mv i N-t kv ff*)uirr two to 

Ihree weeks '<> < **■*' Add *- 
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"Sound effects programming 
is much easier than 
voice applications." 




If you have ever listened to a syn- 
thesizer, you know that it takes some get- 
ting used to before you can readily under- 
stand it. The same is true of Cognivox, but 
for a different reason. Cognivox digitizes 
your voice input and outputs the digitized 
results. In the digitizing process some of 
the distinct qualities are lost. The words 
are understandable and if a well chosen 
vocabulary is used the quality is good. 
Just don't expect exact reproduction. If 
you had the memory available to store 
megabytes then Cognivox could be 
designed to give much better quality, but I 
am very satisfied with the quality I get. 

Vocabulary Training 

Training Cognivox is a three-pass opera- 
tion that is simple to program. The user's 
manual fully describes all of the variables 
and addresses needed to institute each 
training pass as well as the single 
response pass. Individual word retraining 
is also possible so that if you get a word 
that is not too clear you can retrain it to a 
higher quality. 

The training of the Cognivox unit is very 
different from programming a voice syn- 
thesizer. Most synthesizers require that 
each word to be spoken is first broken into 
phonemes. Phonemes are sound qualities 
that, when mixed, form a synthesized 
word. For example: The word hello would 
be composed of several phonemes. The 
first would be the consonant h sound. This 
would be followed by a short e sound. The 
next phoneme would be the I sound 
phoneme. This would be followed by the 
long o sound and then the oo (as in soon) 
sound. These phonemes are programmed 
in different ways by different synthesizers. 
The more phonemes that are available, the 
higher quality the speech output will be. 

The Radio Shack Voice Synthesizer 
uses 62 phonemes which produce a 
reasonable voice sound. However, it is still 
up to the programmer to decipher which 
phonemes are needed to produce a word. 
Improper phoneme use decreases ac- 
curacy of word production. 

Cognivox, on the other hand, is pro- 
grammed by speaking the vocabulary into 
the microphone and thereby training the 
Cognivox to repeat or recognize the 
vocabulary. Once spoken into the micro- 
phone three times, the vocabulary is 
memorized and stored for use. 

Documentation 

The user's manual is very well done and 
supplies all the information needed for in- 
tegrating Cognivox into your programs. 
The manual does assume that you can pro- 
gram in Basic and understand PEEK, 
POKE and USR functions. The manual also 



shows the simple steps for creating single- 
voice music and sound effects. Sound ef- 
fects programming is much easier than 
voice applications. 

The manual supplies all parameters and 
addresses that you need to program and 
run Cognivox. Nothing is hidden. About 
the only shortcoming is that there is no 
program implementing Disk Basic. (I'll give 
some information on that later on in this 
article.) Cassette users should also read 
the sections on relocation and Disk Basic 
use because they will give you some hints 
on how to relocate VOX2 to higher ground 
for those of you who have larger memory 
capacity. 

VOX2 Relocation 

Be sure that you have a good dis- 
assembler program before you get into the 
following alterations. A program that 
relocates rather than just moves code will 
also considerably reduce work. Your first 
step should be to make a backup of VOX2 
and work from that. Do not destroy the 
original copy! 

If you do not understand Assembly pro- 
gramming or if you don't know what I mean 
about disassemblers and relocators, then 
pass this section up and send for VOX2.1 
and use your cassette. Voicetek will come 
out with a disk-oriented system in the near 
future (probably by the time you read this). 
I have sent them all of their programs ad- 
justed for Disk Basic and have added some 
enhancements such as disk storage of 
previously trained vocabulary for reuse. 

If you have a monitor that relocates 
machine code then your work is small. A 
relocator will move VOX2 to 9000H 
(36864d) and will change all of the obvious 
addresses to the proper new addresses. 
As an example: the address 56DDH 
becomes 94DDH (that is an upward 
change of 3E00H). But even with a 
relocator there will still be some addresses 
that will not be changed. These addresses 
are implied and cannot be distinguished 
by the relocator as an address or data. 
They must be changed manually. There are 
not very many of them and only the most 
significant byte will have to be changed. 

Many of the addresses are outside (and 
above) the VOX2 program limits of 5200H 
and 55FFH. These are data and table 
parameters and must also be changed. 
The change consists of adding 3E00H to 
each address. The 3E00H value is the dif- 
ference between the old and new location. 
If you are stuck with only a data mover 
then you are in for a lot of work. You will 
have to manually go through the entire pro- 
gram and change every address. You will 
need a disassembler for this so that you 
can distinguish the addresses from data 
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AMERICAN 



118 SO. MILL ST • PRYOR, OK 74161 
PHONE (918) 825 4844 



ALL LISTEO PRICES ARE CASH DISCOUNTED. WE ACCEPT MC VISA. AND COO (REOUIRES CERTIFIEO CHECK CASHIER'S CHECK OR 
CASHl FOR CHARGE ORDERS PLEASE AOO 3% FOR COO SERVICE. PLEASE ADO S%. 
OKLAHOMA RESIDENTS PLEASE A004% SALES TAX 

TRS-80 MODEL 1 
MINI DISK DRIVES 



Ou' Mini Dttk Drives Ht MMl on the world lamout 
TEAC Mim 0>»k Unit The TEAC Unl leatu'ot en eat>- 
maled 8000 power -on -hours mean time between failure 
lllttl i 6 Heart • fit*. 8 days • ween for 3 85 year* 1 1 I. 
Ow cmvii also feature • iMd tcrew heed petitioner- not 
e bend type pot n tore* TBfB type of petitioner insures 
eecareie heed positioning over ire reed-wr.ie media 
whiie giving e very quiet W M l lW reed-write opera- 
tion H yoa have eny doubts about oar drives, oa' one 
year warranty thouid convince you that we know this 
unit it the beet drive et the keel price on ir»t *i>«"ur 
marnel Thej it or»e e»empie where you ceo pay eas 
ana get morell 
MODEL 1 40 TRACK FULLY TRS-BO COMPATIBLE 

DISK DRIVE *•*•* 

MODEL I §0 TRACK DRIVE (Requires NEWDOSBO 

or equivalent settwere to work) Me* •* 

NEWDOSBO (Version 2 0. »i3Bt$ 

■OX OF 10 VERBATIM 

DATALIFE DISKETTES . — MBM 



$265 



COMPLETE DRIVE 
WITH POWER SUPPLY 





^*M 



TRS-80 SOFTWARE 



DISCOUNT PRICES ON TRS «0 
M ICROSOFT SOFTWARE 

Besk Compiler - MOO t iftMS 

CPMorTRSDOS MOD2 Jtt.tS 

Fertrsn-SO - MOD 1 rUI 

CPM Version - MOO 2 MB.M 

COBOL tCPM Version MOD 21 »Bi.t* 

M /SORT (CPM Vers*oaM00 2) tif.fM 

• 'ADVENTURE (MOO 1 . Disk Version* ..tfJsT" 
Olympic Decathlon (Mod i Olth Vaittofi). 23 00 
Typing Tutor iCeesetle Version Only > 14.0B 

au MATH Imu MATH SIMP-BO Symbolic Math 

Package .J Ob* 

Editor/ Aatombler Plus 

(Cassette Version Oniyi le.BI 

DISCOUNT PRICES 

ON OTHER SOFTWARE PRODUCTS 

FOR THE TRS-BO 

I N E W DOS B0 ( Vera*©* 2 > 
MOD 3 or MOO t H9M 

I CORDOS (An enhancement to the TRS-B0 MOD 2 
TRSDOS operating system which skews the ute 
ol a CORVUS Wmahotlor Oksk ■teksan)..3O0.M 



Proofreader Proolroadar attl choc* your tcrlp- 
t>t* t ecf c pencil, soft-to* or other documents 
for spelling end typographical errors Proof- 
reader can check every twgle word ot even the 
longest document In under S mtnatet' Tht 30.000 
word dictionary one of me largett available can 
be tat I. extended * the use' auiiiktry dictionary 
10 add an» number of new words (only limited by 
diifcf'leapaeei Only. . Bf.BS 

Soil Screen -Soil Screen it e fate of Ihe art hlM 
ecreen leii editor if you n»v* never jied a full 
acroen editor before, you wH be amazed at the 
power it gives you Soft-Screen can iittraliy save 
you hours of workll Only ..to ti 

Grammai»-A spelling checker may not be 
eroagn to catch ail the dumb mistakes made by 
that letl then efficient secretary" Gremmelik 
c^ec-vi for capitalization punctuation, balenced 
parentheses, and doubled wordt '"The The - ) 
Grammattli aiftO check! for ten H terms or eeoterk 
jargon, word overuse and misused phresee 
Grammai* alao inciudet aunties for adding your 
own dictionary ot misused wO'Otaro phrase* 
Only M.SS 



COLOR COMPUTER OAMES 
AT OISCOUNT PRICES 

Packet Man — Very t>miier to the populer arcade 
game "Pec-Men* in ihiseiotmg game you mutt 
dodge the munenkma who ere oat to eet you. 
Very challenging and impossible to beet Our 
mott played computer game" Only.. 24 tS 



Color Space invaders 
Meteroida. 
Game ot Life. 
Lunar Lender 



21 M 
21 M 

14. Pi 
14 M 



BUY ALL 5 COLOR COMPUTER GAMES AND 

SAVE EVEN MORE" 

AH S of the above garnet Cety. M.tt 



»1k-42S-4M4 

retail store location 
southwooo plaza shopping ctr. 

PRYOR OK. 



TM TANDY CORP 
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"There are very few 
limitations on vocabulary." 



or instructions. 

The manual contains all of the 
parameters that have to be changed in 
Basic to work in the new 9000H VOX2 loca- 
tion. If VOX2 is properly changed then all 
of the supplied programs will work once 
those parameters are changed. In the 
relocated VOX2 there is one value that 
looks like it should be changed but actu- 
ally shouldn't. In the relocated version it 
will be at 90D4H to 90D6H. The instruction 
is LD DE.7000H. This value must remain at 
7000H. It will not be changed by the 
relocator unless your relocator has a flaw. 
Check it to be sure, because if it has been 
changed to AEOOH the relocated VOX2 will 
still work but a bug may occur in later pro- 
gramming. 

Address 901 BH in the relocated version 
sets the memory size. If you have 32K, set 
that byte to CFH. If you have 48K set it to 
FFH. You may want to preserve some high 
memory space so in either case you can 
set a slightly lower value. Remember that 
CFH and FFH are the high-order bytes of 
the top of memory for 32K and 48K respec- 
tively. The low-order byte is FFH in both 



cases. If you change the high order byte to 
COH, for example, you are creating a top 
memory of COFFH. That is 3840 bytes 
below the top of 32K memory. 

For Disk Users 

VOX2 is accessed by A = USR(0) code. 
Before each USR instruction there is a 
series of POKE statements, i.e., POKE 
VL,xx:POKE VH,xx:A = USR(O). VL is the 
variable assigned to the low byte of the 
USR address and VH is assigned to the 
high byte. These POKEs pass the values of 
the USR destination routine to 408EH and 
408FH respectively. The USR can then ac- 
cess the correct entry into VOX2. 

In Disk Basic we have the advantage of 
the instruction DEFUSRx = &Hnnnn. This 
allows us to bypass the POKEs (and delete 
the POKEs for VL and VH) and go directly 
to the routines we need by using 
A = USRx(0). All variable assignments are 
well documented in the user manual so I 
will not repeat them. Table 1 lists the 
DEFUSRx statements as I have assigned 
them. I assigned them in numerical order 
zero to nine as they occur in the various 




96K CP/M® 

(For your TRS-80* Model II) 
Multiple Job Executive 

Add a whole new dimension to your 
TRS-80 Model II. Let it work while you 
work!! 

ATON's unique JobStream™ CP/M 2.2, along with additional RAM memory; allows you to 
simultaneously compile, assemble, or link in one 64K background partition (62K TPA) while you 
edit files, and spool to the printer, and communicate with another computer in up to four 32K 
foreground partitions (28K TPA). 

As you expand memory beyond 64K, you also enter the amazing world of TrackMode BIOS™ 
which not only multiplies diskette speed up to five times, but also automatically performs read 
after write checks for the ultimate in data reliability. 

• Gain hard disk performance for a fraction of the cost — and no backup problems!!! 

• Works in 32K, add RAM memory to 256K using standard Radio Shack memory boards. 

• Supports two sided expansion disk drives (1.2 megabytes per diskette). 

JobStream CP/M 2.2 (with Z-80** Debugger) $235 

Omni Writer™ Video Text Editor $130 

Z-80 Debugger Source Code $ 50 

Package of above (a $415 value) $295 



'Software with Service" 




on 



nternational, Inc. 



Prepaid, Visa. MasterCard or COD. 
Shipping and handling extra. 
California residents add 6% sales tax. 

CP/M" Digital Research. Inc. 
""Tandy Corp. ***"Zilog Corp. 
JobStream, TrackMode BIOS'" ATON Intl. 
Omni Writer*" Omnigraphics 

260 Brooklyn Avenue, San Jose, CA 95128 
• 398 (408) 286-4078 / 



training, recognition, dialog, retraining 
and sound generator routines. Disk users 
can eliminate the VL and VH POKEs 
because after the DEFUSRxs are assigned 
the routines can be called by DEFUSRx 
number. 

Three additional points are important 
here. First, be sure to insert a CMD'T" in 
the beginning of the Disk Basic program to 
disable the interrupts. If you do not do this 
your sound effects will be interrupted, 
causing a buzzing rather than a clear tone. 
Second, VOX2 was assembled without an 
entry point (actually an entry of 0000H). 
That means that when you save your 
relocated VOX2 to disk you must assign an 
entry point or your disk will reboot. The 
best entry point is 402DH, which will load 
VOX2 and avoid a reboot (this is the cor- 
rect address for TRSDOS and all of the 
NEWDOS versions, I cannot be sure of 
other operating systems). Basic can then 
be entered and the programs loaded and 
run with VOX2 waiting to run. Finally, be 
sure to set your memory size to 36863. If 
you fail to do this your Basic may flow into 
VOX2, destroying it. 

If you use a tape system, the relocated 
VOX2 will allow around 20K for a Basic pro- 
gram. If you use a disk system you will lose 
much of that space to the operating 
system and Disk Basic. In my 48K I have 
about 5K Basic programming room. One 
way to overcome this is to shorten the up- 
per memory by relocating VOX2 even 
higher in memory. Your vocabulary 
storage will be reduced but your Basic 
room will be increased. I have relocated 
VOX2 at several locations so that I can use 
long Basic programs with small vocab- 
ularies and vice versa. You must decide on 
which trade-off to make for your applica- 
tion. 

Vocabulary and its Use 

There are very few limitations on 
vocabulary. You can use a maximum of 
three seconds as long as you do not pause 
for more than 150 ms. Most people think 
that we speak with separations between 
words because that is how speech sounds. 
In fact there is very little or no separation 
between words. The person hearing the 
speech mentally imposes spaces. The only 
place spaces occur are on some per- 
cussive sounds such as are created by 
using the P,T and K sounds. What this 
means is that the phrase "Mow are you" 
easily fits into a three-second input. In 
fact, phrases are reproduced more ac- 
curately than single words. 

Choosing a vocabulary can be difficult. 
Words (especially short words) are easily 
confused by Cognivox. This is due to the 
digitizing process. "This", "its", "on" and 
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"Cognivox is a useful & fun 
addition to your computer hardware." 



"off" are very close in sound and recogni- 
tion will decrease with use of like sounding 
words. Careful substitution such as "turn 
on" and "go off" will increase response 
recognition. Voicetek claims up to 98 per- 
cent accuracy in recognition, but I have 
found that with a well chosen vocabulary 
and a little practice I can get 100 percent 
accuracy in most of my applications. 

If you have a pumped-up CPU and are 
not operating at 1.77 MHz you will not have 
three seconds to store words. My solution 
to this is to turn off the high speed with an 



Out instruction before voice input and 
then go back to high speed. When it comes 
time for Cognivox to speak, another Out in- 
struction slows the computer for the voice 
output and then returns to high speed. The 
easiest way to do this is to insert the slow- 
down Out instruction just before the 
DEFUSRx and the alternate Out just after 
the DEFUSRx, providing you can software 
control your CPU speed. Failure to reduce 
speed on training will limit word length 
and will cause a pause of less than 150 ms. 
to signal the end of a word. Also, failure to 



OEFUSR0 = 4H9000 Training cold start, also used in dialogue operation DEFUSR8. 

DEFUSR1 ■ &H9025 Speaker adaptation phase, also uses DEFUSR2 

OEFUSR2 = &H9029 Speaker adaptation phase with DEFUSR1 . 

DEFUSR3 = &H9035 First training pass. 

DEFUSR4 = &H9094 Second training pass, also used in word retraining with DEFUSR7. 

DEFUSR5 ■ &H9020 Voice response and recognition, also uses DEFUSR6. 

DEFUSR6 = &H9031 Voice response and recognition, also uses DEFUSR5. 

DEFUSR7 ■ &H9066 Word retraining, also uses DEFUSR4. 

DEFUSR8 = & H90B8 Dialogue operation, used with DEFUSRO. 

DEFUSR9 = 4.H9307 Tone generator— sound effects! 

Table 1. VOX2 DEFUSRx Assignments When Relocated to 9000H. 



reduce speed on voice output will cause 
Cognivox to sound like a tape recorder at 
high speed. The reverse error will output a 
sound similar to a tape recorder at very 
slow speed. VOX2 can. of course, be 
changed to allow the extra timing for high 
speed CPUs. The Basic solution is ade- 
quate and does not take up significant 
room. 

Conclusion 

Cognivox is a useful and fun addition to 
your computer hardware. It is the least ex- 
pensive way available to give a voice and 
ears to the computer. Cognivox is also the 
easiest voice I/O unit to program and to 
reprogram. No extensive phoneme pro- 
gramming is necessary. Some voice qual- 
ity is sacrificed, but with practice and a 
well chosen vocabulary, clarity and 
recognition improve. There is one impor- 
tant thing to consider, however. Everyone 
does not have a Cognivox, so your pro- 
grams will be used only on your machine. 
That makes Cognivox an expensive toy but 
is well made and well worth the money if 
you have a need for it. ■ 




TRS-80 OWNERS 
T REJOICE! 



Our professional quality software 
development tools let you program 
your TRS-80 with more ease and 
power than you ever imagined possi- 
ble. Programming will become a 
pleasure when you use our ful 
screen editors. These editors are not 
just patched up word processors. 
They have been specialty designed to 
enhance the BASIC and ASSEMBLER 
programming languages. Our 
assemblers provide full screen option 
menus to relieve you of the burden of 
remembering command names. Com- 
bine user oriented features like this 
with the finest and most extensive 
documentation in the industry and 
you will see why programming a 
TRS-80 is now better than ever. 






T-ZAL: TAPE BASED ASSEMBLER: Assem- 
ble to memory or tape. Create relocatable 
SYSTEM tapes! Includes relocating L0A0ER 
pgm 8 character symbols with XREF. 
Upgrades to disk when you do! 
Mod 3 Cat # 1250-20 S 41.95 

FULL SCREEN PROGRAM TEXT EOITORS: 

All CAU full screen editors support lour way 
cursor motion and scrolling with user selec- 
table auto repeat and scroll speeds. Totally 
visual character insert, delete, and change. 
Block move, copy delete. Global find and 
change. Editor lor BASIC also provides 
automatic kne renumbering and 26 user- 
definable macro keys. 
For Tape and Oisk BASIC: 
Mod 1 Cat # 1010-20 $24.95 
Mod 3 Cat # 1210-20 S29.95 
For Mod 1 E0TASM source files 
Tape Cat # 1010-30 S24.95 
Oisk Cat # 1010-31 S34.95 
iDti» >vi«i e Mpeee " •« iipt i 



M-ZAL. ™ DISK EDITOR/ASSEMBLER: 
Modular Assembler Language development 
system includes full screen text editor, multi- 
pass assembler, and object module linker. 
Allows 8 character symbols and source file 
chaining/nesting with 'INCLUDE cmd FuN 
support lor relocation and global symbols. 
Symbol table with cross reference. Req. 32K 
Disk system 

Mod 1 Cat * 1050-10 S149.00 
Mod 3 Cat # 1250-10 S14I.00 

XBUG DEBUGGING TOOL A MONITOR: 

Display/ Modify memory and regs. Set up to 
10 invisible and transparent breakpoints. 
Multi-speed single step Load/Copy/Create 
SYSTEM tapes Uses only 2.5K and can be 
dynamically relocated to any address 
Mod 1 Cat # 1020-10 SIMS 
Mod 3 Cat ff 1220-10 S19.SS 

Note: these products are not available for 
level 1 machines. 

When ordering specify Model. RAM size. # of 
disks. 

Send check, money order, or MC/VISA 
numbers and expiration date to: 
Computer Applications Unlimited 
P.O. Box 214. Dept. EEW 
Rye. New York 10580 

NY. State residents add applicable sales tax. 
Dealer Inquiries Invited 



m. 



nil COMPUTER 
/ APPLICATIONS 
/ UNLIMITED ^107 

* Do o' CAU IK 

Quality Reliability Service 
'T&S 80 is a TM ol Tandy Corp 



*-See List o/ Advertisers on page 418 
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VOYAGE OF THE 

VALKYRIE 







ly Leo Christopherson from AOS 
Combine the animation and music techniques 
pioneered by Christopherson with the chal 
lenoe of his first fast moving arcade game 
and you have VOYAGE TO VALKYRIE! 

You speed through a magical maze guarded by 
ferocious birds that swoop down to attack if 
you don't get them first. To list all the play 
and options of this exciting game would take 
the 16 pages of instruction included. 

Tape (TRS 80 16K) $34.95 

Disk (TRS-80 I6K. Apple 48K ) $39.95 




DUEL 

«N» 

DROIDS 



By Leo Christopherson from Acorn 
Teach your "animated android" how to wield a 
laser sword! Leo Christopherson, author of 
"Android Nl.Vi," "Dancing Demon." "Voyage to 
Valkyrie" and other animations, has developed 
a new type of animation and high guality 
sound in this work. 

Starting out as a lowly clown, you teach your 
'droid to use a laser sword by controlling its 
movements — advance, attack, even retreat if 
necessary. Then you enter the tournament 
against the program's skilled 'droid. Revel in 
the fanfares of the victorious - or hear the 
funeral dirges of the defeated' Entertainment 
for all ages. 

16K protected tape... $11. 95 
16K protected disk... $20. 95 

BATTLE OF SHILOH 

From Strategic Simulations 

Now Civil War buffs can engage in a realistic 
simulation of a major battle. Marching through 
the war-torn countryside, strategically using 
the forests, creeks, hills for defense, you re 
create every facit of the battle on a hex-grid 
map. If you had been in charge, would we 
still be whistling "Dixie?" 

16K tape. ..$24.95 

Visit our other stores: Seven Corners 



From Med Systems 

You are sitting alone at 2 AM. Your eyes are 
bloodshot as you peer into your computer's 
screen and cry, "I must be CRAZY!" If this 
has never happened to you, you've never 
tried ASYLUM. It's Med Systems most ambi- 
tious 3 D qraphics adventure yet! 

ASYLUM places you on a cot in a small 
(padded?] room. Periodically the janitor lobs a 
hand grenade through the window. What you 
do next could mean escape or disaster. 

16K tape.. .$14.95 
32K disk. ..$19.95 

Also order DEATHMAZE 5000, Med System's 
challenging 3 D maze game. Same prices as 
above. 

FORBIDDEN PLANET I 

By Wm. Demas from Fantastic Software 
The first TALKING adventure' With skill, 
luck, and tenacity and a little help from 

your chatty TRS 80 - you may survive Part 
One of this multipart adventure! You don't 
need a voice synthesizer, this program talks 
to you via the cassette port. And it's a good 
thing it does, 'cause otherwise you'd get 
mighty lonesome on desolate FORBIDDEN 
PLANET. 

48K disk.. .$39.95 

LOST COLONY 

By David Feitelberg from Acorn 
It's the world's first deep space colony and 
you are the economic manager. A remarkable 
simulation, LOST COLONY arms you with maps 
and charts as tools for resource management. 
You assign human and robotic labor, explore 
new land, and set production guotas. At the 
same time you must determine equitable pay 
scales and taxes. 

Communicate through your model I or III using 
full sentences or short commands. A chal- 
lenging game, it might give you insight into 
real life management as well. 



Crush.CrumHe 
and Chomp! 

From Epyx 

It's a monster movie, and you are the 
monster! You can be The Glob, Kraken. Man 
tra, Mechismo, Arachnis, or Goshilla -- or 
even design your own "custom" monster (disk 
version only). This hilarious action game Is 
loaded with graphics and sound as you prac- 
tice your villany. With 6 monsters, 4 cities, 
and 5 game objectives, you get a choice of 
more than 100 possible scenarios. A monster's 
life is not all carnivorous crunching, though. 
The combined resources of the police, sci 
ence, and armed forces are bent on your 
destruction. 

TRS 80 (16K tape or 32K disk), Apple ( 48K 
disk). ..$29.95 

TIGERS IN 

THE SNOW 

From Strategic Simulations 

Highly sophisticated simulation of World War 
It's Battle of the Bulge. Your troops are en 
camped in the French forests of the Arden- 
nes, ready for the first wave of this key 
assault. The battle requires complex strat 
eoies and a good grasp of the overall situa 
tion: troops, artillary, terrain, support, and 
timing. Are you up to it ? 

16K tape... $24. 95 

Unbelievable Realtime 3-D Graphics! 




16K protected tape.. .$19.95 
32K protected disk... $19. 95 

Center ■ Falls Church, VA & 



From Sub Logic 

The wait is over! If 3 D graphics seem impos 
sible on the low resolution TRS 80, you 
haven't seen this brilliant program. During 
FLIGHT SIMULATION, you instantly select 
instrument flight, radar, or a breathtaking 
pilot's-eye view. But be sure to strap your- 
self in you're liable to get dizzy! 

Once you put in some air time learning to fly 
your TRS 80, head for enemy territory and 
try to bomb the fuel depot while fighting off 
five enemy warplanes. Good Luck! 

NOW FOR MODELS I t III' 
16K tape... $25. 00 
32K disk.. .$33.50 



W. Bell Plaza ■ 6600 Security Blvd. ■ Baltimore, MD 



TO ORDER CALL TOLL FREE 800 424-2738 



For information 
Call (202) 363-9797 



- 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept. 8E12 Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1 .00 postage & handling. D.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 



Get the most from your micro with 
software and accessories from one of 
the worlds largest selections. 



The 

frog, ram 

Store 



CALL TOLL FREE 

800424-2738 




By Sparky StarksTrom Adventure Int. 
As mercenary and galactic police officer, you 
must maintain the condition and control of all 
parts of your spacecraft. You sit at the con 
trols while peering out of the digital space 
view port. Suddenly something appears on 
your screen, is it a Starpirate or a friendly 
merchant ship? You can't tell yet, and at this 
speed you may have only a fraction of a 
second to make an attack /no attack decision. 

Model I (III. 16K tape. .. $21.95 
Model I disk version $29.95 

MISSILE ATTACK 

By Philip Oliver from Adventure Int. 
You must use your twin silos of ABMs to fend 
off barrage after barrage of enemy missiles 
that rain down toward your cities. As your 
skill increases so does the difficulty and 
speed of this machine language arcade game. 
Watch the skies and may your aim be true! 
MISSILE ATTACK has sound and fast moving 
graphics galore. 

16K tape... $14. 95 32K disk. .. $20.95 




LUNAR 



By Wall & Moncrief from Adventure Int. 
You get a vast lunar landscape, graphically 
depicted in both long range and close up, 
with many choices for landing sites. Choose a 
more difficult site and get more points -- if 
you can land successfully. You have complete 
control of your LEM via main engines and 
small side thrusters, and a successful landing 
is heralded with a flag raising ceremony. 
Great oraphics and sound add to the realtime 
challenae and fun. 

16K tape. . .$14.95 




ttt* SCARFMAN 



From Cornsoft Croup 

Action filled arcade game that pits you against 
the monsters. Race your Scarfman around a 
maze, gobbling up scoring dots. You are pur- 
sued by five monsters : if you eat a "•>" they'll 
lower their eyes and you can eat them, other 
wise they'll eat you! 

With exciting graphics and sound, SCARF 

MAN may be played using the keyboard or 

Alpha Product's Joystick. WARNING: MAY BE 

HABIT FORMINC' 

Tape. ..$15. 95 

Disk (specify mod. I or III). . .$19.95 



'■ 



VOICE 
Sound Effects 

By Hogue" 1 1 konyu from Big Five 
One of the top names in TRS 80 arcade games 
adds a new dimension: voice sound effects! 
It's you against the robots in this fast 
moving shoot-em-up. Electrified Mazes and 
the "Flagship" complicate things as you stalk 
the evil androids. 

The innovations built into ROBOT ATTACK 
take your TRS 80 near the limits of its capa 
bilities. You MUST see and hear it! 

16K tape $15.95 32K disk $19.95 




INVADERS «^ SPACE COSMIC FIGHTER 



By Carl Miller from Acorn 

A fast machine language approach to this 

classic (and addictive) space game. The 

aliens drop bombs, move around, and try to 

overrun your bases. 

You choose the speed, enemy bomb freguency 

and accuracy, and how many shots and bases 

you have. Unlike other games of this type, 

you can move your base and simultaneously 

fire at the invaders. Fun for all ages and skill 

levels, it has full sound effects for even more 

excitement . 

16K protected tape $14.95 

16K protected disk $20.95 

SUPER NOVA 

By Hooue I Konyu from Big Five 
Asteroids surround your ship. You must shoot 
the asteroids, as well as any of the five types 
of alien spaceships. Use your thrusters for 
full movement and rotation of your ship - if 
you are overwhelmed, you can even jump to 
hyperspace! Written in fast machine code with 
superb graphics, this game is GREAT ! 
16K tape $15.95 32K disk $19.95 




By Steven Kearns from Acorn 
Gigantic antimatter rocks appear on the Tac- 
tical Display Screen of your spacecraft. You 
blast away with lasers and they just explode 
into smaller chunks. To score in this fast ar 
cade game with sound, you must destroy the 
rocks. To stay in the game at all, you must 
avoid them! 

To add to your woes, time bombs appear peri 
odically. If their timers reach zero BOOM' 
And if that's not enough, the aliens will be 
glad to send out some spaceships loaded with 
antimatter torpedoes. Fire thrusters to move, 
shoot laser cannon, jump to hyperspace 
anything to avoid the onslaught. One or two 
players can compete, with nine levels of diffi- 
culty . 

i6K protected tape. . .$19.95 
16K protected disk.. .$19.95 



By Hogue t Konyu from Big Five 
Terrific sound, graphics and unique chal 
lenges mark this space game a winner! While 
fighting off the alien convoys each more 

skillful than the last you must keep track 

of your rocket fuel or risk explosion. Finally 
your space station appears. Can you dock 
immediately, or is the station overrun by 
aliens? Find out by ordering Cosmic Fighter 
today . 

16K tape.. .515.95 32K disk. . . $19. 95 




METEOR 
MISSION 

2 



By Hogue 6 Konyu from Big Five 
Six astronauts are stranded on a desolate 
planet. You must undock from your command 
module and maneuver your rescue shuttle 
through the asteroid field to save them. You 
can only save one at a time, and each landing 
burns away parts of your landing sites. 
Order this realtime action game now or live 
with the astronauts' pitiful screams forever. 
16K tape. ..$15.95 32K disk. . .$19.95 




ATTACK 
FORCE I 



By Hogue & Konyu from Big Five 
Unlike the usual "shoot-em-ups, " Attack 
Force lets you control both speed and direct 
ion as you maneuver all over the screen in 
search of the alien Ramships and Flagships. 
Enemy ships chase you everywhere, and the 
Flagships' lasers can fire in any direction! 
The Ramships can even impersonate your 
spacecraft, so don't look away even for an in- 
stant. Machine language action with sound. 

16K tape. ..$15.95 32K disk. .. $19.95 
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REVIEW 



A flawed first look at the business of building computers. 



The Soul of a New Machine 



The Soul Of A New Machine 

Tracy Kidder 

Atlantic Little, Brown 

293 pgs. 

$12.95 Hardcover 

Chris Brown 

80 Microcomputing staff 



As narrative history, Tracy Kidder's book 
The Soul Of A New Machine fails. By 
the last sentence the reader has no more in- 
sight into the principal characters and their 
dilemma than at the book's beginning. I 
hesitate to say this because I like so much 
about Kidder's book; it is tempting to allow 
his shortfall simply because he is the first 
contemporary journalist with the good 
sense to take the leaders of the computer 
revolution seriously. Kidder writes with 
style and skill but the reader demands more 
than timeliness. 

The book is a first-person narrative. It 
describes the events surrounding the devel- 
opment of Data General Corporation's 
Eclipse NV/8000, 32-bit super minicomput- 
er. The story is rife with accounts of corpor- 
ate infighting, personality conflicts, the ex- 
ploitation of young engineers and the survi- 
val savvy of grizzled project managers who 
have seen it all before. In fact, the tale is the 
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stuff of a computer adventure game: Will 
the design group get the resources to finish 
the project? Will dissension split the team 
before the debugging is over? Can Tom 
West, the aloof project manager, get his 
baby out the door with his name on it? If the 
young engineers succeed will they be re- 
warded by being allowed to do it all over 
again? 

Throughout the book the Eclipse 
development project assumes the trap- 
pings of a children's crusade. Set in the 
maze-like caverns of Data General's block 
house headquarters in Westboro, MA, the 
story details with fascinating accuracy the 
birth of a new computer. The cast of charac- 
ters is comprised of green engineers fresh 
out of school and full of enthusiasm, and 
their beleaguered supervisors. The young- 
sters divide according to function: The 
Micro Kids write the micro-code and associ- 
ated system software, the Hardy Boys de- 
termine system architecture and hardware 
designs. 

Guided by veterans of previous Data Gen- 
eral projects (and battles) the kids attempt 
the impossible: to build a state-of-the-art 
computer in less than a year. Data General's 
financial well-being is at stake: Its arch 
rival, Digital Equipment Corporation, has 
already designed and marketed its own 
super-mini, the VAX. 

Data General outpoints its competition 
by producing a 32-bit machine software- 
compatible with its earlier, 16-bit comput- 
ers and taster at number crunching than 
DEC'S machine. The plot thickens when Ed 
DeCastro, the acerbic president of Data 
General, demands that the new machine 
function without a mode bit. Though the au- 



thor never explains what a mode bit is, he 
does hint that it is a quick and dirty way to 
make a 16-bit machine act like a 32-bit ma- 
chine and, even worse, an easy way out of 
the design dilemma. 

(For the record, a mode bit is similar to 
setting a flag in a microprocessor's condi- 
tion code register. This flag invokes a soft- 
ware instruction that tells the computer to 
change its operating mode. A new set of in- 
structions is laid over the old and, in the 
case of the Eclipse machine, the changes 
are devastating.) 

Kidder's attention to detail and journalis- 
tic style make the book a joy to read and. by 
contemporary standards of technical litera- 
ture, a masterpiece. Unfortunately, literary 
standards higher than those of technical lit- 
erature must be used to judge Kidder's 
work. 

The book's most glaring fault is Kidder's 
character development. The people in his 
book never become more than shadowy im- 
ages. Like the forces that drive them, the 
personae of Kidder's engineers, particularly 
project leader Tom West, lie buried below 
the surface of the narrative. 

Kidder's role in the whole project is never 
clarified. Toward the end the author says of 
his protagonist, the enigmatic Mr. West, 
"he welcomed a journalist to observe his 
team; and how it did delight him when one 
of the so-called kids remarked, 'what we're 
doing must be important if there's a writer 
covering it.'" This statement, in addition to 
the abrupt introduction of the first person 
early in the book clouds Kidder's role. His 
relationship with West and Data General is 
never clear; it is far-fetched to assume that 
he simply hung around the cubicles and 



NEW PRINTERS. NEW 
PERIPHERALS. SAME OLD RELIARLE 
QUALITY AND VALUE. 

1982 will find more OEM's, businesses, dealers and personal computer 
users turning to MICROTEK than ever before. 



TckWritcr-1 




TckWritcr-2 



80 Column Dot 
Matrix Printer 
(Formerly BYTEWRITER-1) 

The Tekwriter-1 printer is, dollor for 
dollar, the finest value in the 
industry And we've proved it by 
comparing the Tekwnter-1 to 
the Epson MX-80. Our print speed 
is 14 lines per minute foster, our life 
expectancy is longer, the character 
sets are the same, and the 
interface, worronty and printhead 
replacement cost ore all identical * 
But the biggest difference is the 
price. The Tekwriter-1 is about 
$300 less 

Our extensive testing has proved 
that the Tekwnter-1 interfaces 
problem-free to the TRS-80, the 
Apple II and the Atari 400 and 800 

The Tekwriter-1 is tough to beat for 
performance and quality. 

•Dote Sovr<«. Ef»on MX-400 Operation Manual 



$349 




NEW! 80 132 Column 
Dot Mattix Printer 

The Tekwnter-2 is perfectly suited 
to personal, business or OEM 
applications. Tekwnter-2 is 
designed to accept single sheet, 
roll or pm feed paper It has 
a 9-wire dot matrix impact 
print head which produces crisp 
characters and hos underlining 
capability. The printer is 
manufactured to run extremely 
quietly even while operating at 
peak output levels 

Tekwriter-2 is especially well suited 
to handle on abundance of text 
entry because of its data buffer 
expansion capability to 25K This 
ability makes it on efficient 
graphics generator. 

Parallel interface {Centronics 
type). Interfaces all models of 
TRS-80, Apple, and Atari 400-800, 
and most computers with 
Centronics printer interface. 



$695 



Quantity and OEM discounts avai 



Continuing our quest for excellence. 



TRS-tO ik a fcadwnaf k of Radio Shack. Inc. 
Aj«fc"» I n u "uifno-i of Ap©*» Comou**. l"*c 
A'on 400400 ar» »od«w»orlii at Ator . k - 
M.r rMod ii a tr aa awi ah of Viwowfi Cortsuaw 

Product*, Inc 
/• 10 « o »odM*ork of ZBog , inc. 
Vitieak i* a trademark of Amoral Software. Inc. 




Peripherals 




16K Memory Board, AMB-16 

16K 4116 RAM (200NS) 

• Assembled and tested • No 

modifications — hardware or 

software • Compatible with Atari 

800 

32K Memory Board, AMB-32 

32K 4116 RAM 
(200NS) • Assembled and 
tested • No modifications — 
hardware or software • 
Compatible with Atari 400-800 

Atari (RS-232) Serial 
Printer Cable 
Pre-tested • 3 length • DB15 to 
DB25 connectors 

Atari Parallel Printer 

Cable 

Pre-tested «3' length • Centronics 
compatible • DBl5 to Amphenol 
57 30360 

16K Apple Memory Card 

Expands Apple II to 64K RAM 
memory Works with MICROSOFT 
Z 80 Softcard, Apple PASCAL and 
Visicalc software. 




MICROTEK 



MICROTEK 

9514 Chesapeake Drive 

Son Diego, CA 92123 

(714)278-0633 •«* 

Outside CA call 

Toll Free (800) 854-1081 

TWX 910-335-1269 



inc. 



corridors of Data General for a year while 
the project ran its course. The question 
nags and demands an explanation. 

Kidder's portrayal of the computer engin- 
eer of the 80s is not flattering. The 
engineers who people his book are one-di- 
mensional—technical. They are routinely 
exploited by their employer, preoccupied 
with technology, unaware of current social 
or economic issues and generally seem like 
products of an educational system that 
puts a premium on specialization. In fair- 
ness, I must also say that they are young. 
The exception is Josh, an introverted 
designer who bails out of the project and 
heads for a commune in Vermont claiming 
that he will no longer deal with any unit of 
time shorter than a season. 

Kidder's book conveys the impression 
that computer engineers over 30 years of 
age don't die, but fade away into marketing 
jobs; the fate of Project Leader West. This 
mysterious figure, who opens the book as a 
firm hand on the tiller of a storm-tossed sail- 
boat, ends up hawking computers in Data 
General's marketing office, a rather inglor- 
ious end for a renegade portrayed more at 
home in a cockpit than a cubicle. 

The author editorializes at the book's 
end. In a chapter titled "Canards" he sums 
the action and draws some conclusions in 
an attempt to supply cohesiveness to a 
book that likely evolved the way the com- 
puter he discusses has — in pieces. 

Analyzing the motives of some of his 
characters, Kidder compares the engineers 
of the Eclipse project to the stone masons 
who helped raise Gothic cathedrals 
throughout Europe. He says, "They (the 
stone masons) were building temples to 
God. It was the sort of work that gave mean- 
ing to life. That was what West and his team 
were looking for, I think." And so it seems. 
But don't most of us look for meaning and 
importance in what we do? 

Ultimately, Kidder's engineers are like 
other mortals. They search for meaning in 
what they do, invent some where there is 
none, and make the compromises that life 
requires just to stay in business. In spite of 
the heroics, all they have done is design a 
computer. 

The Soul Of A New Machine may not be 
the definitive work of narrative history, but it 
is certainly the first serious journalistic ef- 
fort to deal with computers and the men 
and women who build them. Tracy Kidder 
removes some mystique from computer 
technology and provides insight into the 
creators of these machines. His fondness 
for things technical and his ability to com- 
municate the beauty and excitement of 
computer building are laudable. Despite its 
short-comings, The Soul Of A New Machine 
is well worth reading.! 
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LDOS DEALERS 



Arizona 

• Simutek 

Tucson 85712 16021323-9391 

Arkansas 

• Micro Computer Systems. Inc. 
Hotspnngs 71901 15011623-5209 

California 

• B.G.L. Technology 

Van Nuys 91409 12131 7870535 

• Berkeley Microcomputers 
Berkeley 94701 (415)848-7122 

• Byte Shop of Placentia 
Placentia 92670 (714) 524-5380 

• Byte Shop of San Diego 

San Diego 921 1 1 (714)565-8008 

• Central Campbell Computers 
Campbell 95008 (408) 370-0199 

• Computer Forum 

Santa Fe Springs 90670 (21 3) 92 1 -2 1 11 

• Computerland of 1000 Oaks 
Thousand Oaks 91360 I805I 495-3554 

• Dimensional Software 

San Diego 92117 (714) 275-4243 

• Hobby World 

Northridge 91328 12131 886-9200 

• Howard Industries 

Anaheim 92806 17141 778-3443 

• J & R Inventory 

Santa Ynez 93460 (8051 688-8781 

• Jim's Computer Service 

Laguna Nigel 92677 1714) 831-8063 

• Laredo Systems 

Santa Clara 95051 (4081 980-1888 

• Lobo Drives International 
Goleta 93117 (805)683-1576 

• Micro Computer Tech . Inc. 
Santa Ana 92704 (714) 979-9923 

• Micro Doc 

San Gabriel 91776 (213) 2850534 

• Patio Computer Sales 

North Hollywood 91605 1213) 762-0020 

• RBI. Commnet 

Riverside 92505 (714) 359-6884 

• Santigo Technology 

Irvine 92713 (714)551-2610 

• Teem Quest 

Palm Desert 92260 (7141 340-5331 

• Wholesale Technology. Inc. 
Santa Ana 92704 (7141 979-1700 

District of Colwnhia 

• The Program Store 

Washington. DC 20016 (202) 363-9797 

Florida 

• Adventure International 
Longwood 32750 (3081 830-8194 

• All Systems Go 

Wintergarden 32787 (305) 877-2830 

• Computer Junction 

Ft. Lauderdale 33310 (305) 791 0580 

• H.I.S. Computer mation 
Melbourne 32901 (305) 254-9399 

Idaho 

• Idaho Micro Computer 

Buhl 83316 1208)543-6292 

• Thompson Sporting Goods 
Rexburg 83440 (208) 356-9245 

tkmk 

• The Byte Shop, Incorporated 

La Grange 60525 (312) 579-0920 
•CMS 
Chicago 60657 (312) 327-7550 

• Garcia & Associates 

Chicago 60601 (312) 782-9750 

• Information Concepts 

Richton Park 60471 (312) 748-2426 

Kansas 

• Cottage Software 

Wichita 67208 (316) 668-3481 



Kentucky 

• Computer Magic 

Louisville 40207 (502 1 893-9334 

Louisiana 

• The Computer Shoppe 
Metairie 70002 (504)454-6600 

Maryland 

• The Program Store 

Baltimore 75710 1301)944-0200 

Massachusetts 

• Miller Micro Computer Service 
Natick 01760 

• Omnitek Systems 

Tewksbury 01876 (61 7) 851 -4580 

• Small Business Systems Group 
Westford 01886 1617) 692-3800 

Michigan 

• The Alternate Source 

Lansing 48910 151 7| 4850344 

• A.M. Electronics, Inc 

Ann Arbor 48106 (313)973 2312 

• Breeze Computing 

Berkley 48072 1313)288-9422 

• Computer Center 

Garden City 48135 (313) 425-2470 

• Computerland of Kentwood 
Kentwood 49508 (6161 942 2931 

• Soft Sector Marketing, Inc 
Garden City 48135 (313)425-4020 

• The 8 Bit Corner 

Muskegon 49440 1616) 722-0050 

• Tri County Electronics 

Fenton 48430 (313)629-5767 

Ntvada 

• Huriey Electronics 

Las Vegas 891 14 (702) 384-5666 

Now Hampshire 

• Portsmouth Computer Center 
Portsmouth 03801 (603)431-7438 

• TSE Hardside 

Milford 03055 (800)258-1790 

Now Jersoy 

• Computer Madness 

Englishtown 07726 (201 ) 462-9696 

• Crowfeys Radio Shack 
Whitehouse Station 08889 
(2011534-2722 

• J & J Electric/Radio Shack 
Hackettstown 07840 (201 1 852-6976 

• M-T Electronics 

Sparta 07871 (201)729-5719 

• The Computer Forum 

Redbank 07701 (201)530-9103 

Now Mexico 

• Autel Electronics 

Albuquerque 87108 1505] 255-6451 

• Data Base. Inc. 

Albuquerque 89112 (505) 881-5362 

Now York 

• A World of Computers 

Port Chester 10573 1914) 937-6662 

• B.T. Enterprises 

Centereach 11720 (51 6| 981-8568 

• Computerland of Nassau 

Carle Place 11514(516)742-2262 

• Computerland of New York City 
New York 10036 (212)840-3223 

• Computerland of White Plains 
White Plains 10603 (914) 328-0144 

• Computronics 

Spring Valley 10977 (800)431-2818 

• Digibyte Computers Center 

New York 10016 (212)889-8130 

• Future Visions Computer Store 
Melville 11747 (516)423-7820 

• Integral Business Systems 

Jackson Heights 11370 1212) 695-6300 

• JFA Electronics 

Troy 12180 (518)273-8411 

• Micro Images 

Flushing 11352 (2121445-7124 

• Mini Micro Mart 

Syracuse 13203 (3151422-4467 

• John D. Owens Associates. Inc 
Staten Island 10305 (212) 448-6283 

• Programs Unlimited 

Jenco 11753 (516)997-8668 

Ohio 

• Micro Mini Computer World, Inc 
Columbus 43213 16141235-5813 



Oklahoma 

• The Computer Store 

Tulsa 74105 1918) 747-9333 

• Teel Electronics/ Radio Shack 
Claremore 74017 (918)341-0987 

• Vern Street Products/Radio Shack 
Sapulpa 74066 19181224-4260 

Pennsylvania 

• Computer Analyst 

New Briton 15066 14121 846-9336 

• Erie Computer 

Er.e 16505 1814)454-7652 

• I Systems 
Edmboro 16412 

• Stevens Electronic Radio Shack 
Phoemxville 19460 (215)933 3441 

• V R Data 

Folcroft 19032 1215)461 5300 

Texas 

• Access Unlimited 

Richardson 75080 (2141 690-0206 

• Aerocomp 

Dallas 75232 1214) 337-4346 

• AT-80 

Dallas 75211 (214)339-0498 

• Computer Sales and Service 

Fort Worth 76101 (8171244 8052 

• Computer Shack 

Tyler 75702 (2141595-4216 

• Computers To Go 

Austin 78705 (5121 472-8926 

• Computex 

Webster 77598 (713)488-8022 

• Corsair Computer 

Fort Worth 76101 (817) 344-8051 

• Quality Software Distributors 
Dallas 75229 1214) 484-5783 

• Texas Computer Services 
Arlington 76010 (817)265-1524 

• Total Access 

Richardson 79408 (214) 234-1770 

Virginia 

• Misosys 

Alexandria 22303 (703) 960 2998 

Washington 

• 80-US Journal 

Tacoma 98409 (206)475 2219 

Wisconsin 

• Galactic Software, Ltd 
Mequon 53092 (414) 241-8030 

• Omega Micro 

Milwaukee 53208 (4141 342 9080 

• Petted Micro Systems 
Milwaukee 53221 1414)282 4161 

Betqium 

• Micro 2000 
Brussels 

Canada 

• Cesco Electronics, Ltd 
Montreal H4P1W1 

• Microwest Distributing. Ltd. 
North Vancouver V7P 1M6 

• Computer Shop 
London 

• Croydon Computer Center 
Thornton, Heath, Surrey 

• Calisto Computers, Ltd. 
Birmingham B1 7 BE 

• Molimerx, Ltd. 
Sussex 

• & J House LTD. 
Dorset 

• Q-Tek Systems LTD 
Stvenage, Hertz 

• P.J. Equipment LTD 
Guildford. Surrey 

• Thomas Wright Bradford. Ltd 
Bradford, West York BD4 8B2 

Franco 

• Graphie 
93100 Montreuil 

Holland 

• Software Import Brabant 
Endoven 

Netherland 

• Computer Collecttet 

1017 AP Amsterdam 35 



Now for theTRS-80 Models I & 




DOUBLE Sided & DOUBLE Density support 

AUTOMATIC Density recognition. 

35, 40. 77, 80 and any other track counts are supported 

All available drive stepping rates are supported. 

Hard Drive support, can be HANDLED AS A SINGLE DRIVE. 

Hard drive partitioning, one drive can act as up to six 

Intermix 5 ". 8" and Hard drives, up to a total of 8 drives. 

Compatible with the Model I Radio Shack Expansion Interface 

Upward compatible with TRSDOS (2.3 & 1 2 as documented) 

Fully supports Microsoft language products for the TRS-80. 

Complete media compatibility Model I to Model III and back. 

Full support lor LOBO's LX-80 interface 

Full support for AEROCOMP LC double density controlled DDC) 

Full support tor PERCOMs DOUBLER II. 

Complete documentation (well over 250 pages) 

Complete technical information. 

A TOLL-FREE 800 number for customer service. 

An LDOS users bulletin board on MicroNET. 

A Quarterly LDOS users magazine (The LDOS QUARTERLY) 

A liberal update policy 

An enhanced BASIC (LBASIC) including 

> Upward compatible with Microsoft Basic 

> High speed LOAD and SAVE 

> Run muitple programs with common variables. 
BLOCKED (variable length) files are supported 
DOS commands may be executed from LBASIC. 

> Built m string array SORT. 

> Single stepper for debugging 

> Several new statements and file modes 



A compled JOB CONTROL LANGUAGE ( JCL). 
CONVert utility to move files from Model III TRSDOS. 
An Extended Debugging and Monitor program (with dish access) 
CMDFILE for movement of disk and/or tape system f/CMD) files 
Device independent operation 

Full LINKing ROUTEmg. FILTERmgandSETtng are supported 
MiniDOS feature for constant access to certain DOS commands. 
RS-232 DRIVER for serial support 
1 Sophisticated communications software included. 
Wildcard characters and partial Filespecs are supported. 
DATED FILES, show when a file was last written to. 
Backup: Mirror, by Class, if Modified, by Date, by Extension, etc. 
Selectable PURGE for fast disk cleanup' of unwanted files. 
Print formatter, for control of printer output. 
Built m printer SPOOLER, to both disk and ram 
Joblog to record all system operations with time stamps 
UPPER and tower case support, throughout the system 
Blinking cursor with selectable cursor character. 
128 character TYPE AHEAD buffering for keyboard input 
Assign strings to individual keys with Key Stroke Multiply (KSM). 
SUPER FAST operation with the SYSRES feature. 
Extensive user control and system feedback 
Advanced PATCH utility for easy maintenance. 
Complete transportability of software among all Z-80 LDOS 

systems through the use of the LDOS high ram supervisory 

call system (SVC). 
Dealers to serve users Nationwide and in the Common Market. 
The only DOS with a limited ONE YEAR WARRANTYl 
Enjoy a professional operating system on YOUR TRS-80' 



" Specific hardware is required to use these features. 



The Ultimate In 
Operating Systems 
For Model I & III 



Only $ 



169 

s l 



00 



* Model I LDOS provided on 35 (rack single density madia 

• Model III LOOS provided or 40 track double density media. 

• LOOS can be provided on speoei media configurations at an 
additional charge 

* Price* 4 Specifications are subject to change without notice 
+ Although not required. LSI recommends two ex more drives 

when usint LDOS 



For Further Information Contact The Distributor Or Dealer Nearest You: 



(West) 

LOBO DRIVES INTX 

394 S Faeview Awe 

Goieta. CA93117 

00 0« I . ."- 



(Central) 
GALACTIC SOFTWARE LTD. 

1 1 520 N. Port Washington Rd. 
Mequon. Wl S3092 

(414)241-0030 



I East) 
MISOSVS 

5904 EdgeriiN Dr 

Alexandria. VA 223G3 

(703) 9QO-2998 



(The Common Market) 
MOLIMERX LTD. 

1 Buckhurtt Rd.. Bexhili 
Sussex. England 

(0424V 220391 



OCALER INQUIRIES WELCOME. LDOS If a product of LSI TRS SO A Radio Shack are trademarks. 
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OGICAL 
SYSTEMS 
INC. 

Mequon, Wl 53092 
(414)241-3066 



APPLICATION 



Housekeeping programs for the Pocket Computer. 



Shopper's Aid 



R.C. Maninger 
146 Roan Drive 
Danville, CA 94526 



Several months ago, steadily rising food 
costs prompted me to explore ways 
that I could use my personal computer to 
help control our family's food costs. 

After going on a number of food shop- 
ping tours, it seemed that the best way to 
use the computer would be to apply unit 
pricing data to guide buying decisions on 
quantities, brand names and also which 
stores to go to for items. Yet, in practice, 
this required a lot of time for tedious and 
continuous data input and for interfacing 
with the computer. Specifically, the menu 
planning and shopping list preparation took 
a lot of time to devise and input. Also, at the 
food market, "as bought" price and quanti- 
ty data had to be written down so it could be 
processed and entered into the computer at 
home. The project on computer-aided food 
shopping soon faded away. 

Pocket Computer to the Rescue 

Then came the TRS-80 Pocket Computer. 



UM 


Function Um 


"l" 


Enter shopping list 100 


-S" 


Summarize status of list in memory 180 


•C" 


Change item name and/or price 1 SO 


"SPC" 


Initialize prices on list for buying 330 


"A" 


Automatic selection of item for buying 170 


"B" 


Random selection of item for buying 130 


Table 1. Program Labels and Functions 



I bought one along with the cassette inter- 
face and recorder for some experimenta- 
tion in applications. My first ideas for 
programs were based on the shopping aid 
programs mentioned above. The portability 
of the computer and cassette recorder 
allows their use at any time in the kitchen, 
in the food stores, or in the automobile. This 
convenience, along with properly planned 
application programs, can offset the limita- 
tions of memory size and display capability. 
Program Listing 1 is the result of a num- 
ber of trial uses in grocery shopping. The 
tape file name GPSA comes from General 
Purpose Shopper's Aid. This program repre- 
sents a combination of the following: 

• Size of data file that can be held in 
memory, 

• Speed of response to user commands, 

• Convenience of use, and 

• Use of the interesting features of the 
software and hardware design of the 
TRS-80 Pocket Computer. 

GPSA is used in the DEF mode. It per- 
forms six functions as listed in Table 1. 
Each function can be selected at any time 
by keying in SHFT (Label). The first four 
functions are used to prepare the shopping 
list of up to 64 items. The last two functions 
are used at the store for actually buying 
items. Note, however, that the first three 
functions can also be used to modify the 
shopping list at the store after the buying 
has started. The detailed procedures for us- 
ing GPSA are given in the next sections. 

The Shopping List 

When a new shopping list is to be creat- 
ed, the Clear command should be entered 
to remove unwanted data In memory. Next, 
key in SHFT L. The message Limit = $0 will 



be displayed momentarily followed by the 
Change Limit? query. At this time, the 
amount of money budgeted for the shop- 
ping list should be keyed in and entered. 
(This amount can be changed at any later 
time if desired.) The next display will be a 
momentary Next Item = 1 followed by Item? 
The name of the first item on the shopping 
list is now keyed in and entered. (Maximum 
length is seven characters.) The question 
Price = Units* Unit Cost? is displayed next. 
At this point, the price of the item can be 
keyed in and entered either as a single price 
or as an arithmetic expression. For exam- 
ple, the expression could be 2 x 1.39 for 
two pounds of an item at $1.39 per pound. 
Only the total price of $2.78 will be put into 
memory. 

After the price entry, the message Next 
Item = 2 will appear and be followed by the 
question Item? The name of the second 
item and the price for it are entered. This 
process is continued until the computer is 
shut off, another function is called, or the 
message List Full is displayed. In any case 
whatever has been entered into memory will 
be retained unless the Clear command is 
keyed in or price data is altered by SHFT 
SPC as described below. If the list is not 
full, an interrupted entry function can be 
resumed at any time by turning the com- 
puter on and/or keying in SHFT L. The cycle 
of entry will again start from where it was in- 
terrupted. A reminder of the budget limit 
and an opportunity to change it will be 
given. Then the next entry number will ap- 
pear and the next item be requested. 

The List Full message appears when 
memory Is filled to capacity with 64 entries. 
This also signifies that the list entry func- 
tion is automatically terminated to prevent 
crashing the program. If a list has been 
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PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL III 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive relerence guide to the Level II ROMs which allows 
the machine language or Basic programmer to easily utilize the sophisticated routines 
they contain Concisely explains set-ups. calling sequences, and vanable passage for 
number conversion, arithmetic operations, and mathematical functions, as well as 
keyboard, tape, and video routines Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes in both Basic and 
machine code with the speed and efficiency of a compiler In addition, the 18 chapters 
include a large body of other information useful to the programmer including tape 
formats. RAM useage. relocation of Basic programs. USR call expansion, creating 
SYSTEM tapes of your own programs, interfacing of Basic vanables directly with ma- 
chine code, a method of greatly increasing the speed at which data elements are stored 
on tape, and special precautions for disk systems. INSIDE LEVEL II is a clearty organized 
reference manual. It is fully typeset and packed with nothing but useful information. It 
does not contain questions and answers. ROM dumps, or cartoons. 
Includes updates for Model III. INSIDE LEVEL II $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine language program one 
instruction at a time, and see the address, hexadecimal value, Zilog mnemonic, register 
contents, and step count for each instruction. The top 14 lines of the video screen are left 
unaltered so that the target program may perform its display functions unobstructed. 
STEP80 will follow program flow right into the ROMs, and is an invaluable aid in learning 
how the ROM routines function. Commands include step (trace), disassemble, run in 
step mode at vanable step rate, display or alter memory or CPU registers, |ump to 
memory location, execute a CALL, set breakpoints in RAM or ROM, write SYSTEM 
tapes, and relocate to any page in RAM. The display may also be routed to your line 
printer through the device control block so custom print drivers are automatically sup- 
ported 
Specify Model I or Model III. STEPS') $16.95 

TELECOMMUNICATIONS PROGRAM 

This machine language program may be used as a smart terminal with time share 
systems or for high speed file transfers between two disk - based micros over modems or 
direct wire. It is menu driven and extremely simple to use. Functions include real-time 
terminal mode, save RAM buffer on disk, transmit disk file, receive binary files, examine 
and modify UART parameters, program 8 custom log-on messages, automatic 16-bit 
checksum venfication of accurate transmission and reception, and many more user 
conveniences Supports hne printers and lowercase characters. With this program you 
will no longer need to convert machine language programs to ASCII for transmission, and 
you will know immediately if the transmission was accurate This program comes on a 
formatted disk. 
Specify Model I or Model III. TELCOM $39.95 

PROGRAM INDEX VERSION 2.0 

Assemble an alphabetized index of your entire program library from disk directories 
Program names and free space are read automatically (need not be typed in) and may be 
alphabetized by disk or program The list may also be searched for any disk, program, or 
extension: disks or programs added or deleted: and the whole list or any part sent to the 
pnnter. Printer output may be requested in three different formats including labels. The 
list itself may also be stored on disk for future access and update It also includes a 
PURGE mode for quickly killing unwanted files Directory reads and alphabetizing is 
done m machine code for speed. 1.000 programs may be sorted in less than 10 seconds. 
Works with TRSDOS. NEWDOS. and NEWDOS 80 single or double density. One dnve 
and 32K required. 
Specify Model I or Model III. INDEX $24.95 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2 clock modification allows CPU speeds to be switched between normal, an 
increase of 50° o. or a 50°. reduction: selectable at any time without interrupting execu- 
tion or crashing the program Instructions are also given for a 100% increase to 3.54 MHz. 
The SK-2 may be configured by the user to change speed with a toggle switch or on 
software command it will automatically return to normal speed any time a disk is active, 
requires no change to the operating system, and has provisions for adding an LED to 
indicate when the computer is not at normal speed. It mounts inside the keyboard unit 
with only 4 necessary connections for the switch option (switch not included), and is 
easily removed if the computer ever needs service The SK-2 comes fully assembled 
with socketed ICs and illustrated instructions. 
Model I only. SK-2 $24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is a new. powerful tape based assembler and debugger lor 
the TRS-80 Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger Quickly switch from assembler to 
debugger and back again without losing the source code This feature makes INSTANT 
ASSEMBLER an excellent learning tool for assembly language programming 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers in that it 
produces relocatable code modules that can be linked with the separate LINKING 
LOADER, which is supplied m two versions for loading programs into either high or low 
RAM This lets you build long programs with small modules. INSTANT ASSEMBLER also 
features immediate detection of errors as the source code is entered, a compactly coded 
source format that uses 1 3 as much memory as standard source, and many operational 
features including single stroke entry of DEFB and DEFW. pinpoint control of listings, 
alphabetic listing of symbol table, separate commands for listing error lines or the symbol 
table, block move function, and verification of source tapes. 

INSTANT ASSEMBLER'S debugger provides single stepping with full register displays, 
decimal or hex entry of addresses, forward or backward memory displays, disassembly 
of ob|ect code in memory, memory display in ASCII format, and hex-to-decimal or 
decimal-to-hex conversion. The single-stepper will step one instruction at a time or at a 
fast rate to any defined address. 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory. In a 16K machine this 
will leave you enough memory to wnte assembly language programs of around 2000 
bytes. This and its module-linking feature make INSTANT ASSEMBLER ideal for users 
with only 16K machines. The instruction manual may be purchased separately for $3. 
which will apply towards the purchase of the INSTANT ASSEMBLER. 
Specify Model I or Model III. INTASM $29.95 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature print formatting package featuring user defmeable line and 
page length (with line feeds inserted between words or after punctuation), screen dump, 
pnnter pause control, and baud rate selection. In addition, printing is done from a 4K 
expandable buffer area so that the LPRINT or LLIST command returns control to the user 
while printing is being done. Ideal for Selectric or other slow printers. Allows pnnting and 
processing to run concurrently. Output may be directed to either the parallel port, serial 
port, or the video screen. 
Specify Model I or Model III. SPOOLER $16.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine language FFTASM routine 
assembled for 16, 32. and 48K machines, a short sample Basic program to access them, 
a 10K Basic program which includes sophisticated interactive graphing and data manipu- 
lation, and a manual of instructions and examples The machine language subroutines 
use vanables defined by a supporting Basic program to make data entry and retneval 
extremely fast and easy for custom implementation. They perform 20 to 40 times faster 
than their Basic equivalent (256 points in 12.5 seconds), and require less than 1550 bytes 
of memory The FFT is useful in analyzing stock market and comodity trends as well as for 
scientific information 
Specify Model I or Model III. FFTASM $49.95 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of any tape wntten for Level II They may be SYSTEM tapes or 
data lists. The file name, load address, entry point, and every byte (in ASCII format) are 
displayed on the video screen. Model III version allows changing tape speed 
Specify Model I or Model III. CLONE $16.95 



RAMTEST FOR LEVEL II 

This machine language program is a very thorough test for several types of RAM errors 
A complete test of each individual bit m a 48K machine takes just 14 seconds Includes a 
separate test for power hne glitches 
Model I only. RAMTEST. ...$9.95 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data file into the disk version of Electric Pencil 
for edittmg One command from DOS quickly modifies existing files to Pencil format One 
disk and 32K required 
Model I only. PENPATCH $9.95 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is guaranteed or a lull refund will be made All programs 
(except TEl.COMl are shipped on cassette unless $5 is included for a formatted (no system) 
disk Include $1 50 for postage and handling California residents add b°o sales tax Visa. 
Mastercharge and COD orders accepted SPECIFY MODEL I OR MODEL III. Dealer 
inquiries invited 

Box 400-E Summerland, California 93067 (805) 969-4557 



• See List of Advertisers on page 418 
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filled and items remain to be entered, the 
filled list can be saved on cassette by using 
the command Print#"file name" and a new 
list started. Later, when needed, the saved 
list can be loaded back into the computer 
with the command lnput#"file name". 

Going Over the Budget 

During the entry process, the cumulative 
sum of prices will be calculated. If the sum 
exceeds the budget limit, the computer will 
give an audio warning with five beeps fol- 
lowed by the message Over Limit = $ — 
XX.XX. The warning will be repeated after 
each entry until either the budget limit is in- 
creased or selected prices on the list are 
lowered by using the change function as de- 
scribed below. 

The status of the shopping list can be re- 
viewed by invoking the summary function 
with SHFT S. The display will show item 
number, item name and designated item 
price starting with item one. Enter to ad- 
vance to each succeeding number. When 
the last item has been shown, the message 
End Total = $XX.XX F = Y will appear. If 
Y = 0, the shopping list has not been ini- 
tialized for buying and the end total is for 
the entire list in memory. If Y = 1 , the list has 
been initialized for buying and the end total 
applies only to the sum for the items al- 
ready bought. Also note that if the list has 
been initialized, all of the prices have nega- 
tive signs if they have not been bought. If an 
error is noted at any time during the status 
review, the change function can be called 
immediately without disturbing anything in 
memory. 

At any time after an entry has been made, 
it can be changed by keying in SHFT C. 
When this is done, the computer asks if you 
want to change any numbers. The user en- 
ters the number of the item to be changed. 
The computer will display the item number, 
name and price to confirm that the item 
number called does indeed give the name 
and/or price to be changed. If the name and 
price displayed are not the ones to be 
changed, the user reenters SHFTC and a 
revised but correct item number. When the 
correct item entry has been displayed, Enter 
is keyed in and the display Item? appears if 
the name is to be changed, the new name 
and Enter are keyed in. If the name is not to 
be changed, only Enter is keyed in; this re- 
tains the original name in memory. The next 
prompt asks for Price = Units* Unit Cost? 
Here the new price or arithmetic expression 
is keyed in and entered if there is one. 
Otherwise, only Enter is keyed in and the 
original price entry is retained. The com- 
puter automatically checks against the 
budget limit and gives the warning beeps 
and message if the limit is exceeded. 

The shopping list is initialized by ex- 
ecuting SHFT SPC. This sets the cumula- 
tive sum of prices to zero and tags each 
price with a minus sign. The computer uses 
the minus sign to guide the automatic se- 
lect and buy mode described below. The 
displays of the minus signs on prices also 
remind the user that the related items have 



not yet been purchased. The program al- 
lows the list to be initialized only once 
which is indicated by F = 1 on the right of 
the end total display. This function modifies 
price entries and sums so that the comput- 
er can keep track of the buying translations. 

When the entries to the shopping list 
have been completed and edited as neces- 
sary, it may be helpful later on to prepare a 
written shopping list (here is where a printer 
would be very useful). This written list is 
used to record special shopping instruc- 
tions that cannot be put into the limited 
memory. It is also used as a reference for 
item numbers during random buying. 

After the shopping list has been initial- 
ized SHFTA displays the number, name and 
expected price of the item at the top of the 
list of unpurchased items. The shopper 
then finds the location of the item in the 
store and checks the actual prices. At this 
point the shopper can do some arithmetic 
with the computer to compare unit prices 
for the best buy among several brands. 
When the shopper decides on an item and 
is in the buy mode, press Enter and the 
prompt Price = Units* Unit Cost? appears. If 
the shopper decides not to buy an item, 
(zero) is keyed in. If the shopper wants more 
time to think about the purchase and to 
come back to it later, only the Enter is keyed 
in. If the item is purchased, the actual pur- 
chase price is keyed in and entered. The 
computer then calculates the cumulative 
cost, warns if the budget is exceeded and 
presents the next item on the top of the list 
of unpurchased items. The shopper re- 
sponds as before. This process can be 
followed until price entries have been made 
for all items. The computer then prompts 
with End Total = SX.XX F = 1 . 

The shopper can interrupt the program 
any time by turning off the computer or by 
going to another function. The automatic 
sequencing can be resumed by reexecuting 
SHFT A. The shopper may want to interrupt 
the automatic sequencing to add another 



item to the list with SHFT L, to review the 
status with SHFT S, to change an item on 
the list with SHFT C, or to skip automatic 
sequencing and use SHFT B for random ac- 
cess buying. 

The random selection of items to buy is 
made by keying in SHFT B. The first prompt 
is Next No.?. The shopper must now key in 
and enter the number of the desired item. 
This number must be looked up on the writ- 
ten list or be remembered. When the num- 
ber has been entered, the procedures for 
function B are the same as for function A 
for each single item. After all the informa- 
tion is entered for each item, the random cy- 
cle is repeated until the function B is exited. 

It is possible to switch back and forth be- 
tween functions A and B. This is done as 
dictated by convenience until most of the 
items have been bought. Then the shopping 
is finished using only function A. The latter 
ensures that no item has been inadvertantly 
forgotten. 

Any of the functions can be interrupted at 
any time to do arithmetic for trial changes 
of prices and their sums. This is convenient 
when the shopper wants to calculate and 
compare unit prices on different brands of 
an item or if shelf prices are much different 
than expected. The interruption is done by 
pressing On for CA/Break. The prompt 
Break At XXX will appear where XXX will be 
the program line number where the interrup- 
tion happened to occur. The arithmetic 
operations are then done in the usual way. 
Use the red display clear key after each 
operation is finished. 

When ready to return to the interrupted 
function, hit C. and Enter. The function can 
then be resumed from where it was inter- 
rupted and the new data from the trial 
calculations can be entered into the list. 

The application of the Pocket Computer 
as an aid for food shopping has shown that 
the computer can uniquely serve as an in- 
teractive shopping guide that can help con- 
trol costs.! 



100 "L":H = 1:PAUSE"LIMIT - $ ";E:INPUT "CHANGE LIMIT?";E 

110 IF A>63 PRINT LIST FULL":END 

120 G = A ♦ 1PAUSE "NEXT ITEM = ;G:GOSUB 210:A = A + 1GOT0 110 

130 "B":H = 2:INPUT"NEXT NO ? ;G 

140 GOSUB 200 GOTO 130 

150 "C".H = 3INPUT-CHANGE NO ?";G 

160 GOSUB 200:GOTO 150 

170"A":H=4:GOTO190 

180"S':H=5 

190 FOR G = 1 TO A:GOSUB 210NEXT G GOTO 340 

200 IF G>A PRINT "MAX NO. = ".ARETURN 

210B^2"G + 7:D = B + 1 

220 IF (H = 4)-(A(D>< =0) THEN 240 

230 IF H =4 RETURN 

240 IF HOI PRINTG;" ";A$(B);" ";A(D) 

250 IF H =6 RETURN 

260 IF H =2 THEN 290 

270 IF H = 4 THEN 300 

280 INPUT ■|TEM?";A$<B) 

290 IF A<D)X) LET C = C - A(D) 

300 INPUT-PRICE = UNITS' UNIT COSTT A<D) 

310 IF A(D)>0 LET C = C + A(D):IF C> = E BEEP5:PRINT"OVER LIMIT = $",C - E 

320 RETURN 

330 " ":IF F = FOR G = 1 TO A:D = 2 - G + 8:A(D) = - A(D):NEXTG:C = 0:F = 1 

340 PRINT"END TOTAL = $";C;" F = ";F 

Program Listing 1. 
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1,111 <""> COLOR 

ALL PROGRAMS USE TESTED 

MICRO -TYPIT -\ texl editing pr gran that uses the keyboard 
"as is" like a typewriter. All edit and prompt functions are 
"built in" so instruction or learning is minimur.. Text can be 
generated three pages at a time and printed either numbered, _ or 
unnumbered sir.ple or double spaced. Also, right justification 
is optional. Does not require substitution of @ for commas or 
any other character revision. Slowest function is transferring 
text to and from tape. Neat error free text with large print 
titles. Exc "" :.• for specification::, agreements, instructions, 
fom letters or announcements. Complete with sound for TRS-i 
I. TTI 4 COLOR and Microtech printer easily adaptable to most 
other printers. PRICE $25.00 

CLIENT FILES Allows keeping several contracts for up to 20 
clients. Enter contracts including either payment amounts or 
percentages. As bills ire sent out and payments received, the 
program is a record by contract of amounts outstanding and not 
billed including a summary of receivables and work in progress. 
Works well with one to 3 projects for a dozen or so clients. 

PRICE $25.00 

ENGINEERING PROGRAMS 

LIGHTING CALCULATIONS Calculates the required number of 
fixtures for a room given the dimensions and reflectances by 
the zone cavity method. Three staniard fixtures are "built in" 
so that 8 room calculations are made to compare results such as 
watts, footcandles and number of fixtures. PRICE $30.00 

HVAC PROGRAM This program calculates sensible and latent 
cooling and heating load by zone each two hours of the typical 
hottest and coldest days. Equations per 1977 ASHRAE Fundamental 
Guide page 25.2. Three programs are: Calculations, Geographic 
and Variable'Data and Data Generator. PRICE $35.00 

All tapes furnished with full documentation and instructions. 
Documentation, Instructions and Source List alone $15. 0C 

All programs on tape require Level II and 16k. Printer is 
required for KICR0-TYPIT and optional on all others. Do not 
forget to include the Model Type with your order. 

Send Check or Money Order (no COD's please) to: 

Coolidge Si Associates 



2050 S. LftMAR #10 



AUSTIN , TEXAS 78704 



(512) 443-5329 
^-52 



Goo* 



n*.*** 1 RIBBON SALE 



FOR RADIO SHACK* CENTRONICS-EPSON LINE PRINTERS 
(Longer Life- Heavier Inking] 

EXACT REPLACEMENT INSERTS 

[Cartridges NOT Included] 
LP MI-IV-700-730-737-779 $11.00/3 $42.00/DOZ 

LPIH-V $21.00/3 S82.00/DOZ 

LP VI-VIII $21.00/3 $82.00/0 0Z 

Daisy Wheel II (Carbon Film) $26.00/6 $50.00/OOZ 

[Long-Ufi Fabric] $21.00/3 S82.00/DOZ 

EPSON MX-70-80-100 $24.00/3 $95.00/DOZ 

[Our Instructions make Inserts easy to pat In your cartridge] 

RELOADS 

[You SEND old CARTRIDGES to US- WE RELOAD them for you] 

LP lll-V Each. ..$9.00 

LP VI-VIII Each.. .$9.00 

DW II [Carbon Film] 3 Pack.$15.00 (Long-Life Fabric] Each. $9.00 
Centronics 7-MEG 702, 703, 704, 753 Cartridge Each. ..$10.00 

EPSON MX-70, 80, 100 Each. ..$10.00 

NEW CARTRIDGES FROM RADIO SHACK 

LP lll-V [26-1414] Two for $25.00 

LP VI-VIII [26-1418] Two for $21.00 

LP VII [26-1424] Two tor $16.00 

DW II Carbon Film [26-1419] 3 Pack $22.00 

Long-Life Fabric [26-1449] Two for $21 .00 

CENTRONICS 7-MEG 702, 703. 704, 753 Cartridge Two for. ..$26.00 

Volume 1 MODEL H 8" GAME DISCS Volume 2 
Biorhythms, Trap $25.00 Each Ugly, Bingo 

Rip Cord, Yacht Sea Towers, Blackjack 

Concentration + 4 More Farkle, Pony + 3 More 

We Pay Shipping On Prepaid Orders! Net 30 Accounts Available 
SEND CHECK, MONEY ORDER or COD TO: 



BCCOMPCO 

800 South 17* Boi 246* 417 932-41% 
Summersvtlle, MO 6SS71 



VTM 



♦Radio Shack Is ■ trademark of Radio Shack, s Tandy Corp. 
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SIGMON 



SIGMON is a complete machine Lansuase develop- 
ment tool for your TRS-80 Color Computer and it's 
super powered 6809E microprocessor. 

Features: 

MONITOR: Display memory in HEX and ASCII, Direct HEX and 
Decimal entry Into memory/ resisters, Move, Find, Tape Read and 
Write, Output to printer and more 

DISASSEMBLER: Display Addresses, Opcode operand, 
Mnemonics, and Address expressions for specific range of 
instructions. 

MINI ASSEMBLER: Allows you to enter instructions in Symbolic 
form and have them converted to Machine Language. 

DEBUGGER: Allows Stepping and Break point execution of 
Machine Language programs. 

With SIGMON you can awaken the awesome powers that lurk 

within the dark recesses of your color computer. 

Cassette and Source Code 

for the TRS-80 Color Computer $29.95 

9 ♦ t» V»* S?4 

(Screen Edit Control System) 

SECS adds new power to your TRS-80 Color 
Computer. If you have been waitins for Enhanced 
BASIC and it's capabilities, then you are ready to take 
the next losical step. 

Features: 

FULL SCREEN EDITOR: Full Cursor control with auto repeat, 
Insert, Delete, Join lines, Relocate lines and Audible error warning. 

HI RES GRAPHICS: Two modes of Hi Res graphics, Set point, 
Set line, Set color, Set programmable character, Set screen, and 
Toggle between Low Res and Hi Res/Normal and Inverted 
Screens. 

HI RES CHARACTER GENERATOR: Sixty-four definable charac- 
ters, Save and Load Characters sets to and from tape, Define 
Characters, and Place on screen in any color and in any position. 

The entire system is linked into BASIC and is completely 

transparent to the user. As a BASIC programming tool, SECS is 

unsurpassed. 

Cassette for the TRS-80 Color Computer $29.95 

Software Utilities for the 
TRS-80* Color Computer 

Order through your local software dealer or send check or 
money order plus $2.00 Shipping a Handling to: 




nS/ computer software 

19519 Business Center Drive, Northridge, CA 91324 
(213)701-5161 

•TRS-80 is a registered trademark of Ra<*o Shack, a division of Tandy Corporation 



**See List ol Advertisers on page 418 
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GAME 



Ollie, ollie, 80, home- free-home! 



Capture the Computer 



Jeffrey O. Fisher 
414 West 41st Street 
Sand Springs, OK 74063 



It is natural for a human being to seek 
pleasure and engage in pastimes that 
relax the body and please the mind. Com- 
puter games offer such a pastime. 

The computer easily fills the role of an 
opponent. First, it does not require any in- 
structions once the program has been writ- 
ten, except for values the user enters to 
guide the computer in its decision making. 
Second, it is quite content to entertain its 
user indefinitely. 

What can you do with the TRS-80 in 
terms of game playing and other recre- 
ation? The TRS-80 has limited graphics 
because it can display a picture with a 
resolution of no better than a 128 x 
48 matrix of graphics blocks unless you 
alter the hardware. Also, the Basic inter- 
preter executes too slowly to offer much of 
a challenge to human reactions as it runs 
more detailed programs. As a result, real- 
time games are frequently written in 
machine code or the set of instructions is 
in the vocabulary of the processor itself. 
These instructions normally do less than 
Basic statements and are more difficult to 
use due to the precision required, but they 
execute in far less time, making it a simple 
matter for the computer to overwhelm a 
human opponent with its speed. 

Because of this, many Basic computer 
games available incorporate code that 
reduces the need for speed and concen- 
trates instead on the elements of chance 
and strategy, thus giving the human a 
fighting chance. 

Capture is a simple program which 
maintains a need for timely human reac- 
tion and strategy with just a little bit of 
luck thrown in. 

The scenario is one where the computer 
and player take turns chasing each other 
176 • 80 Microcomputing, December 1981 



on the screen in an effort to capture the op- 
ponent's piece. On the display, a graphics 
block represents the player and the letter 
"O" symbolizes the computer. The game 
always begins with the computer as the 
predator. It is up to the human to avoid the 
"O" character. After a length of time 
specified by the player, and if the player 
has not yet been captured, the mode 
switches. It is then up to the human to cap- 
ture the computer's piece. This is basically 
a game of tag where the user and machine 
take turns being "it". 

One problem in a game such as this is 
how to inform the player when the ex- 
change in roles has taken place. Small 
printed messages are usually inadequate 
since normally the player is watching the 
proximity of the two pieces on the screen 
and is sometimes oblivious to other bits of 
information given him. Taking this into ac- 
count, Capture incorporates program 
code that relies on the person's peripheral 



vision and places a large graphics block 
on the left of the display when the com- 
puter is the hunter and on the rigtit side of 
the screen when the machine is the quarry. 
With this method, it is unnecessary to pay 
excessive attention to messages printed 
on the screen since the position of the 
block tells the player the present mode of 
the game. 

Since one of the objects of the game is 
to avoid capture, the player needs a way to 
move his piece around on the screen. The 
keys that control the movement of the 
player's piece (the block) are the arrow 
keys on the right and left sides of the key- 
board. The direction of the arrow indicates 
the direction of movement and pressing 
any two keys not on the same side will 
result in the corresponding diagonal move- 
ment. The pressed key or keys will cause 
movement until either the key is released 
or the piece tries to move off the screen. 
Pressing two keys on the same side 



Line Description 

10 Initializes variables. 

20 Main program line that controls the mode of play. 

30 Used for the computer attack routine. 

40-50 Computer retreat routine: line 40 is used to give the player a better chance of leaving the 

area of the computer's piece immediately after the computer attack mode. 
60-80 Used to see which arrow key was pressed by addressing memory location 14.400 which 

addresses the keyboard For more information, see Table 2 
90 Used to update the location of the player's piece on the screen and end the scenario if the 

two pieces occupy the same position. This means that either the computer or player has 

won. 
100-140 Used to generate the computer's offensive moves. It generally tries to minimize the 

distance between the pieces. 
150-180 Computer defensive routine used to attempt to maximize the distance between the pieces 

in an attempt at escape. 
190-200 Used to update the position of the computer's piece on the display If the move results in 

the same location being shared by the two pieces, it jumps to the portion of the program 

that informs the player of who was captured. 
210-220 Used to indicate to the player which mode the computer is in (attack or retreat). 

230 Informs the player that he has |ust been killed 

240-270 Used to indicate the end of the individual scenario and shows the current scores of the 

person and computer 
280 Initialization routine accessed early in the game by line 10 that displays the title of the 

game. 
290-350 Used tor the instructions resident in the program 

Table 1. Line Description. 



This is basically a game of tag 

where the user and machine 

take turns being 'it'." 



results in no movement of the piece. 

Program Flow 

The program begins by displaying the 



name of the game. It then displays the 
game instructions. The user is prompted 
to enter a length of time for the game to 
continue before switching modes between 



10 CLEAR150:CLS:A$="C A P T U R E 1 ": INPUT" ENTER YOUR NAME";NA$: 

GOSUB280:GOSUB290:CLS:INPUT"TIME SLICE (GENERALLY 1-2 TIME UNITS 

) " ;TS : CLS: A$=STRING$ ( 11 r 191 ) +-RETREAT I J "+STRING? (11,191) : B$=STRI 

NG5(31,32):C$-STRING?(ll,191)+"CHARGEm ,, +STRING$(ll,191} 

20 ST«ljTI=TS:GOSUB210:GOSUB30:ST«2tTI«TS:GOSUB220:GOSUB40:GOTO2 



30 FORI«1TO2:GOSUB60:GOSUB98:GOSUB100:GOSUB190:NEXTI:GOSUB60:GOS 

UB90:TI=TI-.1:IFTK.1THENRETURNELSEGOTO30 

40 FORI«1TO2:GOSUB60:GOSUB90:NEXTI 

50 FORI=lTO2:GOSUB60:GOSUB90:GOSUB150sGOSUB190:NEXTI:GOSUB60:GOS 

UB90 : TI «=TI -.It IFTI < . 1THENRETURNELSEGOTO50 

60 PE-PEEK( 14400) ; IFPE=8ANDYP>0THENYP-YP-1ELSEIFPE=16ANDYP<14THE 

NYP-YP+1ELSEIFPE=32ANDXP>0THENXP»XP-1ELSEIFPE=64ANDXP<63THENXP-X 

P+1ELSEIFPE«72ANDXP<63ANDYP>0THENXP"XP+1 : YP-YP-1 : ELSE1FPE-40ANTJX 

P>0ANDYP>0THENXP=XP-1 : YP-YP-1 

70 IFPE-80ANDYP<14ANDXP<63THENXP=XP+1:YP«YP+1:ELSEIFPE«=48ANDYP<1 

4ANDXP>0THENXP=XP-1:YP=YP+1 

80 RETURN 

90 PRINT§YO*644XO r " "; :PRINT§YP*64+XP,CHRS(143) ; : XO=XP : YOYP : I FY 

P»YHANDXP=XHANDST-2THENPRINT?960,*GOT HIM I 11 " j jPS=PS+l:GOTO240:E 

LSEI FYP-YHANDXP-XHANDST=1THENCS«CS+1 : GOT023 : ELSERETURN 

100 REMARK ** COMPUTER ATTACK SUBROUTINE ** 

110 IFYH>YPTKENYH=YH-1ELSEIFYH<YPTHENYH»YH+1 

120 IFXH>XPTHENXH=XH-1ELSEIPXH<XPTHENXH-XH+1 

140 RETURN 

150 REMARK **COMPUTER RETREAT SUBROUTINE** 

160 IFYP>yHANDYH>0THENYH*YH-lELSEIFYP<YHANDYH<14THENYH=YH+lELSEI 

F Y P => YH ANDYH = < 8TH EN YH = YH + 1 E LS E I FY P- YH ANDY H > 8TH BNYH»YH - 1 

170 IFXP>XHANDXH>0THENXH=XH-1ELSEIFXP<XHANDXH<63THENXH=XH+1ELSEI 

FXP=XHANDXH=<32THENXH=XH+1ELSEIFXP-XHANDXH>32THENXH=XH-1 

160 RETURN 

190 PRINT§YL*64+XL," •; : PRINT§YH*64+XH, "0" ; :XL=XH:YL=YH:IFXP«XHA 

NDYP=YHIANDST=1THENCS=CS+1:GOTO230:ELSEIFXP=XHANDYP-YHANDST-2THE 

NPRINT#992,"GOT HIM II 1 "> : PS-PS+1:GOTO240 

200 RETURN 

210 PRINT§992,B$; :PRINT§961,A$; : RETURN 

220 PRINT§961,BS; ;PRINT§992,C$; :RETURN 

230 F0RI»1T05:PRINTCHR$(23) ; :FORII»1TO10:NEXTII:PRINTCHR$(28) ;:N 

EXTI:F0RI=1T0LEN(Z$) :PRINT§992+I-1 ,MID$(Z$, I ,1) ; :FORII=1TO10:NEX 

Til, I 

240 PRINTS256, "TALLY OF KILLS: "; :PRINT@320,NA$;PS; :PRINT#384, "CO 

MPUTER»;CS; : PRINT§448 , "CARE TO PLAY AGAIN (Y/N) ?" ; : YP-RND(14) :XP 

-RND(63) :YH=RND(14) :XH=RND(63) 

250 KS-INKEYS:IFK$-""THEN250ELSEIFK$-"Y"THENCLS:GOTO20:ELSEIFK5- 

"N"THEN260ELSEGOTO250 

260 PRINT SPRINT "THANKS FOR PLAYING I" 

270 END 

260 2$-" YOU HAVE BEEN KILLED 1 11 " :YP-RND(14) :XP<=RND(63) :YH»RND(14 

) :XH-RND(63) :CLS:PRINTCHR?(23) :FORL«0TOLEN(A$) .FORK-63TOLSTEP-1: 

IFPEEK ( 14400) =128THENRETURNELSEPRINT#448+K,MID$(A$,L+1,1);:NEXTK 

,L:PRINT|512,"BY JEFF FISHER" :FORK-1TO750: NEXT: RETURN 

290 CLS: PRINT* THIS IS A GAME WHERE THE PLAYER AND THE COMPUT 

ER TAKE": PRINT" TURNS CHASING EACH OTHER IN ORDER TO SCORE A CAPT 

URE. THE": PRINT "PLAYER IS REPRESENTED BY A BLOCK (I.E. ,";CHR$(3 

4)+CHR$(143)+CHRS(34) ;") AND THE COMPUTER" 

300 PRINT'BY AN ";CHR$(34) +"0"+CHR$(34) j ". SPRINT" EACH OPPO 

NENT (PLAYER AND COMPUTER) IS ALLOCATED A":PRINT"CERTAIN AMOUNT 

OF PLAY TIME IN ALTERNATE 'TIME SLICES' ": PRINT "THAT IS SPECIFIED 

BY THE PLAYER BEFORE THE GAME BEGINS." 
310 PRINT" DURING THIS LENGTH OF TIME IT IS UP TO THE PERSON 
TO EITHER" sPRINT "ELUDE OR CHASE THE COMPUTER DEPENDING UPON THE 
MODE OP THE": PRINT "TIME SLICE. IF YOU ARE CAUGHT BY THE COMPUTE 
R, YOU ARE KILLED" 

320 PRINT" AND THE COMPUTER SCORES A POINT. ON THE OTHER HAND, I 
P YOU":PRIMT"CATCH THE COMPUTER, YOU KILL IT AND YOU SCORE A POI 
NT.":PRINT#960,"HIT THE SPACE BAR TO CONTINUE": 

330 IPPEEK ( 14 40 0)<>128THEN3 3 0ELSECLS: PRINT" YOUR MOVEMENT IS CONT 
ROLLED BY YOUR PRESSING THE ARROW KEYS." : PRINT "THE DIRECTION OF 
THE ARROW INDICATES YOUR DIRECTION OF MOTION.": PRINT "DIAGONAL MO 
VEMENT IS OBTAINED BY PRESSING ANY TWO KEYS THAT" 
340 PRINT'POINT IN DIRECTIONS SEPARATED BY 90 DEGREES." : PRINT: PR 

IHT*GOOD LUCK ":PRINTg960,"HIT THE SPACE BAR TO CONTINUE" j 

350 IFPEEK (14 400) O128THEN350ELSERETURN 

Program Listing 



LOGIC 
PRMES 

LP- 1 850 00 
LP 2 28 00 
l*-) 76.00 
IC TEST 
CUP* 
PC-14 $400 
PC-16 « 10 
PC 24 tOO 
PC -40 14 00 



EXPERIMENTOR 
SOCKETS 

EXP-300 J10 50 
EXP-300PC 2 40 
EXP 350 « 10 
POWERED 
PHOTO BOARD 
PB-104 S70 00 
PB-102 53 00 
P8-10I 2600 

PB-100 20 10 



QUICK TEST SOLOERIESS 

BREADBOARD ELEMENTS 

0T-S9S 81200 0T.S9B 82 ^i 

QT-47S 9 SO 0' *'B 2 50 

QT 1SS 7 21 OT MB 2 '0 



Qt 



>8S 



125 01 



3 '5 



OT-iS 3 00 0' 7S 1 '5 

Letac MnH> JUMPER 

100* I^MKU WIRE KIT 

LM-1 175 00 WK-1 $9 00 



P1S4 Sl'T.N-WRAPTOOL.w SOsooolof2BBegew>re 

P160-1B DUAL-WAY UNWRAP TOOL. Unwraps 26- 30AWG 
P160-2A DUAL-WAY WRAP-N-5TRAP TOOL. Wrepl 26- 3 0e«i g 
8804 UNIVERSAL Micic^omputetrProceMor Plugboard 

B800V UNIVERSAL Microcomputer 'Pikhki Plugboard 

lor Alia.f 8800 h IMSAI 6060 
4607 UNIVERSAL Computer Plugboard hii OEC LSI- 

POP-l 1 end Heethkil Hll 

MICROPROCESSOR PLUGBOARD for Apple 



S30 00 
812 10 
SI2S0 

12 7 65 

924 95 

POP-B. 
920 40 
923BO 



VW STOCK THE Full VECTOR LINE — C M il la A.ei l o»ll Ok Pjeeweel 



An Introduction to Microcomputer! |The tigiiirwi Book 87 96 An 
Introduction to Microcomputers {Basic Concept!). 912 .M. 4 end 6 Brt 
MicroprTKessfjr Handbook 81 9.96. 1 6 Btt McrepfoceMor Hendboc* 819.96. 
The CRT Controller Handbook 86.99 The 68000 Microproceeeor Mend 
book. MM. 280 Assembly Lenguege Programming 816 99 
6502 Assembly Lenguege Programming. ..B16.M. 6609 Assembly Lenguege 
Programming .811.99. Busmen System Buyer sGuKJe 67 98 CP/M User ■ 
Gwde... 81 2.M. Apple II Users Guide 818 00 Microprocessors lor 
Meeeurement & Control. SIB 99 CBASIC" User i Guide .818.00, Inter 
lecing to S-1 CO/IEEE 696 Microcomputer! .818.00. Some Common Basic 
Programs. .814.99. Practical Bes'C Progremt .818.99. Some Common 
BesK Progrsms - - Atari Edition. .814.98. Some Common Bmic Program* 
— TRS-80 Level II edition 814.99. Science and engineering Basic Pio 
grams — Apple II Edition .815.99 



LM301N • 
LM305H 


3? 
75 


LM3 1 1 H 
LM318N 


1 15 
1.95 


LW3S4N S 
NE555N 


76 
36 


LM741N 
LM747N 


(35 

55 


LM307N 


40 


IM3I9N 


1.65 


NSS56N 


70 


LM1458N 


40 


LM308N 


1 10 


LM323K 


5.00 


NE561N 3.69 


IM148SN 


80 


LM309N 


2 00 


LM324N 


50 


NES6SN 


85 


LM1469N 


80 


IMS ION 


1 75 


LM337N 


1 50 


NE566N 


65 


7805CK 


1 60 


LM311N 


45 


LM339N 


SO 


NES67N 


BE 


7J12CK 


1 60 


LM366N 


UO 


LM380N 


50 


LM723N 


45 


761 8CK 


1 60 














74008 19 
7401 19 


7426 8 25 7483 I SO 741 25 8 48 
7428 .40 74M .35 74132 iS 


74162 8 
74184 


1 00 

2 05 


7402 19 


7432 .25 7495 


45 74141 


80 


74165 


2 05 


7403 '9 


7438 .30 7496 


50 74156 


50 


74193 


'0 


7404 .19 


7442 40 74 


16 l 
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EPROM PttOtaPlAMMINO 

Suntronics will reproduce your progrem . 
EPROM supplied by us from your 
Master PROM /IP ROM only 
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HTIONAL if *0M> 
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Send your u eater EPftOM/PROM withorder. Be 
surelo pack in enii<siat>c meteriit. end protect il 
properly (we ere not liable loraftipping damage). 
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". . . (you) realize as you close in for the kill 
that maybe, just maybe, 
computers aren't superior after all." 



chasing and being chased. A good number 
for beginners to enter is two; this will allow 
about 15 seconds of normal time between 
mode switches. Larger numbers provide 
correspondingly larger time intervals. 

Play continues until one of the two 
pieces is captured and that piece is de- 
clared killed. The player is informed of the 
score and a new scenario may begin at the 
player's discretion. 

Program Description 

This program will easily run in a 16K 
Level II Basic system, and if you have a 4K 
system you may leave out lines 300-350 
and change line 290 to 290 RETURN. The 
program will return to line 10. As written, 
the program occupies about 3300 bytes. 
With the modifications for 4K, the require- 
ment drops to about 2200 bytes. 

Not Hard Enough? 

As with any game, it is possible to get 
proficient at Capture and the general re- 
course is to make the game harder. The 
simplest way is to decrease or increase 
the time slice. The shorter the time slice, 
the less time you have to catch the com- 
puter. A longer time slice makes it harder 
to get a feel for when the mode is about to 
switch, but it also gives you more time to 
chase the computer. Changing the relative 
speeds of the computer and player is prob- 
ably a more useful approach. 

Look at line 30— the index variable I 
used in the For.. .Next loop controls the 
relative speeds of the opponents. Inside 
the loop is a one to one speed ratio be- 
tween computer and player; immediately 
following this loop on the same line are 
two GOSUBs to line 60 and then to line 90 
which give the player an extra chance to 
move his piece. This makes it possible for 
the person to move faster than the com- 
puter. 

How much faster? Weil, that is deter- 
mined by the value that the variable I 
counts to while executing the loop. In this 
case, since the variable I counts to two and 
the two GOSUBs at the end of the loop give 
the player a chance to move once more, 
the ratio of the player's speed to the com- 
puter's speed is (2 + 1)/2 = 1.5. In other 
words, the person can move 50 percent 
faster than the computer. 

In general, for any value n that the vari- 
able I counts to in the loop, the ratio of the 
person's speed to the computer's speed is 
(n + l)/n. For example, in order to make 
the player go slower with respect to the 
computer you might want to change "FORI 
= 1T02" in line 30 to "FORI = 1T04". Here 
the ratio will be (4 + 1)/4 = 1.2, resulting in 
the person's having a 20 percent speed ad- 
vantage over the computer. Be sure to 
make the same changes in line 50 since 
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the same argument applies there. Note, 
however, that this changes the actual 
length of time of the time slice. 

Getting Into the Game 

I have made it possible for the user to 
bypass titles, credit and instructions by 
simply holding down the space bar. This 
gets the user into the game almost instantly. 



Once again, you can go back to the days 
of elementary school and play tag. And it's 
more than just a simple game; the mental 
confidence derived from playing the game 
is enormous whenever you trap the comput- 
er in the corner of the screen and suddenly 
realize as you close in for the kill that may- 
be, just maybe, computers aren't superior 
after all. ■ 
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1 2 4 8 16 32 64 128 
Value of Key at memory location. 

Table 2. This chart is helpful for anyone writing game programs in Basic. It will help 
in the programming method of recognizing keys while they are pressed rather than 
using the sometimes disadvantageous INKEY$ function. Below each column is 
the value that will be present at that row's memory location as long as that key is 
pressed. Notice that each value is an increasing power of two. The values are also 
additive: For example, pressing both the A and B keys will yield the value of 
2+ 4 = 6 at memory location 14,337. The value generated by pressing a key remains 
the same until that key is released. 



Variable 
AS 

B$ 
C5 
K$ 

NAS 

zs 

I, II 

PE 

CS.PS 
ST 

Tl 
TS 

XH.YH 

XL.YL 
XP.YP 
XO.YO 



Description 

First used to hold the name of the game, and later contains the retreat block that informs 

the player of the computer attack mode. 

String of blank characters used to erase the old block after the mode of play switches. 

Contains the "ATTACK! ! !" block used to inform the player of the computer retreat mode. 

Used for keyboard scanning to wait for the player's decision to end play or engage In 

another scenario. 

Contains the player's name. 

Contains the message used to inform the player he has been killed. 

Index variables used In simple For. .Next loops and other trivial places. 

Holds the value of the pressed key. Determines movement of the player's piece. For more 

information, see Table 2. 

Score values (CS = computer's score, PS = person's score). 

Status; indicates the mode of play (ST = 1 if computer attacks, ST = 2 otherwise). 

Current time variable that is used to time the interval between play modes. 

Value of the time slice that is entered by the player. Determines length of Individual mode 

of play. 

Current position of the computer's piece in the 63 x 16 matrix within which both pieces 

move. 

Position of the computers piece before any move. Used to erase the "O" after the move 

Current position of the player. 

Position of player's piece before move. Used to erase old position. 

Table 3. Variables Table. 



TEST 

YOUR 

WINGS 



Icarus had the right idea. He, and probably every man 
since the beginning of time, wanted to fly. He had the 
right idea, but the wrong equipment. With Instant Soft- 
ware's Flight Simulation Series and yourTRS-80, you're 
equipped to fly the World War II reconnaissance mis- 
sions, perform the feats of a daring mountain bush pilot 
and experience first hand the tense atmosphere of an air 
traffic control tower. 

Find out what Icarus had to learn the hard way . . . and 
master it, with Instant Software's Flight Series. 



FLIGHT PATH 
O'Here— A control tower simulation m which you become an Air Traffic Controller 
You are responsible lor hundreds of human lives, as you guide airciah through your 
control sector to a sale landing 

You'll have to deal with different aircraft requirements, wind change warnings and 
potential mid-air collisions 

Mountain Pilot- Transforms you into a daring bush pilot as you fly badly needed 
supplies to a remote gold mining camp You must cross a hazardous mou"*- 
range. while struggling with headwinds, tricky navigation and diminishing 
Precision Approach Reder -Combines the skills of pilot and Air Traffic 
Controller 

The Flight Path package involves you In both sides of flight pr~ 
from the thrill of flying to the tense drama of air traffic control. 
TRS-80 Model I. Level II 18* HAM. Model Hi, 16K ^L 

Order No. 01 71 R ASS Tape $9 95 p m KM srwig 

NIGHT FLIGHT 
it s May. 1941. the dreaded Axis battleship, the Bismarck, hi 

broken out of the North Sea and is now somewhere in the r'~ 

Ai untie. Your mission: make a nighttime photo reconnaiss 

over the Bismarck 
Somewnere out in the cold, gray North Atlantic, tne Bian 

to elude her pursuers Your photos are vital Launch yourself into 

mght sky with the Night Flight package. 

TRS-80 Model I. Level I, 16K; Model III. 16K. 

Order No. 01 1 7R ASe Tape 99 J5 c*j» S3 SO sntpping. 

JET FIGHTER PILOT 

The Jet Flgnter Pilot package lakes you as close to real < 
mg as possible . without pulling G s 

In this bniliantly realistic simulation, you become the pil 
high pertormance. twin turbo-iel fighter Total control ol the a 
is yours. 

All controls respond the same as they would on a real tet fi| 
er. You li have to constantly monitor your display and make 
adjustments to your throttle, flaps, rudder and air spoilers. Yc 
decide when to retract flaps, landing gear and release the 
auxiliary fuel drop-tanks 

Atter-vou've flown a few missions witfl the ' 
Fighter package, you'll know you've 
wings TRS*> Wodei I, Level I 16K 
Order No. 01St*AS3 Tape S14J5 



AIR FLIGHT SIMULATION 
Air Flight Simulation might be more Hke It 1 Instrument 
takeofls and landings are no picn.c — ask any pilot— and 
this computer simulation is certain to keep you on the edge 
of your seat 

You begin with a full tank of gas and a flight plan that 

cads for a simple takeoff and landing - at least until you get 

the hang of it Pay close attention to your instrument panel. 

especially the angle of ascent/bank indicator and ai' speed 

indicator — too sleep a bank ana your air speed will 

drop like a stone. . and so will your plane. 

•bout m close to the real thing as you 
at this side of a runway TFtS-80 Model 
* I, Level II, 16K; Model III. 
No 001 7R-AS4 Tape S9.95 
1 SO shipp«r>a 



Radio Sheen a division 



a Mfeji C ■pofaalof 



Instant Software 



TO ORDER: 

See your local Instant Software dealer 
or call toll free 1 £00 258 5473 

C0e*5 only 

In New Hampshire 1 603-924 7296 

M«<i Fn DflOam- 4.30f*nl-M 



Peterborough. N H. 03458 USA 



A division of Wayne Green Inc 



DBS... 

true data base management 
for your TRS-80 " 

Your Model II is not a toy... and neither is MDBS. 
MDBS is the serious tool for applications development. 



Harvey M. Weiss, 

an independent 

software reviewer: 



ONLY MDBS has 
all these features! 



"MDBS is truly a data base management system — not a file management system ." 

"MDBS... offers the data manipulation, query, and report-writer capabilities of a DBMS 
found on much larger and more complex computer systems." 

"MDBS has come to the rescue with . . . products whose ability to reduce development time 
and implement processes not available elsewhere make them invaluable to integrators and 
developers of jic-based systems. [With MDBS,]. . .program development and data base 
description is simple." 

For the complete Weiss review, see "Downscaling DBMS to the Microworld," Mini-Micro 
Systems. April. 1981, pp. 187-195 

Flexible, powerful data structuring capabilities: network and hierarchical data structures, 
including direct many-to-many relationships (not available elsewhere) 

Genuine data base management capabilities: far surpasses file management in data 
independence, automatic maintenance of relationships, and control over data redundancy. 

English-like, nonprocedural query language interface ad hoc queries result in the automatic 
generation of desired reports, tables, files, and relations. 

Host language interfaces, including various BASICs, COBOLs. PASCALS. FORTRAN. PL/I, 
C, and several assemblers. 

Extensive built-in data access security (256 levels) 

Automatic transaction logging and data base recovery. 

Dynamic data base restructuring. ..and many other advanced data base management 
features. 

Is MDBS right MDBS is written in Z-80 machine language and runs under TRSDOS or NEWDOS with TRS 

for vour SVStem? D,SK BASIC - under CP/M* (and similar derivatives) with CBASIC2, PL/1, PASCAL 2. 

PASCAL M. PASCAL MT+, BDS C, CIS COBOL, and Microsoft COBOL. FORTRAN, or BASIC. 

MDBS code size is only 18K to 20K bytes for Models I and II. 

MDBS is independent of the types and sizes of disk drives. Supports data base spread over as 
many as eight disk drives. 

To learn more • ^or free literature about serious data base management on Models I and II. call, write, or TWX 
us. We'll include a pamphlet on features to consider when choosing a software tool for 
application system development. 

For a practical introduction to true data base management for small computers, please send 
S20 (Indiana residents, add 80C tax) for PRIMER/GUIDE booklets. 

i For a comprehensive DOCUMENTATION PACKAGE consisting of THE PRIMER plus user 
manuals covering the MDBS, QRS. RTL, and DRS. please forward S60 (♦ S2.40 Ind. tax). 



Free pampnlet 



Setting standards of excellence for data base 
software. . .worldwide 



Hicrc 
Dnfn Base 
Susf ems. Inc. 

Box 248 

Lafayette. Indiana 47902 

31 7-448-1 616/TWX 810-342-1881 

Dealer/ distributor/ OEM inquiries invited. 




□ Please send me free literature on the MDBS. 

D$20 (Ind. tax 80C) enclosed for MDBS PRIMER 
and GUIDE (total 97 pages). 

G$60 (Ind. tax $2.40) enclosed for Complete 
MDBS DOCUMENTATION PACKAGE. 



Name 



(Please print) 



Title 



Company 
Address _ 



(State) 



(Zip) 



City 

Phone 

MAIL TO: Micro Data Base Systems. Inc. ^315 

Box 248- M 

Lafayette. IN 47902 
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A Look into Peripherals 

and Microelectronics 




PUBLICATION 



A beautiful match, the Smartmodem 
and the TRS-80. >6ur TRSdOcan talk with 
other computers over the telephone lines 
And with no acoustic tosses or dtstor toons. 
Access time-sharing systems and infor- 
mation utilities such as the Source.* 
CompuServe" and MicroNet. 
Direct hook-up with no interference noises 
The Smartmodem hooks to the telephone 
line just like a modular telephone, simply 
insert m a wall jack 

"Love at first sight your TRS-80 and 
the Smartmodem! 

Brawny- because it does so 
many things. Auto-dial and auto-answer 
features buitttn. With the Smartmodem. 
your TRS-80 can automatically dial the 
telephone, answer the telephone receive 
and transmit, and hang up the telephone. 
Completely unattended 
Pulse dialing or Touch-Tone. * ' The 
Smartmodem can be connected to any 
telephone system in the U S because it 
allows putee-dialmg. Touch-Tone dialing 
or a combination ol Ihe two. FCC 
approved 

Program controllable in any language us- 
ing ASCII character strings. This is a unique 




Microcomputer Component Systems 

feature ol the Hayes Smartmodem. 

Brainy - because it does them 
all so simply. Seven LED indicators on 
the front panel give you visual signals of 
the status of the Smartmodem 
MR Modem Ready. SD Send Data. 
CD- Carrier Detected, etc. 
The audio monitor feature lets you listen 
in" on the call being dialed and the con- 
nection made. M>u are immediately alerted 
lo busy signals, wrong numbers, etc. 
Over 30 different commands can be en- 
tered directly from your TRS-80 keyboard, 
including the unique ' Set - commands 
which allow you to select and change var- 
ious optional parameters such as dialing 
speed escape code character, length of 



time for a dial lone, and number of rings to 
answer. There are 17 Set commands. 
The Smartmodem is completely compat 
ible with the Beil-103 type modems, the 
type of modem most time-sharing systems 
have Operation can be in full or half-duplex 
with a transmission speed of 0-300 baud. 

The Smartmodem is ready to 
get-together" with your TRS-80. 
TRS-80 Model II and TRS-80 Color Com 
puters have RS-232 serial ports and can 
immediately interface with the Smart- 
modem Expansions that permit use of 
the Smartmodem with TRS 80 Model I 
and Model II are available through your 
TRS-800c 

Match your TRS-80 with a Hayes 
Smartmodem for a sophisticated, high 
performanced data communication 
system. Available at computer stores 
nationwide (except T RS-8 dealers) - 
call or write for the ^^^ . 
location nearest I • I MpiV/^Q 
you. And don t sel KAJ* ICiy^O 
tie for anything less than Hayes. 
Hayes Microcomputer Products. Inc. 
5835 Peachtree Corners East 
Norcross. Georgia 30092 (404) 449-8791 



\bur TRS-80 computer 

and the Hayes Stack" Smartmodem. 

Beauty, Brains, and Brawn ! 




1981 BUYER'S 
GUIDE 

A look into peripherals 
and microelectronics. 



A computer alone can be a dull machine. Fortunately dozens 
of devices will plug into or solder onto your TRS-80 to extend its 
usefulness. Computers talk to each other through modems. Expan- 
sion interfaces permit attachment of printers and other peripherals. 
Speed-up kits make your TRS-80 faster. This guide surveys many pe- 
ripherals and small electronics on the market for the TRS-80. (A sub- 
sequent issue will cover disk drives; a buyers' guide in the June, 
1981, issue covered printers.) 

Charts list video monitors/receivers, memory expansions, expan- 
sion interfaces, modems and speed-up kits (clock and cassette). 
This is a convenient though not a comprehensive way to compare 



the products. Many offer unique features not easily charted. Also, 
different price or performance do not always mean one product is 
better than another. Users should weigh price and performance 
before buying. 

We have also listed in paragraph form peripherals and small elec- 
tronic devices that do not fit into any distinct category or have little 
competition. This section is by no means complete. It is a sample of 
what is or could become available. 

Think of this guide as a quick reference. Get ideas of the devices 
best suited for you and contact the manufacturer or marketing 
agent for more information. ■ 



PBI 

(The Programmable Buffer Interface) 



The PBI allows you to continue your 
work without waiting for the printer to 
complete a printout. The PBI stores the 
printout data without using the host com- 
puter's memory. The user may link one or 
more host computers with the PBI. PBI 
models available are: Single Parallel (16K), 
Dual Parallel (32K), Single Parallel and Sin- 
gle Serial (RS-232), Dual Serial, and Dual 
Parallel and Dual Serial. A 16K upgrade is 
available for $150. 

Microcompatible 
PO Box 7624 
Atlanta, GA 30357 
$299-$699 



Interfacer 80 



Interfacer 80 is an input/output inter- 
face. It has eight input and eight output 
channels. INP and OUT operations can be 
done at a rate of up to 200 per second in 
Basic. Interfacer 80 may be used in con- 

- Reader Service loi lacing page ^352 



junction with any other TRS-80 accessory. 
Applications for this product include 
building and home security, lighting con- 
trol, automatic testing systems, intelli- 
gent remote control, and many others. A 
bus converter is required for the Model III. 

Alpha Products 
85-71 79th St. 

Woodhaven. NY 11421 

$159, Model I; $198.50, Model III 



UPI-3 



Universal Printer Interface 



The UPI-3 offers automatic insertion of 
a line feed and null after a carriage return, 
handshake polarity for RS-232 printers, 
seven or eight data bits per word, parity or 
no parity, odd or even parity, and one or 
two stop bits. The UPI-3 eliminates the 
need for machine-language drivers to be 
loaded into high memory because it 
already contains such a routine in the 
Level II ROM. 

Speedway Electronics 
Division of Binary Devices 
11560 Timberlake Lane 
Nobles vi lie, IN 46060 
$139.95 



Doubler II 



The Doubler II is a plug-in, double-den- 
sity adaptor. With this product, the user 
may use single or double-density disks 
and have the hardware to convert Model III 
disks to Model I. The Doubler II features a 
write compensation circuit that minimizes 
bit and peak shifting. Included in the 
package is the DBLDOS program. 

Percom Data Company, Inc. 
211 N. Kirby 
Garland, TX 75042 
$169.95, Model I 

Controller 

Model 488-80B/C 

The Model 488-80B (Model I) and C 
(Model III) allows as many as 15 GPIB-488 
peripherals with a minimum of 16K. 
GPIB-488 devices includes printers, plot- 
ters, digitizers, displays, recorders, 
measurement and test equipment. Soft- 
ware is included. 

Scientific Engineering Laboratories 

11 Neil Drive 

Old Bethpage, NY 11604 

$325, Models I & III 
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Real Time 
Audio 
Spectrum 
Analyzer 

Model VTU02 

This device analyzes sound with a video 
graph display on the TRS-80. Forty-two 
vertical elements are available. The Real 
Time Spectrum Analyzer comes with the 
necessary software, instruction manual 
and a keyboard overlay. Optional acces- 
sories include special purpose software 
and a microphone and pink noise filter. 

Eventide Clockworks, Inc. 
265 West 54th St. 
New York, NY 10019 
$595, Level II Basic 

Timedate 80 



Timedate 80 is a real-time clock/calen- 
dar. It plugs directly to the TRS-80 key- 
board and must be set only once. Time- 
date 80 is quartz crystal based and is ac- 
curate to within a few seconds per month. 
It comes with two sets of software: Time- 
set, containing instructions for setting 
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Micro-Labs' CPRINT Module 

Timedate 80; and Time$, which will print 
time and date when LLISTing a program. 
A "Y" option allowing Timedate 80 to be 
placed inside the expansion interface is 
available for $12. 

Alpha Products 
85-71 79th St. 

Woodhaven, NY11421 
$95 



CPRINT 



The CPRINT module gives the Color 
Computer a plug-compatible, Centronics- 
type parallel printer port for use with all 
parallel Radio Shack, Centronics, Epson 
and similar printers. All LLIST and Print 
#-2 output is automatically rerouted. A 
screen-print function can be initiated at 
any time and line width can be set. The 
graphics in the LP VII can be accessed. 
Page length can be set, and blank lines 
are inserted between pages. 

The CPRINT module is a fully buffered, 
eight-bit I/O port which will interface with 
any Model l/lll products which plug into 
the printer port. 

CPRINT is compatible with all ver- 
sions of the Color Computer and uses no 
extra memory. 

Micro- Labs, Inc. 
902 Pinecrest 
Richardson, TX 75080 
$49.95 




The Eventide Real Time Spectrum Analyzer 

Word 

Processing 

LowerKit 

The Word Processing Lowerkit is a 
3-1/2-inch square piggyback board de- 
signed to press in place, without solder- 
ing, inside the TRS-80I Color Computer. 

The purpose of the Lowerkit is to dis- 
play true upper and lowercase characters. 
As an added feature the kit uses a 7 by 



9-dot matrix for display (rather than the 
built-in 5 by 7 matrix) for large, clear let- 
ters. All characters have descenders 
where necessary (comma, semi-colon, 
lowercase letters g, j, p, q, y). The charac- 
ter set in the standard generator is fully 
compatible with the normal Color Com- 
puter character set, with the exception 
that lowercase letters are correctly 
displayed. 

MSB Electronics 
Drawer 766 
Barre, VT 05641 
$79.95 

REX-80 

ROM Extender 

The REX-80 is a plug-in device for 
the TRS-80 Model I, Level II, or for the 
PMC-80 with the PIF-40 interface adapter. 
The REX-80 enables use of the 2,014 emp- 
ty address locations between the end of 
Basic ROM and the computer's RAM. The 
address space available is from 3000H 
to 37DDH. 

The REX-80 allows interchangeable 
ROMs (EPROMs) with commonly used 
machine-language routines and pro- 
grams to be accessed by System or USR 
commands. 

A 40-pin flat cable connects the REX-80 



to the bus at the back of the keyboard 
or to the expansion box on the TRS-80. For 
use with PMC-80, it can be connected to 
the 40-pin connector on the PIF-40 inter- 
face adapter. 

The REX-80 comes with a 40-pin flat 
cable and a 9V power pack. 

Personal Micro Computers, Inc. 

475 Ellis St. 

Mountain View, CA 94043 

$72 



AIM-80 

Analog Input Module 



The AIM-80 is a plug-in device including 
an eight-bit analog to digital converter 
which accepts up to eight analog inputs 
of to +5 volts DC. The eight inputs can 
be hardware selected to any block of eight 
ports of the 255 available ports on the 
TRS-80 and PMC-80. 

The AIM-80 provides joystick inputs 
or a total of eight different transducers 
can furnish the computer with varying 
data information. 

The AIM-80 plugs directly into the 
TRS-80 40-pin bus without the necessity of 
a cable. Connection to a PMC-80 requires 
the PIF-40 interface adapter. Additional 



units can be cascaded from the spare 
40-pin connector to permit more analog in- 
puts. A nine-volt power pack is included to 
operate each AIM-80. 

Personal Micro Computers, Inc. 

475 Ellis St. 

Mountain View, CA 94043 

$69 



EPP-80 

Eprom Programmer 



The EPROM programmer is a plug-in 
board. It permits programming of 2716 
( + 5 Vdc 2K) EPROMs and operates with 
the Radio Shack tape Editor/Assembler, 
Version 1.2. 

An EPROM controls the operation of 
the EPP-80 and provides automatic modi- 
fication of the Editor/Assembler through a 
system call. The EPP-80 requires that the 
user provide + 5 Vdc @ 1A and + 25 Vdc 
@ 50 mA. A 40-pin flat cable is included to 
connect the EPP-80 to the computer. 

Personal Micro Computers, Inc. 

475 Ellis St. 

Mountain View, CA 94043 

$85 



Introducing Correction Free Typing! 



We all make mistakes, but now you won't have to with 
TAT 1 .0™ (The Automated Typewriter) at an Introduc- 
tory cost of only SI 9.95! 

TAT lets you enter, edit and correct your letters, lists, memos, reports, 
then prints your text when you are happy with it. If you ate uncom- 
fortable with your typewriter, you'll love TAT. TAT is not for expert 
typists. (TAT is for TRS 80 ,M models I and III ] 

FEATURES: 

• Works with tape, disk or wafer 

• Non-destructive cursor, forward and reverse 

• Tabs forward and backward 

• Repeating control keys 

• Character insert and delete 

• One stroke line duplication 

• Left and right marginjustification 

• Block move (move line groups) 

• Push/pull (move data to/from previous/next line to/from 
current line) 

• Scroll Scanning 

• Quicker entry mode (without above correction feature)* 

• Slower entry mode (with above correction features)* 
•Enter your text in quicker mode, then scan, fix and adjust 

TAT also available with 

GORM ™ will combine a TAT text file, letter, contract, etc with a 

TAT substitution list to give that personal touch to form letters 
CAGE rM Page Chamer-merges TAT I files. Best for low 

memory users 
MIST " List maker with fast sort, reguires TAT (Available soon) „ 2 44 



WITH THIS ORDER 

TAT 1.0 now only SI 9.95 

GORM 14.95 

CAGE 8.95 



SOLD SEPARATELY 



normally S24 95 
1995 
II 95 



Programs are distributed on cassette tapes Please specify your 
computer model and attachments. 
Minimum System- 16K level II 




Look for future programs from 



%!S; 



P.O. Box 6 1 44. Whitneyville. CT 065 1 7 
Send me (fiitr , n TAT 1.0 Program(s) on cassette for 
only SI 9.95 each plus SI. 50 for postage and handling Also 
include on TAT 10 

D GORM at S 14 95 D CAGE at 58.95 



~Cash 



Check 



Li Money Order 



Type of Model l own 



Name 



Address 



CCV 



State 



/.I 



Please dllow 2- i weeks (or delivery 
Connect'Cul residents Aid 7 '/% wles tax 
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Clock and Cassette Speed-ups 



Manufacturer Model Clock or Cassette speedup Compatible Computers 



Archbold Electronics Speed-up Unit Clock Model I 

10708 Segovia Way Level I or II 

Rancho Cordova, CA 95670 



Exatron Speedup kit Clock Model I 

181 Commercial St. Level I or II 

Sunnyvale, CA 94086 



J PC Products Co. TC-8 Cassette Model I 

12021 PaisanoCt. Level II 

Albuquerque, NM 87112 



Mumford Micro Systems SK-2 Clock Model I 

Box 400-E Level I or II 

Summerland, CA 93067 



Personal Micro Computers, Inc. Fastload FCI-80 Cassette Model I, Level II 

475 Ellis St. PMC-80 

Mountain View. CA 94043 



Expansion Interfaces 

Model Compatible Computer Memory Size 



Manufacturer 



LNW Research Corp. System Expansion Mod I, Level II 32K 

2620 Walnut 
Tustin, CA 92680 



Lobo Drives International LX-ttU moo i 32K 

354 S. Fairview Ave. 
Goleta, CA 93117 



Micro Design MDX-1, MDX-2 Modi 32K 

PO Box 748 
Manchaca, TX 78652 



The MicroMint. Inc. Disk 80 Modi 16K/32K 

917 Midway 
Woodmere, NY 11598 



Tandy/Radio Shack Expansion Interface Mod I 0/16K/32K 

1600 Tandy Center 
Fort Worth, TX 76102 



Exatron Color Computer Color Computer 32K 

181 Commercial St. Interface (CCI) 

Sunnyvale, CA 94086 



Daltex Systems Internal Expansion Board Mod I 32K 

5308 Prince IEB 

Lake Dallas, TX 75065 
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Load Baud Rate Save Baud Rate 



Acceptable 

Cassette Length Speedup LEDs 



Price 









2-3X 


Tri-colored LED 


$45 








2X 


1 LED. toggle 


$19.95 


3100 


3100 


10-60 min. 




N 


$90 kit 
$120 








1.5-2X 


Optional 


$24.95 


8000 


500 


20 min. 




N 


$155 



Drives Printer 

Supported Supported 



RS-232 EPROM 



Y(4) 



Y(4) 



Y(4) 



N 



optional 



LDOS 
EPROM 



2Kor4K 



optional N 



Real-Time 
Clock 



2716 



optional Y 



N 



Data 
Separator 



P.C. Board 
only 



NA 



Price 



$69.95 



$862 



$64.95 
$7495 



$329.95 
$379.95 



$299 
$398 
$497 



$199 



$30 
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Memory Expansions 



Manufacturer 



Model 



Compatible Computer Expansion Size 



141 Harvard Ave. 
Tacoma, WA 98466 

Spectral Associates 



Cecdat, Inc. 


The Patch 


Mod I, Level II 


varies 


PO Box 487 








Hayden Lake, ID 83835 








Displayed Video 


U3000 


Mod I, Level II 


1K 


7538 Jackson Rd. 








Ann Arbor, Ml 48103 








Displayed Video 


2K Hideaway 


Mod I. Level II 


2K 


Holmes Engineering 


IM-1B, IM-2 


Mod I, Level II 


32K/48K 


6246 West 3705 South 


The Internal Memory 






Salt Lake City. UT 84120 








Micro-Labs. Inc. 


CM EMORY 


Color Computer 


8K 


902 Pinecrest 








Richardson. TX 75080 








The Peripheral People 


Sidecar Memory 


Modi 


2K 


PO Box 524 








Mercer Island, WA 98040 








Spectral Associates 


Ramcharger 


Color Computer 


16K-32K 



Supercharger 



Color Computer 



64K 



Video Displays 



Manufacturer 


Model 


Bandwidth 


Screen Size 


Resolution 


Amdek Corp. 


Color- 1 


3-4 MHz 


13" 


260x300 pixels 


2420 E. Oakton St., Suite E 


Color-2 


8-9 MHz 


IS- 


560 x 240 pixels 


Arlington Heights, IL 60005 










Electrohome, Ltd. 


G07 


5.5 MHz 


IS", 19" 


370 x 235 pixels 


809 Wellington St. North 










Kitchener, Ontario 










Canada N2G 4J6 










Electrohome 


ECM 1302-1 


6 MHz 


13" 


370 x 235 pixels 


Electrohome 


ECM 1302-2 


10 MHz 


13" 


580 x 235 pixels 


Electrohome 


609 


25 MHz 


13" 


720x512 pixels 


Electrohome 


C50-090 


6 MHz 


19" 


370 x 235 pixels 


Image 21 /Sony 


UM2112 


3 MHz 


12" 


525 x 300 pixels 


1303 Broadway 










Dakota City, NE 68731 










Image 21/Sony 


RM2112 


3 MHz 


12" 


525 x 300 pixels 


Radio Shack 


TRS-80 


NA 


13" 


NA 


1600 One Tandy Center 


Color Video 








Fort Worth, TX 76102 
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Soldering Software Extended Basic 

Memory Area Required Available Chip(s) Used Compatible Price 



0000-2FFF 


N 


Self-contained 


2532 


Y 


$94.97 






3000-37FF 
3000-3FFF 


N 

N 


Y 
NA 


2114 
2716 


N 
N 


$64.95 

$49.95 






8000- 
8000- 


BFFF 
FFFF 


N 


Not needed 


2K RAMS 


Y 


$59.50 (less RAM) $85.50 (w/16K RAM) 
$89.50 (less RAM) $140.00 (w/32K RAM) 


cooo 


-E000 


N 


N 


2K RAM or 
2716 EPROM 


NA 


$24.95 
$19.95 






3000- 


-3FFF 


N 


Y 


2114,2716 


N 


NA 






NA 

NA 




N 
N 


NA 
NA 


NA 
NA 


Y 
Y 


$99.95 
$299.95 







Features 



Hardware Modification Required Price 



Composite Input 



RGB input 



$449/$999 



Controls: Video Drives— Red and Green, CRT cut off Red, Green and Y 

Blue, Focus, Screen, Vertical Linearity, Vertical Height, Vertical Hold, 
Horizontal Frequency. 
Tabs: Vertical Centering, Horizontal Centering, Both 3 position. 

Brightness Control, Off/On Switch with Pilot Light Y 

Brightness Control, Off/On Switch with Pilot Light Y 

Brightness control Y 

TTL computer control, RF in, video in, RGB in, video out, Mix RGB w/ video N 



$408, $444 



$550 
$950 
$833 
$900 



Loop through in video and audio 



Modification on video output 



NA 



$725 

$750 

$399 
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Modems and 
Acoustic Couplers 




Manufacturer 



Model 



Hayes Smartmodem 
Compatible Computer Baud Rate 



Bizcomp 


Model 1080 


All 


0-300 




PO Box 7498 Menlo Park, CA 94025 


Versa Modem 








Bizcomp 


Model 1084 
Intelligent Modem 


All 


110, 1345. 
150,200.300 




Bizcomp 


Model 1022 

Intelligent Modem 


All 


110. 134.5, 
150, 200, 300 




Bizcomp 


Model 1030 
Intelligent Modem 


All 


110, 134.5, 
150.200.300 




Bizcomp 


Model 1031 
Intelligent Modem 


All 


110, 134,5 
150,200.300 




Emtrol Systems, Inc. (ESI) 


Lynx 


Mod I or III 


300 




123 Locust St. 










Lancaster, PA 17602 










Hayes Microcomputer Products, Inc. 


Smartmodem 


All 


300 




5835 Peachtree Corners East 










Norcross, GA 30092 










ICROM Enterprises, Ltd. 


Modem-80 


Mod I, Level II 


25-300 




1240 Bay St., Suite 505 










Toronto. Canada M5R 2A7 










Kesa Co. 


data Speak 


All 


300 




774 San Miguel Ave. 










Sunnyvale, CA 94086 


Model O/A-30 








Micromate Electronics 


Micronet 


All 


0-300 




2094 Front St. 


Model AM-232 




1,200 optional 




East Meadow, NY 11554 










The Microperipheral Corp. 


MicroConnection 


Mod I, Level I & II 


300 




2643-151st Place N.E. 










Redmond, WA 98052 










Microperipheral Corp. 


MicroConnection 


Mod II or III 


300 




Novation 


D-CAT 


All 


0-300 




18664 Oxnard St. 










Tarzana. CA 91356 










Novation 


CAT 


All 


0-300 




Radio Shack 


Modem I 


All 


300/600 




1600 One Tandy Center 










Fort Worth. TX 76102 










Radio Shack 


Telephone Interface II 


All 


0-300 




Syntex Electronic Innovations 


Phodem 


Mod I or III 


300 




Box 4034 










Lancaster, PA 17604-4034 
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Full Half RS-232 Receive Transmit 

Duplex Duplex Simplex Required Sensitivity Sensitivity Modes 



Acoustic (A) or 
Modem (M) Price 



Y 


N 


N 


N 


-46dBm 


<-9dBm 


Talk/Data 


M 


$119 


Y 


N 


N 


Y 


-46dBm 


<-9dBm 


Auto Answer/Auto Dial, 
Command/Data 


M 


$299 


Y 


N 


N 


Y 


-50dBm 


<-9dBm 


Auto Answer/Auto Dial, Command/ 
Data, Auto-Repeat Dial, Self-test 


M 


$595 


Y 


N 


N 


Y 


-50dBm 


<-9dBm 


Auto Answer/Auto Dial, Command/ 
Date, Auto-Repeat Dial 


M 


$395 


Y 


N 


N 


Y 


-50dBm 


<-9dBm 


Auto Answer/Auto Dial, Command/ 
Data, Auto-Repeat Dial, Self-test 


M 


$495 


Y 


Y 


N 


N 


-50dBm 


<-9dBm 


Manual originate/Answer or Auto M 


$279.95 Mod I 














Dial/Auto Answer 




$299.95 Mod III 


Y 


Y 


N 


Y 


-50dBm 


-10dBm 


Auto Answer/Auto Dial 


M 


$279 


Y 


Y 


N 


N 


NA 


NA 


Auto Answer/Auto Dial 


M 


$249 


Y 


N 


N 


Y 


-50dBm 


-9dBm 


Originate/Answer, Normal, Test 


M 


$129 


Y 


Y 


N 


Y 


up to - 45dBm < - 9dBm 


Auto Answer/Auto Dial, 


















Manual Originate/Answer 


M 


$249.50 


Y 


Y 


N 


N 


up to -60dBm 


-10dBm 


Auto Answer/Auto Dial (optional) 


M 


$249 


Y 


Y 


N 


Y 


up to -60dBm 


-10dBm 


Auto Answer/Auto Dial (optional) M 


199 50 


Y 


Y 


N 


Y 


-45dBm 


NA 


Data, Talk, Monitor, Normal, Test M 


$199 


Y 


Y 


N 


Y 


NA 


NA 




A 


$189 


Y 


N 


N 


Y 


-45dBm 


- 10dBm 


Originate, Answer 


M 


$149 


Y 


Y 


N 


Y 


-45dBm 


NA 


Originate, Answer. Test 


A 


S199 


Y 


NA 


NA 


Optional 


NA 


NA 


NA 


M 


$85 
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CONSTRUCTION 



A to D wizardry. 



Real World Interface— Part III 



Elliot K. Rand 
P.O. Box 552 
Melbourne, FL 32901 



Editor's Note: Part I of Mr. Rand's series on 
the real world interface appeared in the Oc- 
tober 1981 issue of 80 Microcomputing and 
part II ran last month. 



u 



ntil now you have been unable to leave 
the keyboard to enter new data into the 
system and alter program results. But I will 
show you how physical information can be 
converted into a form the computer can use. 
Before a computer can interact in a so- 
phisticated way with the real world, it must 
receive a detailed electrical picture of a 
physical condition. Microphones and pho- 



VOLTAGE TO FREQUENCY 
CONVERTER 



FIV.) 



Fig. 1. Voltage-to- Frequency Method 



REFERENCE 
VOLTAGE 
SOURCE 
1 Vr.f) 




(a) 




'SUPPLY 

2 2K 



V SUPPLY 





(d) 

Fig. 2. Comparator Operation. If the voltage at a comparator's positive input is more 
positive than the voltage at its negative input, the capacitor's output is pulled high. If the 
voltage at the negative input becomes more positive than the voltage at the positive in- 
put, the capacitor's output becomes low. In most applications, introduction of a small 
amount of positive feedback (hysteresis) will eliminate noise at the crossover voltage. 
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totransistors make that kind of electrical 
analogy. So do transducers. But the pic- 
tures painted by the analog voltages of the 
transducers must be converted into a digi- 
tal equivalent before the computer can un- 
derstand them. 

The computer counts in whole numbers 
which change abruptly. Analog voltages in 
the transducers are almost continuous. 
(The voltages change quickly but not in- 
stantaneously.) Converting these voltages 
to digital in an eight-bit system creates er- 
rors as great as .4 percent in the analog to 
digital conversions. The conversions are 
made by an analog-to-digital converter. Six 
types of converters are voltage-to-frequen- 
cy, dual-slope, flash (or parallel), ramp, 
tracking and successive approximation. 

Voltage-to-frequency converters gener- 
ate an output frequency proportional to an 
input voltage (See Fig. 1). The output may be 
gated and counted, and the count will be 
proportional to the input. Other than using 
the computer as a counter, the approach is 
hardware oriented. It is slow and requires 
specialized integrated circuits. Its main use 
is for data transmission in audio form. 

The remaining five converters use com- 
parators (See Fig. 2). 

The dual-slope (See Fig. 3) is a common 
converter used in digital voltmeters and 
multimeters. It is inexpensive and can be 
made very accurate with precision compo- 
nents. But it is extremely slow and hard- 
ware-determined and essentially reduces 
the computer to a counter-timer. 

The faster converter is the parallel or 
flash (See Fig. 4). A comparator circuit is 
provided for each anticipated voltage. To 
measure all the voltages in an eight-bit 
system would require 255 comparators and 
255 reference voltages and a means to con- 



now an 
eprom 

programmer 

you can 
afford 

1. Self contained Power Supply. 

2. Fully assembled and tested Printed 
Circuit Board. 

3. Complete with Ribbon Cable and 
40 Pin edge connector, can be 
plugged into keyboard unit or 
screen printer board of the 
expansion interface. 

4. Complete with Software for any 
Level II System (16K plus), now an 
EPROM program you can afford. 

5. Zero insertion force socket. 

6. 90 day factory warranty. 




Blank 271 6 EPROM's @ $4.95 plus postage 




SYSTEMS INC 



BUILDING 1 ENTRANCE A 165 FRONT ST 
CHICOPEE MA 01013 ^257 

Software included with system 
available on Cassette Tape 
or Formatted-only diskette. 

Please check appropriate box below. 

□ Tape 

□ Formatted Diskette * 
Please add $5.00 for disk version. 



2716 EPROM Programmer $79.00 

Blank 2716 EPROM's @$4.95 ea. plus 1.50 postage 

Enclosed is my check or money order for $ 

Please charge my credit card below: z visa d mastm charm 



Signature 
Send to: 
Name 



(Required on charge orders) 



^^^^^™ U Formatted Diskette * Address . 

^^^^^_ * Please add $5.00 for disk version. Cj state 2 jp ^^_ 

^^^^^^^^^ Mass residents add 5% Tax ^^fc^^^ 

i^SiiiiiiiiimiiiiS 



"The successive approximation 
technique is unbeaten 
for speed and efficiency." 



vert the output signals— which are not bi- 
nary—to a usable form. Since the converter 
is all hardware, it requires no counter or 
timer circuitry. For my interfacing experi- 
ments, I will be using a version of flash— 
the window comparator (Fig. 5). 

Although there are differences in soft- 
ware, the hardware is identical in the re- 
maining converters (See Fig. 6.). They fully 
use the microprocessor rather than spoon 
feeding it with a specialized integrated 
circuit and suffering hardware-imposed 
limitations. 

In the ramp converter (See Fig. 7), the 
computer causes the digital-to-analog con- 
verter output to rise to zero until it exceeds 
the unknown voltage. Then the comparator 
switches, telling the microprocessor the un- 
known voltage is between its previous and 
present count. For low voltages, the ramp 



CALL 0A7F 


NUMBER LOG ENTRIES 


LD(6B55), HL 


STORE # ENTRIES 


RET 


RETURN TO BASIC 


CALL 0A7F 


GET DELAY INTO HL 


LD (6B60), HL 


STORE IT 


EXX 


PRIME REGISTERS 


LD DE, (6B55) 


LOG ENTRIES 


LD BC, (6B60) 


DELAY INFO 


EXX 


MAIN REGISTERS 


LD DE, 6000 


DATA STORAGE 


LD A, 89 


INSTRUCT 8255 


OUT (7F),A 


OUTPUT TO 8255 


EXX 




LOOP1 DEC DE 


COUNT LOG ENTRIES 


EXX 




NOP 




LD HL, 0080 


A/D ROUTINE 


LDA, L 




LDC, H 




ORC 




LOOP2 OUT (7C),A 




NOP 




NOP 




NOP 




IN A,(7E) 




AND 01 




JR NZ, 


SKIP 


LDA, L 




ORC 




LDC, A 




SKIP LD A, L 




RRCA 




LD L, A 




JRNC, 


,LOOP2 


LDA, C 




LD (DE). A 


;STORE DATA 


INCDE 




OUT (7C),A 




EXX 




LD BC, (6B60) 




LOOP3 DEC BC 


;DELAY 


LDA. B 




ORC 




JR NZ. 


;LOOP3 


LDA, D 




OR E 




JRNZ, 


;LOOP1 


EXX 




RET 




Source 


Listing 



converter is fast, but for higher ones it is 
very slow. It is infrequently used with micro- 
processors because it reduces them to 
binary counters. 

The tracking converter starts out like a 
ramp but once acquiring the unknown volt- 
age it follows it by decrementing the digital- 
to-analog converter's output when the com- 
parator's output goes high. If it goes low, 
the digital-to-analog converter's output is 
incremented. After acquisition of the un- 
known voltage, the ramp is the fastest soft- 



ware-controlled converter (See Fig. 8). 

The successive approximation technique 
is unbeaten for speed and efficiency. It 
requires only eight counts regardless of 
the analog voltage value. And its output is 
binary, so conversions to that form are 
unnecessary (See Fig. 9). 

Analog-to-Digital Circuitry 

Some additional circuitry is needed for 
the real world interface to function as an an- 
alog-to-digital converter (See Fig. 10). It 



SWITCH 
LOGIC 




INTEGRATOR 



r 




COMPARATOR 



COUNTER/TIMER 
CONTROL LOGIC 
(OR COMPUTER! 



DATA OUTPUT 




SWITCHING LOGIC 
CHANGES INPUT FROM V, 
TO -V„f 

(INTEGRATOR C DISCHARGES 
THRU R UNTIL COMPARATOR 
INDICATES ZERO-CROSSING) 



INTERVAL 
PROPORTIONAL 
TO VOLTAGE 



Fig. 3. Dual-slope Converter. This converter integrates an unknown voltage for a fixed 
period of time. The result is a positive slope that is approximately linear. At the end of 
the time period, the input voltage is switched to a negative reference voltage. The com- 
parator output remains high until the integrator output reaches zero. Because the inte- 
grator averages the unknown voltage, it is virtually immune to noise, hum and other 
kinds of interference. 




Fig. 4. Flash (Parallel) Comparator. 
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Enter The Soft Sector Marketing 

ARCADE CENTER 



J, 



j 



i 



ALIEN 
DEFENSE 

1981 Soft Sector Mkt 

Mod I or III Tape, 16K 

$19.95 
Mod I or III Disk*, 32K 

$24.95 

Only Mod III version has 
ExTenaed Graphics 




ROBOT ATTACK 

by Big 5 

Mod I & III Tape 

$15.95 
Mod I & III Disk 

$19.95 




GALAXY 
INVASION 

by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III* Disk 

$19.95 




SUPER 
VADERS 

"1981 Soft Sector Mkt 

Mod I or III Tape $19.95 

Mod I Disk $24.95 

Mod III Disk $24.95 

-2 Player- 10 Levels - 

Ask for upgrade info for 

WADERS PLUS & 

TRS-SUPER NVADERS 




SCARFMAN 

e 1981 Cornsoft Group 

Mod I & III Tape 

$15.95 
Mod I & III Disk 

$19.95 



METEOR 
MISSION 2 

by Big 5 

Mod I & III Tape 

$15.95 
Mod I & III Disk" 

$19.95 





ATTACK FORCE 

oy Big 5 
Mod I & III Tape 

$15.95 

Mod I & III Disk' 

$19.95 



i 




SUPER NOVA 

by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III" Disk 

$19.95 



A A rffc i* A ift rfc A *i 

A * * ™ "^ * ™* ™ 

00004 



LUNAR LANDER 

by Adventure 

Mod I & III Tape 

$15.95 
Mod I & III Disk 

$20.95 




A 




STAR FIGHTER 

by Adventure 

Mod I & III Tape 

$24.95 

Mod I Disk 

$29.95 



'These Disk versions save high score to disk 

SPECIAL DEAL - This Month Only 

Purchase 1 Game - List Price / Purchase 2 Games - Deduct 10% 
Purchase 3 Games - Deduct 15% 

- SP6CA;. DEAL applies only to games purchasea from this ad at one time, and at list pnce - 



COD- certified cnec*. MO or cost* onry Most oraen 
sr»opea le* aov An oraers must hove jfuoping trxxoea 
pkjom oaa 2% or S2 SO «*c*« <i ^aft« 'of srvopno, 
Mcmgon reeoenti oease aaa tf* »ac Aad extra 5 1 30 tor 
COD Oersonoi cr<ecM tone 3 i.ae n to aeor Out of me 
country oroers 00X3 SIC 00 extra srvoorv 
• TRS 80 o a Dtoaucf of Raoto Shock a*/ of me landv Cotd 



SOFT SECTOR MARKETING, 
HNCORPORATEO 

6250 Middlebelt »Garden City. Michigan 48135 

Order Line 800-521-6504 

Michigan Orders* Questions 313-425-4020 
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". . . Tandy failed to make the powerful 
Z80 modes zero and two interrupts 
available to users." 



includes a window-comparator circuit en- 
abling you to use a software interrupt in 
Basic programs. You need this because 
Tandy failed to make the powerful Z80 
modes zero and two interrupts available to 
users. 



The data bus cannot be turned around by 
the interrupt-acknowledge signal without 
modifying the internal hardware of the 
TRS-80. 

The window-comparator brackets the 
converter's voltage output. This feature per- 




mits the system's software to require an 
analog-to-digital conversion only when a 
voltage change occurs. That frees the com- 
puter to perform other functions and ana- 
log-to-digital operations concurrently, inter- 
rupting only when an update is necessary. 

Conversion Experiments 

Turn on the five volt power supply. All 
light-emitting diodes (LEDs) should light. 
When you turn on the 15 volt supply, the 
voltmeter should read about 10.25 volts. 
Next turn on the 0-10 volt supply and the 
TRS-80. 

When the memory prompt appears on the 
screen, hit Enter to get into Level II Basic. 

Enter and run the following program: 






Fig. 5. Window-Comparator. Within the window, comparator outputs can be pulled high. 
If the outputs are ORed, the window output will go low — but only if the unknown voltage 
rises or falls outside the window. If the reference voltage is made variable, the window 
can be moved around. 
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Fig. 6. Ramp, Tracking and Successive Approximation Converters. 
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Fig. 7. Ramp Converter. 
196 • 80 Microcomputing, December 1981 



4000 CLSDEFINT AD:A = 0:B = 0:C = 0:D = 

4020 OUT 127, 137 

4050 B = 128:0UT124.B:A = INP(126):A = AAND1;PRINT@ 

10,1-A:IFATHENB = 
4150 C = B:B = 64:D = B0RC0UT124.DA = INP(126):A 

= AAND1:PRINT@15,1A:IFATHENB = 
4200 C = CORB:B = 32: D = B0RC:0UT124.D:A = INR126): 

A = AAND1:PRINT(8>20.1-A:IFATHENB = 
4250 C = CORB:B = 16:D = B0RC:0UT124.D:A = INP(126) 

A = AAND1:PRINT@25,1A:IFATHENB = 
4275 C = CORB:B = 8:D = BORC:OUT124,D:A = INP(126): 

A = AAND1:PRINT@30,1-A:IFATHENB = 
4300 C = CORBB = 4:D=BORC:OUT124,D:A = r>(126): 

A = AAND1:PRINT@35.1A:IFATHENB = 
4325 C = CORBB = 2D = BORC:OUTl24.D:A = INR126): 

A = AAND1:PRINT' 40.1-A:IFATHENB = 
4350 C = CORB:B = 1:0 = BORC:OUT124.D:A = INP(126): 

A = AAND1:PRINT@45,1-A:IFATHENB = 
4375 C = CORB:OUT124,C:E = C.0O46:PRINT®513.E: 

PRINT® 520. 'VOLTS ":GOTO4050 

The LEDs should strobe from left to right 
several times per second. Binary and deci- 
mal readings appear on the video screen. 
As the V x input varies, the readings change 
accordingly. By adjusting the decimal 
quantity in the third statement of line 4375 
(E = C*0.046) variations in the reference 
Zener voltage may be compensated for. 

This program runs continuously regard- 
less of whether V x is changing or constant. 

Enter and run the following program: 

5000 OUT127,137:CLS:GOTO5040 

5005 V = INP(126):V = VAND2:IFVTHENGOTO5040 

5010 GOTO5005 

5040 DEFINT A D:A = 0:B = 0:C = 0:D = 

5050 B = 128:OUT124,B:A = INP(126):A = AAND1: 

IFATHENB = 
5150 C = B:B = 64:D = BORC:OUT124.D:A = INP(126): 

A = AAND1:IFATHENB = 
5200 C = CORB:B = 32:D = B0RC:0UT124,D:A = AAND1: 

IFATHENB = 
5250 C = CORBB = 16:D = B0RC:0UT124,D:A = INP(126): 

A = AAND1:IFATHENB = 
5275 C = CORB:B = 8:D = B0RC:0UT124,D:A = INP(126): 

A = AAND1:IFATHENB = 
5300 C = CORBB = 4:D = BORC:OUT124,D:A = INP(126): 

A = AAND1:IFATHENB = 
5325 C = CORBB = 2D = BORC:OUT124.D:A = INP(126): 

A = AAND1:IFATHENB = 
5350 C = CORBB = 1:D= BORC:OUT124,D:A = INP(126): 

A = AAND1:IFATHENB = 
5375 C = CORB:OUT124,C:E = C-0.046:CLS:GOTO5999 
5999 IFE>10OUT7,255:PRINT@513,E:PRINT@520. 



Utilities 




SUPER UTILITY PUIS 

Copyright V981 3ree» Computing, nc SUPS 1 ? UT1UTV PIUS 
«as written Dv Kim waft and is the most powerful program of 's 
kind on "t© market at rnis time TTms program is a machine 
language, stand awne program mat has its own jQ routines. 
aoes not use anv ROM ot DOS calls, and woivs on SINGLE or 
DOUBLE D€NSITY svstemi Super Utility P«us performs sucn a 
woetangeotvoned tasks, ttxst it may tnjivoecaiied 'heking 
of Utilities t s not required mat the aisk oe m anv anv* after 
mrhaiaation ot me program ana user mav custom configure 
me program 'o suit nis inarviduoi system reauirements 
ZAP does evervftiing your present zapping jfilltv does r>us 
many additional ennancernents I will ooefate on iNGLE or 
DOUBLE DENSITY sys'ems ana will work with most major opera- 
ting systems mat ore presently on tt& market "he screen 
printout on Zoo aispiavs one sector at a time in HEX and ASCII 
(as other rapping utilities) Dut also tens user me true ana 
•eottve track and whether me dtsk n IBM tdrmat or not tap 
•also nas a search routine mat will locate the rgnest or lowest 
configured ttack on the auk ana others mat wNI search me 
disk tor oyte list. ASCi string word list or even encnoted code 
Zap arso oftdws you 'o display aisk sector* compare aisk 
sectors, copy sector data zero aisk sectors, copy dis* sectors, 
-everse sector data sector searches, read >C aadrets marks or 
alter data oddtess marks 

PVM has a tun screen editing « | control mat aiksws vou to «.« 
■^lesoy positioning cursor ana pressing one «ev Also Purge nos 
several suo-utilrties that allow vou to zero out unused Oirectarv 
entnej or zero out unused disk granules n addition user may 
Hi tiles dv naming the common category of me files, and may 
compute easting passwords, cnonge me oisk name date. 
passwords auto commana. or even file parameters ( name. 
passwords, ptotectior levea) .astty Purge contaris a complete 
aisk airectory that indicates all active and non-active Wes or 
fhedisk 

■OMAAT Is a utility that allows me user "o format a aisk with, 
standard format, format without erasing existing data specai 
format (custom format your disk most any way /ou want rt). 
Duiid a format track and optionally wme it Back to any nock 
on your attk. and even contains a software Du* erase utility 
The total formatting capabilities of this program are MM aoour 
jNLiMTTED ana vou mav even reformat over a disk or odd 
tracks to an existing disk without oesfovmg existing disk oata 
MM COPY will copy most any stanoord disk, with or without 
formatting The Special Disk Copy enaoies the user *o make a 
oacxup of most "TJS-SO* "eoaaDie aisks that are presently on 
•he morket regardless of arry efforts that have oeen made to 
protect them from oemg Docked up' [NOTE; "his program 
WILL NOT copy itself) This program sonry intended users for vou 
to make Backups of your regally purchased programs P<ease 
DO NO T use this utility to moke Dooneg copies 'or others as 
authors of auolitv programs aeser meir -ovaities. 
TAW CO»t enaoies the user to perform a wide vonetv of 
actions that include me aBiiity to reoa wnte. or verify tapes 
ond even includes a Bit Bv Bity copying routine that will Dock 
up most ANY TTJS-80* 'eodooie tope regardless of protection 
attemofs mode Dy authors. This utility atso is for your own use 
only. 

MM MPAM allows vou to automaticairv repair the hit and 
GAT sectors and win automatically repair o Boot "hrs utility 
also does a complete Directory Check ana win advse vou of 
errors that exrsf In oddrtion. this utility allows the user to 'ecover 
kiikw files! 'f the We was xiiied By this utility or By NEVVOOS). read 
protect or urvreod protect me directory, move it to a different 
location on me disk, or clear unused entries -asttv this utility 
advises vou of an inactive BMi that are on the disk 
Mf MOOT suooiies the aBHitv to dlsolav. move, 'est compare 
zero, exchange input or output a Byte to any port exchange 
lump to. reverse, flu string search or even load/ write ana entire 
track or sectors to/ from memory 

Fill contains the aoilrries to display file sectors, compare files 
copy Mm dak axectory "tee space 'lie locations, onve status 
create Asm ana clear files from disk '-iese jtilities grve you a 
wwe range of powerful compiefe reorganization of vour enrre 
disk with ail the files re- written in their most configious order 
C OW H OUt t SYSTfM gives vou the oomtv to c ustom configure 
Super Jtilitv Plus to /our system rdu may select sing* or 
douole density, m any comanaton 5' drives, seiect vour 
operating system Boot of your cnoioe upper or ower case, 
h.gn speed clock, single or aouBie neoded drtvei or even 
conftgure vour printer 

Mow for Mod I or III $74.t» 

^eose state when oraenng 

Sold on protected media 



BOSS III 



The 

BASIC 
OPERATED 
SINGLE 
STEPPER 



■1981 Soft Sector Marketing, inc 
for Mod III 

This Machine Language utility is aesigned to aia 
you m creating and deOugging programs written 
n BASIC. The utility allows vou tc trace me 
Drogram flow, 'o single step f he BASIC program 
to observe the conditions of vanaDles during 
Drogram execution, ana to pusn your basic 
program on the stack during program deveiop- 
met. The utility is known tc operate with Mod m 
TRS-DOS or Mod ill Rom BASIC 
Cassette (goes to disk) $18.95 

- New Lower PriC« - 
Also Iom 2.1 v«w*lon 2.2 = 1980 VB Hester fof 
Mod I Cassette (goes to disK) $18.95 

Original concept by V I Hester. 



Do you reap only mysteries from 
your TRS-80 ROMs? 
Your book has arrived! 

MOD III ROM 

COMMENTED 

Copyright e l98l Soft Sector Marketing, inc. 
"■Jot just a rehash cf oia ntormation. Out aetaiied 
commenTs on The ROMS in the latest machine 
from Tandy 



MOD III ROM 
COMMENTED 



TAPE COPY 2 

e "981 Softer Sector Marketing. Inc 
"his Drogram will load most any TRS-80 500 Bauc 
system tape (standard Mod I SDeed) ana loaa ,t 
:nto memory ana save it aT either 500 or '500 
Baud on the Mod III NO KNOWLEDGE OF MACHINE 
LANGUAGE NEEDED Now it gives vou a way to 
cack up a machine anguage program that 
cads at me lower speed ana maKes cassette 
oaamg into your new Mod ill a much taster, more 
reliaDle process Works with Mod l" 8i Mod HI 
Only $14.95 

"Mod i looas and saves at 500 Boud omv 




ti&aatixpbutfiAion 
of ROMs 

■*.:L . flwn Twwrty. 

HOOKM* Html. miHh n.—^wsss. 



List $22.50 

Special $15.00 til Dec. 31 




:ahng Machine Language Monitor 
lor MOO I ft MOO III 



BUG+ 

°198t by J Limkemann Bug+ is a powerful 
machine language monitor The one point most 
'mDrcved over other monitors, is t^>e tape write 
Bug+ has the ability to write a clean tape (at 
500 oaud). this tape will reaa >nfo the TRS-80 
under *he system command without the dtod- 
lems previousiv associated with The volume set- 
ting Regardless what version basic vou have or 
whemer or noT vou nave a Raaio Shack cassette 
tin, mis monitor will improve the reiiaoiiity of vour 
cassette ov 100% "hereisaisoavefifvcommana 
mat works me same as a CLOAD 7 " except 
when an error s found me memory aadress and 
/vnat is found on the tape is dispiavec 
-many a break point that works 1 When a break 
point is reacned. there is a bunking asTnsk in the 
boTtom right nana comer you are able to see 
what is on the screen before the monitor takes 
control ^ress the enter Key me screen clears ana 
tne monitor comes to ife When you continue 
from a oreak point, me monitor will restore the 
screen first men 'oac the CPU registers ana return 
*o your program Vou do not lose vour program or 
asDlay ana if does work 1 
Bug* aiso nas an the commanas cf I - - Bug. they 
ust work oener 3ug+ ^oaas .nto iow memory 
then re'ocates tseif 

Mod in hasall me commonasof tne Moa I version 
Dlus t gives /ou me ability of 'eaamg or writ ng 
1500 baud or 500 baud tapes, vou can reaa at 
one rate and write at another MOD l or III 4K. 
both on same tape. 
Cassette $14.95 



COO - certified cnecx MO or casn onN Most ^raere 
sn.pped next aov All orders -rust ixjve sniooing ncruded 
Please odd 2X or S25C. *^iicnever s hignet 'or smoDing 
Vcniaan residenti piease oad 6% <an Add extra S1 50 for 
COD ^ersonai cnecxs taxe 3 weexs to clear Out of *ne 
coun"v orders oda S *0 X extra sniooino, 
•TRS-80 so produc* of Tadlo SrvacX. arv c< me 'andy Corp 



SOFT SECTOR MARKETING, 
IINCORPORATED 

6250 Middlebelt •Garden City. Michigan 48135 

Oraer Line 800-521-6504 

Micnigan Orders & Questions 313-425-4020 



>« America'- E»D'ess* 
Ckx^ ' 'eive 'VJiT'e «*>tnr 
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#20 SOFTWARE 



ULTIMATE SOFTWARE PLAN 



We II match any advertised price on any 
item that we carry And if you find a lower 
price on what you bought within 30 days of 
buying it |ust show us the ad and we II 
refund the difference 
Its that simple 



DISK WITH 
MANUAL / 

ARTIFICIAL INTELLIGENCE 
Medical PAS-3 $849 S40 

Denial PAS-3 $849 $4C 

ASYST DESIGN 

Prof Time Accounting $549 $40 

General Subroutine $269 $40 

Application utilities $439 $40 

COMPLETE BUS SYSTEMS 

Creator $269 $26 

Reporter $169 $20 

Both $399 $46 

COMPUTER CONTROL 



'abS E 

UltraSc 



$159 $20 
$159 $25 



COMPUTER PATHWAYS 

Pearl leve. i $ 99 $25 

$299 $4C 



Pe 



vel3 



DIGITAL RESEARCH 
CP M 22 
NorthStar 

TRS-8C MoOel II 
MicropoliS 
Cromemcu 
PL 1-80 
BT-80 
Mac 
- 

Z-SiO 
To. 

DeSpool 
• CB-80 
^CBasic-2 

DMA 

Ascom 

DMA-DOS 

CBS 

Formula 

GRAHAM-DORIAN 

General Ledger 

Acct Receivable 

Acct Payable 

Job Costing 

Payroll II 

Inventory II 

Payroll 

Inventory 

Casb Register 

Apartm<rv Mq: 



$149 $25 

T $159 $35 
$169 $25 
$189 $2j 
$459 $35 
$179 $30 
$ 85 $15 
$ 65 $15 
$ 90 $15 
S 90 $15 
$ 50 $10 
$459 $35 
$ 98 $20 

$149 $15 
SI T9 $35 
$369 $45 
$539 $45 

$729 $40 
$729 $40 
$729 $40 
$729 $40 
$729 $40 
$729 $40 
$493 $40 
$493 $40 
S493 $41 
$493 $40 



Merg. 



MICRO AP 
S-Basic 
Selector IV 

MICRO DATA 

HDBS 

MDBS 

DRSor QRSc 

MDBS PKG 

MICROPRO 

WordStar 

Customization 

Mail-Merge 

WordStar Mai 

DataStar 

WordMaster 

SuperSort i 

Spell Star 

MICROSOFT 

BasiC-80 

Basic Compiler 

Fortran-80 

Cobol-80 

M-Sort 

Macro-80 

Edit-80 

MuSimp MuMath 

MuLisp-80 



$269 $25 
$469 $3'< 

BASE SYSTEMS 
$269 $35 
$795 $40 

>r RTL $269 $10 
$1295 $60 



$319 $60 

$ 89 $na 
$109 $25 

$419 $85 
$249 $6C 
$119 $40 
$199 $40 
$1 75 $40 



$289 
$329 

$349 
$574 
$124 
$144 



$ 84 

$224 
$174 



MANUAL 
ONLY 

MICROTAX 
s Individual 
s Professional 
^" Partnership 
^ Package 



ORGANIC SOFTWARE 
TextWnter III 

DateBook n 
Milestone 

OSBORNE 

General Ledger 
Acct Rec. Acct Pay 
Payroll w Cost 
All 3 

All 3 • CBASIC-2 
Enhanced Osborne 
With C Basic 

PEACHTREE 

General Ledger 
Acct Receivable 
Acct Payable 
Payroll 
Inventory 
Surveyor 
Properly Mg! 
CPA Client Write-up 
P5 Version 



Combine our price protection with the 
availability of full professional support and 
our automatic update service and you have 
the Ultimate Software Plan 

its a convenient, uncomplicated, logical 
way to get your software 

\S (New items or new prices) 

CP M users 
specify disk syster 



SOFTWARE WORKS 

Adapt CDOSfCPM $ 69 $na 

Ratfoi s 86 tna 



, and formats Most formats available 

PASCAL 

$250 Pascal MT • $429 $30 

$1000 Pascal Z $349 $30 

$750 Pascal UCSD 4 $429 $50 

$ 1 500 Pascal M $ 1 89 $ ?0 

WORD PROCESSING 

WordSearch $179 $60 

SpollGuard $229 $25 

VTS 80 $259 $65 

Magic Wand $289 $46 

Soe'l Binder $349 $46 

OTHER GOODIES 

Select $269 $ia 

Forecaster $199 $na 

s Micro Plan $419 tna 

S The Last One $549 Sna 

SuPerCalc $269 $50 

rargei s " 

BSTAM $149 $15 

BSTMS $149 $16 

Tiny C $ 89 $50 

Tiny C Compiler $229 $50 

Nevada Cobol $129 $26 

MicroSlat $224 $25 

Vedit $106 $15 

MmiModel $449 $60 

SlatPak $449 $40 

Micro B* $229 $20 

Raid $224 $36 

String 80 $ 84 $20 

String 80 source $279 $na 

ISIS II $199 $50 

Plan 80 $269 $30 



$111 $25 
$269 $26 
$269 $30 



$ 59 $20 
$ 59 $20 
$ 69 $20 
$129 $60 
$199 $75 
$269 $60 
$349 $76 



$399 $40 
$399 $40 
$399 $40 
$399 $40 
$399 $4C 
$399 $40 
$799 $40 
$799 $40 
Add $129 



SOHO GROUP 

MatchMa«e- 

WorkShert 



$ 97 $20 
SI 77 $20 



STRUCTURED SYSTEMS 

^GLor ARorAPorPay $849 $40 

^ Inventory Control $849 $40 

Analyst $199 $25 

Lettenght $179 $25 

QSort S 89 $20 

NAD $ 87 $20 

SUPERSOFT 

Diagnostic $ 49 $20 

Diagnostic il $ 84 $20 

Disk Doctor $ 84 $20 

Form 8080o'Z80 $149 $30 

Fortran $219 $30 

Fortran w Ratfor $289 $35 

^CCompilor $174 $20 

^Star Edit $189 $30 

Other less 10% 

TCS 

GLor ARorAPorPay $ 79 $26 

All 4 $269 $99 

Compiled each $ 99 $25 



NFO UNLIMITED 
»•* EasyWnter 
•s Datadex 

Other 

MICROSOFT 
^ Softcard Z-80 CP M 

Fortran 

Coboi 

.-» I ; .1 



$199 
$249 
less 15-. 

$279 
$179 
$499 
$139 



MICHOPRO 
Wordstar 
MailMerge 
Wordstar MailMerge 
SuperSort I 
- Speilstar 

PERSONAL SOFTWARE 



• . • • 
$ 99 
$349 
S'69 

5 '. ■- 



UNICORN 
Mmce 
Scribble 
Both 

WHITESMITHS 

C Compile- 
Pascal mcl C 

DATA BASE 

FMS 80 
^dBASE II 

Condor II 
s Access 80 Level 1 
s Access 80 Level 2 
y Access 80 Level 3 

Optimum 



$149 $25 
$149 $25 

$249 $60 



$600 $30 
$850 $46 



$649 $4 6 
S595 $50 
$899 $50 
$249 
$429 
$679 
$749 $50 



ViSicalc 3 3 
Desktop Plan ll 
Visiterm 

Visidex 

Visipiot 

Visitrend Visipiot 
^ Visifiie 

PEACHTREE 
General L* (Jge< 
Acct Receivable 
Acct Payable 
Payroll 

inventory 

OTHER GOODIES 
^dBASE II 

VU »3R 

usew Visicalc 
Context Connector 

usew Visicalc 

Micro Courier 
TCS Apple 

complete business/ 
Super-Text II 
Data Factory 
DB Master 
Charles Mann 
STC 



$159 
$159 
$129 
$159 

$149 
5.' • 
$199 

$224 $40 
$224 $40 
$224 $40 
$224 $40 
$224 $40 



$129 
$219 

$269 $99 

< - 2 J 

$134 

$184 
less 15' 
less 15- 



ORDERS ONLY -CALL TOLL FREE VISA • MASTERCHARGE 
1-800-854-2003 ext 823 ■ Calif 1-800-522 1500 ext 823 

Overseas -add $10 plus additional postage • Add $2 50 postage and handling per each item • California 
residents add 6% sales tax • Allow 2 weeks on checks COD ok • Prices subiect to change without notice 
All items subiecl to availability • » - Mfgs Trademark 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Ave Suite 309- Los Angeles. Ca 90028 • 213 837-5141 

Int I TELEX 499-0032 BVHL Attn DiscSoft • USA TELEX 194-634 BVHL Attn DiscSoft • ** 440 

TWX 910-321-3597 BVHl Attn DiscSoft 



•VOLTS ■••.PRINT® 766,- OUT OF 
SAFE R ANGE !!' ':FORAZ = 1TO10NEXT 
AZ.OUT.O FORBZ = 1TO10 NEXTBZ GOTO5005 
6000 IFE>9OUT7.170:PRINT®513,E:PRINT<a520, 

"VOLTS" GOTO5005 
6010 IFE>8OUT7,85PRINT&513.EPRINT#520, 

V O L T S ■ GOTO5005 
6015 IFE>7OUT7.15:PRINT@513.E:PRINT@520. 

■VOLTS" GOTO5005 
6020 IFF>€OUT7.240 PRINT&513.E PRINT®520. 

VO LTS' GOTO5005 
6030 IFEOOUT7.254 PRINTf«513.E PRINTc<f520. 

•VOLTS 'GOTO5005 
6032 IFE<2OUT7.253:PRINTf<i5l3.E:PRINT«520. 

•VOLTS • , :GOTO5005 
6034 IFE<3OUT7.252:PRINT<85l3.E:PRINTr,{520. 

•VOLTS " GOTO5005 
6037 IFE<40UT7.2S1:PRINT<3513.E PRINT6520. 

■VOLTS' GOTO5005 
6040 OUT7.0:PRINTrtf513.EPRINT l j{520." VOLTS 
:PRINT@535," (NORMAL RANGE)'' 
GOTO5005 

The LEDs strobe only when V x is 
changed. Lines 5005 and 5010 may be in- 
cluded in another program and frequently 
polled, interrupting the main program only 
when voltage information requires up- 
dating. You may add messages to lines 
6000-6040 as desired. 

The Basic analog-to-digital routine runs 
slowly. An interesting speed comparison 
may be made by using a data statement to 
generate the test bits. 

Enter and run the following program: 



7010 A = 0B = 0.C = 0D = 0E = 0:F = 

7050 OUT127.137 

7100 DATA 128.64.32. 16.8.4.2.1.0 

7125 READB 

7150 C-C0RF:D-B0RC0UT124DA = INP(126|.F = B 

A = AAND1:IFATHENF^0 
7160 FORXX = 1TO150NEXTXX 
7175 IFB = OTHEN7250 
7200 GOT07125 

7250 CLS E s C.046PRINT&400.E PRINT«408, 
VOLTS RESTOREGOTO7010 



This program runs slower than the two 
previous programs for analog-to-digital 
conversion. 

Delete line 7155 and observe the DC 
voltmeter. You will see in slow motion the 
hunting action of the successive approx- 
imation as it homes in on the unknown 
voltage. 

Increased program execution speeds 
may be achieved using the USR function, 
allowing the program to run in machine 
language and return the data to the Basic 
program. 

Enter and run the following program: 



60000 POKE27136.62POKE27137.137.POKE27138.211 
POKE27139.127POKE27140.33POKE27141.128 
POKE27142.0 POKE27143.125 POKE27144 76 

60020 POKE27145.177 POKE27146.211 POKE27147.124 
POKE27148.0:POKE27149.0.POKE27150,210: 
POKE27151,219POKE27152,126:POKF27153.230 

60040 POKE27154,1:POKE27155,32:POKE27156.3 POKE 
27157.125 POKE27158.177 POKE27159.79: 



198 • 80 Microcomputing, December 1981 



'The Serious Side of Computing . 

Business Programs 
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THE COMPLEAT IDIOTS BOOKKEEPER (TCIB) 

Product Overview 



GENERAL DESCRIPTION 

■ACXMOUND SEPARATE - This program reads a specified data rile and checks eoch aare Eacn month s 

TCIB was written by Larry Raper Larry is a Chartered Lite Underwriter and Lioensed Lite transactions are copied info a separate rue It there are no transactions 'ex a grven month no 

nsuronce Counselor MervasaxnsistentvrarateaoTTyxgfr^rooSaWMarxao^arxjtionalryin rile is created 'he Me* created are named JAN/DAT. FEB/DAT etc This uMity con oe run 

his company tor the post several years He also writes software tor insurance and f-nancoi several times during on accounting period if a reauired monthly data tile already exists the 

planning applications. TCIB come about o» a result of a humiliating visit Larry made fo ns new data win oe added to it Otherwise it will oe credted and the new data entered nto it 

accountant - carrying a Dnefcose fun of unorganized checks receiots ono other tinoncidi REPORT GENERATOR - This program represents the final sfeo m transforming unorgan zed 

information At o result of that visit, he decided there hod to Deo better way TCIB is the result financial data into useful financial reports 

of that experience. After you have iNSERTed your financial data. EDITed it to your satisfaction PURGEd RERLEd 

If is intended that this set of programs should be easily usable ov any person who has to Qfyj SEPARATEd as you wont you are now ready to INDEX it and REPORT The reoort generator 

keep his/her own financial records The next section will provide on overview of the specific program first reods the index you have Duilt. and based on that presents you with a finished 

capabilities of this package product Each maror category (the first item of your index) will be presented on a separate 

PftOOUCT CAPAMUniS page I ncome entries wil I be shown as a simple, formated numeric va lue Expense entries will 

.._ »#»•■ -t~ ■» °* snawn m parentheses Eoch page will contain a njrv-iing sub- total of the current maior 

MM wti "CM oof categpry (income items will be added expense items will oe subtracted) The sub- total will 

DataOaMtertng- TO B provides a simple method of entering your finorxiai information into o a iso be presented m the above format Finally a summary page win be printed itemizing 

disk file A formot screen is presented which w« l prompt you tor entry of the required data from eoch maKX category covered <n the report (sucn as iRS form 1040 Line* 1 ) along with that 

your records. The following fields are provided category s sub- total FmdHv an overall total of on entries covered by the index will be 

NUMBER OF presented to finish your report 

RELD NAME CHARACTERS MAKE-VC - An additional utility program is available at extra cost to allow the transfer of files 

identifier 8 from TCIB to V1SICALC" "his makes use of VlSCALCs DIF" format and is very useful for 

Date 4 performing special computations with data gathered by TCIB Incidentally, if you wish TCIB 

Payor/ Payee 1 8 files can also be created by VI9CALC* if you conform to the reauxemenrs specified m the 

Description 18 MAKE-VC program 

Category/Account 5 Product Un ^oWow- Before we create the impression that this program is me end on ono be 

incomeor Expense otr letusnosfentotaikaboutitsreauirementsandiimitatxins Thishstof limitations isprobaoiy 

Deductible or Non-deductible not ail-inclusive Doubtless someone wilifind some way m which to push me program past its 

Am0lJn, limits that we never thought of - however mis is a good start Pi EASE READ this SECTION 

A 'screen-oriented editor allows you to see me whole record as you are entering it vou ore CAREFULLY TO AVOID DISAPPOINTMENT! 

tree to moveopout in the record and change any data you wish. Once you are satisfied with ,^ vyifh the exception of the screen input routine and the sort routine, the programsare written 

the results, pressing the <ENTER> key causes the program to( 1 ) review the ddtd you entered ^nietw in BASIC. The programs are furnished to vou in UNPROTECTED source code While this 

for posstXe errors - and (2) assuming no errors, wnte the record fo the drsk file. g,^ you ^ oopofturirfy to study program and/ or modify it to your special needsi AT YOUR 

Sirxremostpeopworerxjtableorwitingtopotf everyflrvjrcialtTOr^ OWN RISK. OF COURSE) interpreted BASIC lust isn't as fast as machine language 

occurs, provision has been made tor the foci that catching up will almost always result m 2 ) This program does a LOT of stnng manipulation As a result at 'imes me computer win 

duplicate entries (e g you may enter the same check twice or enter a check and rece-pt occasionally have to stop and collect its wits' (■ e do 'garbage collection" on its stnng 

covering the some transaction) A PURGE" program guides me computer to seorch your file or spoce) 

flies for possible dupiiccrte entries and if found present them to you tor disposition .«*-».. „..,.~ _ „ . 

"*^~""~»- The answer to mis peculianty is DONT PANIC - we nave never seen o garbage collection 

Data W »putB * on - in addition to the PURGE capability |USt described (techncolryo data snutdownmcirettvanatewmomentvjustwarchfcxmecursor ifitisflashmgailisweilanayou 

manculatlon feature). TCIB also features other importont dota manpulanon obilrties can proceed wim data entry if it is not flashing relax a moment and proceed when it resumes 

EDIT - allows you to retrieve, edit or delete any record in any TCIB file You can retrieve a flashing. You can type as fast as you want in ddtd input We have vet to see anyone able to 

record by its record number You can search any field of all or part of a file lor any record type faster than me program can accept the dafd 

containing your search target as all or port of the target field You can also do a multiple Ne. 3) t^h, are ^^ ^ re$mcf , on j on rho amount of ddta you can nondie with TCIB 

smgieormuifiptefieidsearchoftroml to 20 separate files in a angle search after building the .«—*■ -.^..x ~~. *~^,.\ 

oppropnate index Any time a search results ,n retneving a record th* record wHl be disptoyed =>* S'oroge - all dota Mng , usee I by the programs MUST be on d,s^) mcx^nted on dnv« s) 

and you w« hove me choice of carrying out ony desred editing functons When you are Currently ,n use Swapping of data disMdunng program operation ,s NO supported voucan. 

finished w^ the reccfd currently oeir^disPKived howeve '' use as ™™ *""* as «** "»<»«»• and operanng system will supp^Vou snou-d 

the search, returning to normal ed.t functons. editing another file or returning logman be able to use any type of drsk your hardware ana operating system will support , We ha^e 

"""~ v v not »ested me program wim anymmg besides 5'» drtves bui if problems arise, let us Know 

ond we will do our Dest to heio you o^rcome mem ) 

INDEX -This program allows the user to build d single maex to the contents of from 1 to 20 .,„....., _, , , _.„--,., T „_ 

seated Wes.^ index cdn span one or more flelaTin a single record Th„ mformofion ,s <*™£" '^^ " TCl8 , 23fZ5'L£ ( . ^1^ 1 'LZ*2 £ 

sorted dnd stored on the disK The REPORT GENERATOR and EDIT programs use the index to INMXER program leaves ISOOC 1 bytes free in when to build an index Therefore. m,s | you, 

_ . „.. _____ ,„ »._ ^._„_ *i_, mom program imitation The i ndex itself u ses 5 bytes per record for i rs own overhead An index 
control mer access to rne cnosen nies. ,..,».,., ._,««._ 

built on the category field (S bytes) plus the ddte field (4 bytes) would use 1 4 bytes per record 

The index is limited to a maximum of 10 character from eoch of 1000 records if more than 10 (5+4+6) As full 1000 records con be handled wim a single index built on these fields On me 

characters per record are used m building me index the number of records to which it can ome< ^^ a _ ina&x ajg1 __ cafeaofy (5 ^^^ + ^^ (A Dvte j) + oescnption 1 1 8 bytes) 
point wdl be reduced proportiondtev Smce the programs are referred to m unprotected ^^^ ^ 32 Dv tes per record (5+4+18+6) and could only handle about 460 records The 
source code, you are free to ploy wim the siting space and index arrays if your DOS leaves bottom line is- oont put more information in your index than you REALLY need if vou wont to 

you more heodroom maximize the number of records you con handle Also - keep an eye on available disk space 

REFHE - The purpose of mis utility program is to allow vou to build a new file by copying ony wften you are building an index Be sure mere is enough room or you 11 wind up doing it over If 
records in an old file which satisfy your search requrements to the new file You can also copy the program encounters a a isk fuir error while writing me index it will close the index fUe. kill it 
selected records from one file to another m the same way This seotch can be done wim a and ten you to provide enough disk storage before trying agotn 
MATCH or NON-MATCH test. For example when you instruct the EDIT program to DELETE a 

record, it replaces the contents of the identifier field with "DELETED' You can then use the N>1 ( - w -J l /-wr Hi /1P.1/ 1 Hriv/a $49 95 

RERLE utility to copy all records which DO NOT have DELETED as the* identifier to a new file IVICXJ I Or III, aOrx. I UriVfcJ *-»y.yi» 
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CSfTPATH* 

•1980 PM Programming 
C«TI»ATH- wiM he4p 

- Determine the earliest possible completion date for your 
protect 

- Identify the critical octrvttles m your protect the kdoj that 
will daav comoletion of the entire project it they are not 
completed on time 

- Provide you wim the scheduled start and flmsh date for 
all protect activities so you can plan your laoor ana 
material needs to support the proiect completion date. 

Develop the intprmation needed to permit you to shift 
resources and funds to critical activities from those 



activities indentif led by the program as coing capable of 
delay without delaying the completion of me protect 
OMTPATtr p rovtdee you wtth 

- Bom screen and printer outputs of your schedule in work 
days, tabulating the earliest start/ finish and latest start/ fi- 
nish dov as well as the total float for eac h protect activity 

- The length of me critical path in work days. 

- A listing of all octrvities that are on me critical path jobs 
that cannot be delayed without delaying the entire 
protect 

- A printer output of the actual calendar dates for me 
earliest start/finish and latest start/finish along with pom 
free and total float for each activity 

- Your choice of panting out ddta sorted consecutively 



MAKEVC 

•1981 SFl Changes OCT Nes 'o VI Si CAlC interchange 
formal or take VC files and makes it nto iDtOT readdble file 
Now Only $24.99 

Make vC requires Compteat idiots Bookkeeper 



Specially designed for builders, by a builder Also worvs 
well with many other businesses 

MOO 1 $600.00 

MOD II! $790.00 

Manual $50.00 

Overview Free 

Requires 48K. 2 disk drives and 132 column printer 



COD- certified check. M O or cash only Most orders 
snipped next day All orders must have snipping included 
Please odd 21 or S2 50. whichever is higher for shipping 
Michigan residents please odd 4% tax Add extra S1 50 tor 
COD Personal checks take 3 weens to clear Out of the 
country orders odd S10 00 extra shoping 
■TRS-80 is a product of Radio Shdck. div oftheTandvCorp 



SOFT SECTOR MARKETING, 

INCORPORATED 
6250 Middlebelt •Garden City. Michigan 48135 
Order Line 600-521-6504 
Michigan Orders & Questions 313-425-4020 
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". . . the TRS-80 is now capable 

of better than 

10,000 observations per second." 



s 

COMMAND? 








6A0O: 


3E 89 


LD 


A. 89 


CONFIGURES 8255] 


6A02: 


D3 7F 


OUT 


7F 




6A04: 


21 80 00 


LD 


HL. 0080 


ZEROES H. SETS MSB INL 


6A07 


7D 


LD 


A. L 


SETS MSB IN A 


6A06: 


4C 


LD 


C. H 


ZEROES C 


6A09: 


B1 


OR 


C 


FORM TRIAL BYTE 


6A0A: 


D3 7C 


OUT 


7C 


OUTPUT TRIAL BYTE TO DAC 


6A0C: 


00 


NOP 






6A0O: 


00 


NOP 




12 MICROSECOND 


6AOE: 


00 


NOP 






6A0F 


DB 7E 


IN 


7E 


GET COMPARATOR RESULT 


6A11. 


E6 01 


AND 


01 


MASK OUT HIGHER BITS 


6A13: 


20 03 


JR 


NZ. 6A18 


TOO HIGH. DISCARD TEST BIT 


6A15 


7D 


LD 


A. L 


PUT TEST BIT IN A 


6A16: 


B1 


OR 


C 


PUT IT INTO TEST BYTE 


6A17: 


4F 


LD 


C, A 


STORE NEW BYTE BACK INTO C 


6A18: 


7D 


LD 


A. L 


PUT TEST BIT BACK IN A 


6A19. 


OF 


RRCA 




GENERATE NEXT TEST BIT 


6A1A 


6F 


LD 


L. A 


SAVE IT IN I 


6A1B 


30 EC 


JR 


NC. 6A09 


DONE EIGHT TIMES? 


6A1D 


69 


LD 


L. C 




6A1E 


7D 


LD 


A, L 


PUT RESULTANT BYTE INTO A 


6A1F; 


D3 7C 


OUT 


7C 


PUT IT OUT ON PORT 124, LIGHT LEDS 


6A21. 


C3 9A OA 


JP 


0A9A 


TRANSFER BYTE AND CONTROL TO BASIC 








Program Listing 



COMPILER 
WORKSTATION 

TRS-80 Model I and III 

Your BASIC program development 
could go faster. . . 

EDIT: Ful. -Screen BASIC editor with foaling cursor and a -to 
'eoeal Wore !han 30 commands and functions iet you .»' 
ious.y Bad cnanqe insert delete 'epiace raotCBk. copy 
move or position BASIC text at tie character string line or 
oioc"' levei Developed M B'Ham Oy Southern Software Med i 
III $40 00+ 1 SO shipping 

PACKER: (Cottage Software) Editing tool will unpack, shorten. 
repack renumber all or part ot your BASIC lext The UNPACK 
segment is very useful when preparing BASIC source pro 
grams 'or compilation cy ACCE.2 Mod .III $29 95 + I 00 
Shipping 

Then your BASIC program 
could go faster. . . 

ACCEL2: Compiler tor TRS-80 Mod i Mod III Disk BASIC New 
tunctional improvements in place 10 give more ease-of-use. 
quicker compilation ot large programs . oetter chaining of com ■ 
piled and non-compiled programs Size readout helps you 
monitor code growth during compilation REM NOARRAYop' on 
lets you use vanao:eooi,nd arrays Professionals note Com 
prehensive instructions Show how to organize your comp ed 
programs tor resale on tape ES F wa'er or dis* No 'Oyait es 1 
Developed in Britain Dy Southern Sotware Specify Mod Iff III 
$88 95 ♦ $2 00 shipp ng 

TSAVE: Writes compiler output lo independent SYSTEM (ape 
$9 95 + $1.00 shipping 

EXEC: Command List Processor tor TRS-80 Mod I Prep.re 
execute pass as nary as n ne parameter to nsts ot TRSOOS 
or NfWOOS commands and or BAS.C statements Simpu' es 
repetitive procedures sjcc as powe'-op seojences die -,et 
ups etc Compatipie with ACCF12 compiler dis* outcj! 
Developed in Man oy Southern Software $22 00 ♦ $1 00 
snpp.ng y m ^ 7q 



Alton Gaidar Software 
M/C. VISA H Box 11721 Main Po$t Office 
CA add 6% vV San Francisco, CA 94101 
1415) M7-3131 

TRS-80 TRSDOS tm Radio Shac« ES F tm Exaron 



POKE27160.125: POKE27161.15:POKE27162.111 
60060 POKE27163,48:POKE27164,236:POKE27165,105: 
POKE27166,125:POKE27167,211:POKE27168.124: 
POKE27169.195:POKE27170,154:POKE27171,10 

The POKE statements load the following 
machine language routine into memory 
beginning at memory location 6A00H (See 
Program Listing). 

Line 60080 causes the USR instruction to 
branch to 6A00H, assigning a value be- 
tween zero and 255— proportional to the 
unknown voltage V x to the variable X in the 
program. 

Varying V x will cause the window- 



^iii/\n 



d/a output 



i 

COMMftATO* 

Output 

|TI, LOGIC 
LEVELS) 



Fig. 8. Tracking Converter. This converter 
causes the count to dither constantly 
around V x , so it monopolizes microproces- 
sor time even when V x is constant. If the 
.voltage jumps too fast to be tracked, this 
converter loses acquisition and reverts 
to its slower ramp mode until acquisition 
is restored. 



comparators to signal the need to update 
voltage information. The response time is 
much faster than the equivalent Basic Pro- 
gram run earlier. 

To poll the routine constantly, run 60300. 
Compare the speed of execution with the 
comparable Basic programs beginning at 
lines 4000 and 7000. The Basic routines run 
about 25-times slower than the routine with 
the USR call, but are limited to less than 100 
observations per second by this method. 

More efficient methods are available. 
They allow the use of Basic for convenient 
parameter entry. Instead of jumping 
repeatedly from Basic to machine language 
to develop a byte of information, then jump- 
ing back to Basic to display it, a block of 
memory for data storage can be assigned 
to perform the analog-to-digital conversion 
repeatedly until the memory block is filled. 
This is done in the microsecond execution 
times of machine language. What is hap- 
pening is the system is acquiring data in 
real time but processing it in the abstract. 
So the TRS-80 is now capable of better than 
10,000 observations per second. 

Once the data is developed and stored, it 
may be retrieved with creaky old Basic and 
processed in any way desired. You can 
develop graphs, arrays or whatever from 
this information. 

This procedure can be demonstrated by 
loading an assembly program (See Source 
Listing) using T-Bug, RSM or EDTASM. 
After loading the program, jump to Basic at 
1A19H and run: 

10 CLS:INPUT -NUMBER OF READINGS" ;A 

20 IF A> 32700 GOTO 10 

30 POKE 16526. a POKE 16527. 107 

40 X = USR(A) 

50 INPUT "DELAY BETWEEN READINGS (0 TO 

5SECS)";D:B = D.65S35 

B = D-65535:IFB^0 
60 POKE 16526. 7POKE 16527. 107 
70 X = USR (B) 
80 FOR N = TO A:C -= 24576 + NY = PEEK (C) 

Z = 0.043.Y: 

PRINT Z;:NEXT N 
90 PRINT: INPUT'PRESS ENTER TO RESTART 

PROG RAM' ';G: GOTO 10 

Answer the prompts by requesting 100 
readings and a delay of .01 seconds. Vary 
V x during the one-second interval while the 
program is storing real-time values. You will 
observe the Basic program retrieving those 
values stored in memory by the machine 
language program, outputting them to the 
screen. 

The limitation in line 20 prevents the 
storage of data over the machine language 
programs beginning at 6A00H. 

Intelligent Decisions and Control 

Port B has remained unemployed during 
this introduction to interfacing with the real 
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-i^ GUARANTEE^-* 

Lazy Writer® comes with a 
30 DAY, MONEY BACKt GUARANTEE 

Guarantying There Is Nothing Even Close! 

tLess 10% restocking charge 




If you are looking for 

The Finest In 

Word Processing Systems 

you can . . . 

1. Purchase and examine all other 
word processing programs on the 
market and then purchase Lazy 
Writer® 
or . . . 

2. You can purchase Lazy Writer® 
first. If s your money! 

Lazy Writer® Mod I still only $125.00 

till Dec 31 1981 

Lazy Writer® Mod III $175.00 

* Requires 2 Disk Drives to convert only. 

■^■■■■■■■■■B SPECIAL DEAL 

Purchase Lazy Writer® and receive, this month only 
MICRO PROOF with the correction feature and patched to Lazy Writer® 

Only $149.50 extra 

Reg. $184.50 

Now available from 

CCETY1 SOFT SECTOR MARKETING, 
9SMII INCORPORATED 

For those of you who requested 
a spelling checker to use with Lazy Writer® 

MICRO PROOF 

Product of Cornucopia Software 

EASY TO USE 

50,000 WORD VOCABULARY & EXPANDABLE 

RECOGNIZES PREFIXES & SUFFIXES 

REQUIRES ONLY 32K OF MEMORY & 2 DISK DRIVES 

AFFORDABLE & AVAILABLE IN THREE FORMS: fully independent program to identify errors- 
independent program to identify and correct errors; or with a conversion program that 
will permit MICRO PROOF to operate from within. 



New Lower Price! 

TRS-MOD I or III Version 
Correcting Feature 
Word Processing Con- 
version for Lazy Writer* 



Was Now Only 
$125.00 $89.00 
Add $60.00 

Add $35.00 



Let MICRO PROOF 

Find Your Errors 

Before Someone Else Does! 



COD- oemfiea cnecx. M O or cash onrv Most oraefs 
sncpea "err aay AH oroers must hove snipping mctuaea 
°»sase aaa 7%, <x S2 SC *rncnever * noner •en shcoirxj 
\*cn,gon resKSenri D1 «ose oca e% -a* Aaa exrra $ i 50 *of 
'- O D Personal cnecks fake 3 weeks to ciear Out of »ne 

untty oraers aaa S '000 extra snipping 
^s-ec is a DfooLct o' Radto snack, a* of tne fanav Corp 



SOFT SECTOR MARKETING, 

INCORPORATED 
6250 Middlebelt •Garden City. Michigan 48135 
Order Line 800-521-6504 
Michigan Oraers & Questions 313-425-4020 
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"This permits monitoring the result 

of an action which is 

the result of another action. " 



world. By replacing the terminating resistor 
package in S02 with a 16-pin DIP jumper 
cable to a solderless breadboard, you free 
up Port B for experimentation. 

Port B is addressed through input-output 
Port 7DH (125 decimal). These signals are 
saved in Port B's internal latch until a new 
byte is received 

Simple control signals may be sent to 
Port B as a result of a condition in Port A. In 
Basic, the statement might be IF A>155 
OUT 125,100. An eight-input NAND gatecan 
be configured to detect only 100 decimal on 
Port B's bus. and the NAND's output would 
remain low until the latched output of Port 
B was updated with a different output. 

More sophisticated controls are more in- 
volved. Analog input V x of the real world in- 
terface can be multiplexed with software 
selecting the source of the analog voltage 
through control of field-effect transistor 
switches. This permits monitoring the re- 
sult of an action which is the result of 
another action. 

I have designed a simple system to close 



the shutters to my house's windows and 
turn on the porch light at night: open the 



shutters and turn off the porch light at 
daybreak; and partially close the shutters if 



"«. 














LTAGE 






JVmA»'« 






VOLTAGE 
V, 




y-O'A output 


CONVERSION 

COMPLETED J 

high , 




HIGH 




I 111* 


1 0* -°* 


VMA>' 4 




-°* 






lO» 












"• 








Q 





COMPARATOR 
OUTPUT 
(TT L lOG'C 
LEVELI 



RESULTANT 
BTTE 



Fig. 9. Successive Approximation. This is a trial and error method. The first trial asks 
whether the unknown is greater than half the reference voltage by setting the test byte's 
most significant bit (MSB) to one. If the answer is yes, the MSB is saved; if not, it is ex- 
cluded from the test byte. The process continues until the least significant bit (LSB) is 
reached. The test byte now has become a completed byte equal within one LSB to V x . 
The LSB only can provide the information the last test bit did or did not toggle the com- 
parator. The Vref/255-uncertainty limits the accuracy to .4 percent 



STOCKCHART ■ I 

MORE THAN JUST A COMPUTER PROGRAM 

IT'S AN INVESTMENT TOOL 



• requires 16K RAM tor cassette. 32K 
RAM & 1-dnve for disk version 

• printer option 

• disk version $50.00 

• cassette version . $30.00 

to order, see your local computer/soft- 
ware dealers or send check, money order, 
or COD to 



m|b 
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Micro-Investment Software 
9621 Bowie Way 
Stockton. CA 95209 



■ IM oi ijnay Vo'O *pp'p Compute/ Attn respective' 




AVAILABLE FOR THE 

TRS-80* Model I & I 
APPLE II* 
ATARI-800* 



generate price-chart from HIGH. LOW. 
& CLOSE PRICES 

price-trend analysis assist investors in 
BUY/SELL DECISION 

auto scaling for price-chart generation 

accept tractions, allow users to enter 

prices as appear in newspapers 

SPLIT routine to ad|ust prices for stock 

split 

EDIT capability for users to change 

price data 

STATUS mode to display pneetrend 

signals 

PURGE utility to delete unwanted data 
from disk (disk version only) 



DEALERS' INQUIRIES INVITED 
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fFor Your Color Computer 

MASTER CONTROL 

Copyright c 1981 Soft Sector Marketing, inc - Written by A. Swaitz 
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Requnes 16-32K 

1 50 preprogrammed command 
keys Standard and Extended com- 
mand. 

2. Direct control of motor, trace, 
and audio from keyooarc 

3. Automatic line numbering 

4. Programmable Custom Key 

5 Direct Run Button 

6 Keyboard overlay for easy pro- 
gram use 

7 Easy entry of entire commonds 
into computer. 

Load Master Control into your ma- 
chine then either type in a BASIC 
program or load one in from tape 
to edit. Cuts programming time by 
50% or more $24.95 



Coming for Christmas! 

COLOR BONANZA 

50 Programs fa the Color Computer 
Less than $1.00 a program! 

Some4K some 1 6K some extended BASIC, some for non- 
extended. 

Games - Personal Programs - Utility Programs 
List $49.95 

Expected shipping date December 1 or before 
Any prepaid orders received before that date will pay only $39.95 

CONCENTRATION & CONNECT UP 4 

Twin Pack - 16K Extended 

$14.95 

Expected Shipping Date - December 1 or before 

From Other Vendors 

Space Invaders. Spectral Associates $21.95 

Space War*. Spectral Associates, 'req. Joy Sticks .... $21.95 
Meteoroids*, Spectral Associates. *req Joy Sticks . $21.95 

Battle Fleet. Spectral Associates $14.95 

Space Traders. Spectral Associates . . $14.95 

Software Development System Rom Pock $89.95 

C Bug Monitor $29.95 

Disassembler (Source Generator) $49.95 

Color Computer News (Latest issue) $2.50 



Animated Hangman p 

Mr* ink* he blink* h# almoct llv*«f 
Afi outMMMMng 9»>tn kx *>• who* UrW 




Non Extended BASIC 

Requires 16K 
$12.95 
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SOFT SECTOR MARKETING, • «>« 

N C C J A " = D 

6250 MlddteCoit •Gartlen Ctv. Michigan 48135 
Order Line 800-521-6504 
Michigan Orders & Questions 313-425-4020 
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If you're looking for 

the best prices 
in thctUSJL en 




MICROCOMPUTERS 

We have consistently offered the TRS-80 line 
at savings up to 20%. You can save up to 
$1500 by buying from Computer Discount of 
America. 

Model II 

26-4002 64 K, 1 disc S3385.00 

Model III 

26-1051 4K, Level I S 611.10 

26 1062 16K, Level III J 845.60 

261066 48K, Level II 2 drive RS-232 $2115.00 

Color Computer 

263001 4K 

25 3002 16K w, Ext. Basic 



EPSON 

MX70 Printer 

MX80 Printer 

MX80FT Printer 

ATARI 

MICROCOMPUTERS / 



\ 325.00 
$ 489.10 

$ 375.00 
S 485.00 
5 585.00 




sunlight overheats the inside of the house 
(See Fig. 12). 

There may be conflicts— the sensor for 
outdoor light may sense the porch light; a 
home's interior may be overheated before 
daybreak— but they must be resolved by 



the programmer and his or her software. 



Ed. Note: The phantom Fig. 11 required cor- 
rections too late to be included in this issue. 
It will appear next month. 



We have the full line of ATARI personal 
computers and systems. 

Our savings are as big en expansion inter- 
faces, printers, diskettes, Apple Computers. 
0KIDATA Microline, C-IT0H Starwriter, 
Lexicon Modems — everything for your 
computer. 

We have the largest inventory in the North- 
east, and most models are in stock, for 
immediate delivery. Our full price catalog or 
a price quote is as near as your phone. 



CALL TOLL FREE: 
800-526-5313 



Computer 



of America 



COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480-2198 
In New Jersey Call 201-728-8080 
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Fig. 10. Additional Circuitry for the Real World Interface. Quad-comparator U7 provides 
four independent comparators. Their uncommitted outputs allow themselves to be 
ORed and the digital-to-analog output levels to interface with transistor to transisitor lo- 
gic. Comparator U7a provides information on the relation of V x to the digital-to-analog 
output. That status bit is returned to pin 14 and made available to the TRS-80 data bus. 
Comparators U7b and U7c form the window-comparator, its reference voltage con- 
trolled by the digital-to-analog converter's output. Comparator U7d inverts the output of 
the window-comparator and returns a status bit to C7. also made available to the data 
bus. 
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D/A CONTROLLED 

SHUTTER 

MOTOR DRIVER 
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FET 

SWITCHES 
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Fig. 12. Shutter Control. 




SPECIAL 



*N 



<A X 



SOFT 

SECTOR 

MARKETING, INC. 

Is Now An O.E.M. Of "«v* 

TANDON DISK DRIVES 




H 



40 Track Disk Drive, w/ power supply & case* $299.95 

80 Track Disk Drive, w/ power supply & case* $399.95 

t80 Track Dual Head Disk Drive, w/ power supply & case* $575.95 



+ Sold modified for Mod III only 



SALE 



till December 31, 1981 

Our 40 Track Disk Drive, w/ power supply & case* 

$260.00 

Our 80 Track Disk Drive, w/ power supply & case* 

$365.00 



Add $5.00 shipping per drive. 



40 Track Bare Disk Drive* $225.00 

80 Track Bare Disk Drive* $350.00 

80/160 Track Bare Disk Drive* $475.00 

2 Drive Cables, Mod I or III $25.00 

4 Drive Cables, Mod I only $35.00 

Disk Drive Extender Cable Cable $15.00 

Printer Extender Cable, 4 Foot (Great for MX-80) $25.00 



OTHER SPECIALS 



Okidata Microline 82A $525.00 

Okidata Microline 83A $800.00 

NEC PC-8023A $795.00 

Centronics 739-1 $675.00 

If you prepay, all printer prices include shipping in U.S. These prices expire December 31, 1981 



, 



COD- certified chec*. MO » co»i onry \fiagt orders 
tficoed n»m oov *n oraen mun hove inepng included 
-'loaso odd 2\ oc $2 50 wftcrietw a htgner for sncpno, 
Michigan reeoenrioteoje odd 4% tax Add extra S 1 50 tor 
COD Pwicra cr*cM tote J WMM to aeot Out ot the 
country orders odd S 10 00 extra snipping 
" IRS- 80 a a product of Radio Shock. dry of tne Tandy Corp 



SOFT SECTOR MARKETING, 

,NCOP'PCnA" r EtD 
6250 Middlebelt »Garden City. Michigan 48135 
Order Line 800-521-6504 
Michigan Orders 6V Questions 313-425-4020 
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GENERAL 



Taking steps toward 

universal language processing and user independence. 



A Macroprocessor for Basic 
PartV 



This is the last of a five part series on 
the development and use of a MetaBasic 
compiler. 

J. Alan Olmstead 

J. Olmstead Financial Engineering Systems 

3843 West St. Moritz Lane 

Phoenix, AZ 85023 

Preceding articles emphasized Basic and 
the reader may have deduced that I ad- 
vocate Basic over all other languages That 
impression is incorrect. Actually Basic is 
useless as a language for the economic 
development of commercial software 
meant to execute under either an inter- 
preter or a Basic compiler. Basic is, how- 
ever, a useful pseudo-code, a linguistic 
block diagram of a program intended, from 
the outset, to be written in assembly lan- 
guage. In this respect, the preceding analy- 
sis of Basic is a prototype analysis of all 
other commonly used high-level languages, 
including Fortran. Cobol and Pascal. All 
these languages should translate into 
MetaBasic once you debug them in their 
native modes; and MetaBasic should in- 
clude a uniform method of creating assem- 
bly language source code (not object code), 
conforming to the instruction set of the ob- 
ject computer. 

MetaBasic frees the programmer from 
manufacturer dependencies, and permits 
him to program a project in traditional 
languages which he considers convenient, 
appropriate, preferable, or necessary. An 
application program's logic is separate 
from assembly language programming pro- 
cedures. Debug the application logic in the 
most convenient or necessary form; then 
create the assembly language code. To at- 
tempt both simultaneously is extremely 
complicated which is why so many pro- 
grammers decide not to work in assembly 
language. 

To maximize the yield from this proce- 
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dure, knowledge of the operating system's 
construction is crucial. 

Damn the Critics— Design the System 

All high-level languages share this trait: 
They permit convenient description of a de- 
sired result. Which language is best? Is it 
Basic? Cobol? Fortran? Pascal? 

Native machine code is the only 
language of consequence. All other 
languages, including assembly language, 
are mere approaches to the execution of a 
result based only upon its convenient de- 
scription. 

To fashion a convenient language pro- 
cessing tool, one should ignore debates 
over this-versus-that high-level language. 

Much of the argument suggests the 
unkindly exercise of oral-compulsive 
behavior. Being good with words, and being 
good at using words to intimidate and then 
dominate readers is unacceptable conduct; 
nor does it comment on the issues even 
though it purports to monthly in all 
periodicals of this type. 

Further, much of the argument illustrates 
that people like what they are good at and 
dislike what they find hard to understand. 
Critics comment on the weaknesses of 
other languages and on the strengths of 
their own. We have spent 25 years in a con- 
tinuing effort to find better ways to describe 
desired results. Each of the four principal 
high-level languages has added more to the 
lexicon of good descriptive techniques. We 
should abandon none of what we have 
learned. A personal preference born of 
knowing all options or of ignorance ex- 
plains but cannot excuse language 
chauvinism. 

Much argument reveals that program- 
mers place language primarily in the con- 
text of writing programs and secondarily, if 
at all, in the context of running them. The 
design and construction of the underlying 



operating system is almost never dis- 
cussed during the language debate. A well- 
developed operating system would disinte- 
grate two-thirds of the language debate into 
questions of personal style or preference. 

Fig. 1 illustrates that no language pro- 
cessing system has the right arbitrarily to 
obligate one solution over another when 
solving an application program at the high- 
language program level. The problem may 
require combinations of one. two. or even 
three languages depending upon the in- 
dividual component problems which the 
programmer organizes into sub-programs, 
both internal and external to the main ap- 
plications module. No language designer is 
so omniscient about all kinds of problems. 
He should refrain from arbitrary statements 
that this or that high-level language is un- 
necessary or superfluous. 

Competent language processing design- 
ers recognize that the convenient descrip- 
tion of a desired result through any high- 
level language is not necessarily equivalent 
to the procedures which will evoke the solu- 
tion in machine code at run-time. The 
logical-physical relationship of program- 
ming components, referenced especially in 
the second article of this series, reappears 
again, not just with respect to a particular 
command, but with respect to the program- 
ming problem taken holistically. Using the 
high-level language, the programmer can 
state a logical solution to the problem. The 
language processor relieves the applica- 
tions programmer of having to define fur- 
ther the physical solution to the problem. 
The logical solution is convenient, pre- 
ferred, or necessary; the physical solution 
is obligatory— the computer hardware 
demands it. 

A useful point of design departure sum- 
marizes the programming as a body of tech- 
niques independent of any language but 
occurring in all. Table 1 lists these 16 tech- 



"The language processor relieves the 
applications programmer of having to define 
the physical solution to the problem further. " 



BASIC 



COBOL 



FORTRAN 



PASCAL 



ORIGINAL 
METABASIC 
SOURCE CODE 

PROGRAMMING 



METABASIC 

TRANSLATOR 

UTILITY 



TRANSLATED 
METABASIC 
SOURCE CODE 
PROGRAMMING 



** < 



METABASIC 
COMPILER 



* < 



EXTERNAL 
(DISK RES.) 
COMPILER 
LIBRARIES 



ASSEMBLY 
LANGUAGE 
SOURCE CODE 
PROGRAMMING 



ASSEMBLER 



LINK LOADER 


— * 


RUN-TIME 
EXECUTABLE 
PROGRAM 
MODULE 



♦MANUFACTURER -DE PENDENT 



* * MANUFACTURER -INDEPENDENT 



Fig. 1. 



niques, excluding I/O. These techniques fall 
into three subgroups of commands and 
command functions. The first group con- 
tains executable command words; the sec- 
ond includes data manipulation functions; 
the third includes the single program 
documentation command, which is actually 
a non-command. 

This table lists elemental command func- 
tions essential for the high-level language 
programmer to solve problems. 

Second, a truly general purpose high- 
level language possesses the entire reper- 
toire of command functions. If a high-level 
language lacks one or more of these com- 
mand functions then it is a special-purpose 
language. Third, and central to the subject 
of this article, the table defines the range of 
language-support components which the 
operating system should include to stan- 
dardize the methods which will fulfill these 

»* See List ot Advertisers on page 4 18 



specific programming needs for the pro- 
grammer, whatever high-level language he 
chooses. 

If the operating system supports these 
fifteen elemental programming functions 
(program comments do not require support), 
the high-level languages will perform uni- 
formly and the size of executable or run- 
time modules will drop dramatically— fre- 
quently 75 percent or more in disk file size. 
This is because the performance of any one 
of these fifteen programming functions is 
located physically outside the applications 
program, within the operating system. The 
applications program merely constructs 
data address words and executes a CALL 
(assembly language GOSUB) to an address 
within the operating system which the link- 
loader provides when the run-time module 
is cataloged on the disk. This procedure is 
similar to a ROM interpreter for Basic, for 



example, but differs in degree. 

Implicit in the design concept is the deci- 
sion that other, more generalized high pow- 
ered commands and functions variously 
combine these elements. The coding gen- 
erated first by the MetaBasic translator and 
thereafter by the MetaBasic compiler would 
be multiple lines of operating system 
CALLs. It is common for the MetaBasic 
translator to generate as many as a dozen 
lines of MetaBasic source code from a sin- 
gle line of Basic (If. . .Then, For. . .Next), 
and each line of MetaBasic source code to 
generate 6-12 lines of assembly language 
source code. 

In this context language processing is a 
multiple-stage progression from the most 
general description of a problem's solution 
at the logical level to the absolute definition 
of the solution procedure at the machine- 
specific physical level. On the average, the 
completely translated and compiled pro- 
gram contains not less than four or five 
times more lines of assembly language 
source code than did the original high-level 
language source code listing. 

All language processing under the Meta- 




First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression orocedures 
(including stepwise, backward elimination, all 
subset, and ridge), 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random variate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
plete documentation. 

Complete package with manual — $125 

To order, send payment plus $2.00 shipping 
and handling to: 

Quant Systems ^271 

P.O. Box 628 

Charleston, S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 
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"The object is to eliminate reprogramming 
completed applications merely because more 
than one computer needs the program. " 



Basic concept must take place at the 
source code level, even in assembly lan- 
guage. The object is to eliminate repro- 
gramming completed applications merely 
because more than one computer needs the 
program due to several different computers 
running side-by-side simultaneously; or the 
need to support customers who own a varie- 
ty of machines; or changing one's computer 
a few years from now. Therefore, a lan- 
guage translation facility is useless if 
it is tied directly or indirectly to any 
given machine. 

The object is also to eliminate language 
chauvinism. MetaBasic explicitly asserts 
that when a Fortran program solves a prob- 
lem, it is as good or bad as a problem solu- 
tion programmed in Basic or Cobol, and 
that good or bad is a judgement program- 
mers and programming managers should 
make, not a language processor. 

The object is to facilitate adaptation of 
programs for other, perhaps earlier, com- 
puter models, even though there may be no 
language processors for those languages 
available for new, microprocessor based 
computer systems. MetaBasic must be so 
elemental that it permits the easy construc- 
tion of a translator for IBM 1410 Autocoder, 
System 32 RPG-II, or even Honeywell 800 
assembly language from the earliest 
1960's. These old programs represent tens 
or hundreds of thousands of dollars of 
capital investment. Their useful lives 
should be extended without resorting to ex- 
pensive run-time emulators. 

The language utilities marketed by con- 
temporary manufacturers differ in their 
availability and their method of operation. 
But any contemporary computer which is 
more than a manufacturer-entrapment de- 
vice, offers an assembler program. There- 



fore, if MetaBasic generates a finished 
product in assembly language source code, 
a programmer may use any computer to 
write a program to assemble, catalogue and 
run on any other computer. You should be 
able to write, debug and test a Basic, For- 
tran or Cobol program on a Radio Shack 
Model I even though you expect to run it 
regularly on a Prime 750 time-shared multi- 
user system. 

MetaBasic aims to give the user final 
control over his own programs. If anything 
in the language processor obscures what 
and how it functions, the user will merely 
trade one kind of manufacturer dependency 
for another kind. No new freedom of 
language will be achieved. 

The Zmonitor Operating System 

A veil of sacred cow mystery shrouds 
operating systems generally. They perform 
a range of disk-oriented service functions 
like displaying a directory and copying files 
but they are programs like any other pro- 
gram, written by programmers who also buy 
their jeans at Sears, and the program may 
even contain components written in Fortran 
or Basic. 

The reality of operating systems signifies 
this: If yours disenchants you change to 
another one, or replace it entirely if you 
assume both technical and administrative 
responsibility for the computer's operation. 
A less drastic and much easier step is to 
piggy back the manufacturer's system with 
a special purpose operating system which 
resides in memory alongside the original, 
filtering access to it as needed. The in- 
complete piggyback operating systems 
are usually called supervisor programs or 
monitors. Manufacturers do not like them, 
because they give the user market control. 



# 


DESCRIPTION 


EXAMPLE 


1 


Define type ana size of data 


DIM 


2 


Perform computations 


V./. + .- 


3 


Move and concatenate data 


- . + or & 


4 


Load and access Internal program data 


OATA-READ-and RESTORE 


5 


Initialize and manage control loops 


FOR-NEXT-STEP 


6 


Alter program sequence 


GOTO 


7 


Define and access subprograms 


GOSUB-RETURN 


8 


Perform tests and act upon results 


IF-THEN-ELSE 


9 


Terminate program execution 


STOP-END 


10 


Strip sign bits 


ABS 


11 


Convert data for treatment as a computational value based upon the col- 






lating sequence of the computer being used, then reconvert back again 


ASC-CHRS 


12 


Strip off fractional remainders 


INT 


13 


Dynamically compute data lengths 


LEN 


14 


Extract data components 


MIDS 


15 


Convert data for treatment as a computational value based upon the form 






used to display the value, then reconvert back again 


VAL-STRS 


16 


Document the program source code listing 

Table 1. Programming Techniques. 


REM or" 



Radio Shack, for example, refuses to look at 
software which operates in conjunction 
with a monitor or supervisor program 
because if applications programs interface 
to the manufacturer's operating system by 
indirect means, changing to another 
manufacturer entails a huge reprogram- 
ming effort; but, if applications programs 
interface through a monitor or supervisor 
program, changing to another manufactur- 
er requires only a new monitor or super- 
visor—a single piece of programming. This 
prospect so frightened IBM that they never 
developed an assembler for the 5110/5120 
series. They did all programming in-house 
on a Model 370 with an object computer 
switch in the assembler for designating the 
5000 series output format. 

Although able to expand to a stand- 
alone, full-fledged operating system. I con- 
structed Zmonitor along the lines of the 
second description. It piggybacks TRSDOS 
which itself shrinks the task of controlling a 
complete computer system like the Model I 
with all its special-purpose, manufacturer- 
specific and even model-specific jerry- 
rigged pitfalls, such as bootstrapping and 
interrupt management. Zmonitor relies on 
TRSDOS for the two functions it can possi- 
bly do well: boot up, and read a physical 
disk format, particularly in connection with 
its own hodge-podge disk directory night- 
mare. Beyond that, and even including com- 
petent disk management, Zmonitor goes its 
own way, thank you very much. 

The Zmonitor illustrated in Fig. 2 blue- 
prints the inevitable: effortless transition 
from Model I entrapments to new options 
which appear virtually daily. These options 
encompass both programs and disk- 
resident data files. 

To attain manufacturer-independence in 
the data file design, Zmonitor uses Western 
Digital disk controllers, probably the most 
competently designed disk controllers in 
the industry. They program easily and 
recognize good work when they see it. 
Whatever other criticisms apply to IBM 
computers, the unadorned truth is that IBM 
pioneered and developed the most effective 
disk management procedures in the busi- 
ness decades ago, and it is useless and 
wasteful to change for the mere sake of 
changing. Built into every Western Digital 
disk controller are IBM compatibility 
modes. Manufacturer-specific techniques 
traditionally served the standard marketing 
goal of manufacturer lock-in. IBM disk pro- 
cedures were so good that the quality itself 
perpetuated their market appeal and today 
IBM disk compatibility is not lock-in. The 
Model I does not use it even though 
Western Digital built it into the hardware 
because it would give consumers real 
manufacturer independence. 
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LEVEL IV PRODUCTS, INC. 

- IS NOW OFFERING - 

The Full TRS-SO* Line at Discount Prices, 

with Extended Warranty Coverage 
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MOD H COMPUTER 

32K(R) $2950 

64K(R) $3375 

Expansion Dr#l (R) $999 
Expansion Dr#1-2-3(E) $695 



NOTE: THE MOD ill CAN BE ASSEMBLED WITH UP TO 4 MEG UNFORMATTED FLOPPY DISK STOR- 
AGE CAPACITY (4-80 TRK DOUBLE SIDED DRIVES) - CALL FOR A QUOTE ON THE SYSTEM 
TAILORED TO YOUR EXACT NEEDS. 



COLOR COMPUTER 


MOD III COMPUTER 


16K(R) $440 


16K(R) $859 


16K(E) $359 


48K 2-40 drives (R) $2010 


16Kw/ext basic (R) $529 


48K2-80 drives (E) $1829 


16Kw/ext basic (E) $479 


48K2-80 drives (E) $2119 




48K 2-80/80 drives (b) $2419 




RS232 interface add $89 



PRINTERS 




MP1 DRIVES FOI 


h MOD 1, 


MOD III, & 


COLOR 


PERIPHERALS 




Line Printer IV (R) 


$849 


MODEL 


RAW 


SINGLE 


DUAL 


EI.OK(R) 


$249 


Line Printer VI (R) 


$986 


4G TRK (E) 


$240 


$298 


$576 


E.I. 16K(R) 


$359 


Daisy Wheel II (R) 


$1679 


40/40 TRK (E) 


$360 


$419 


$818 


E.I.32K(R) 


$469 


C. ITOH Starwriters 


Can 


80 TRK (E) 


$360 


$419 


$818 


E.I. 16K(E) 


$305 


Centronics All 


Call 


80/80 TRK (E) 


$502 


$549 


$1078 


E.I 32K(E) 


$362 


Epson AN 


All 










16KRAM(200MS) 


$39 


AnadexAII 


Call 















DEALER'S INQUIRIES INVITED. CALL FOR OUR WHOLESALE DEPARTMENT (313) 525-6201 
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WAMtAHTYPOUCV 

Items including non-Radio 
Shack components (E) are 
covered by on extended six- 
month ports/tabor warranty m 
our tech service center 

Items constructed from Radio 
Shack approved components 
(R) are covered by a 90day 
parts/labor warranty at any 
Radio Shack store, plus on addi- 
tional 90 days in our tech ser- 
vice center. 



TERMS OF SMI 



2% Discount allowed on cash 
pre-paid orders Persona: 
checks requtre two weeks tor 
bank clearance 

Visa. Master Charge and COD 
orders accepted Add Si 50 for 

CODs 

Shipping/handli ng/i nsurance 
add 1.5% or $2.50 minimum 

Prompt shipments from stock 



LEVEL IV PRODUCTS, INC. 
32441 SCHOOLCRAFT ROAD 
UVONIA, MICMOAN 46160 

MICHIGAN - (313) 6254200 
TOLL FREE - 600-U1-3305 



•TRADEMARK OF TANDY CORP 




"Zmonitor uses Western Digital disk controllers, probably 
the most competently designed controllers in the industry. 



Because IBM disk modes were available 
in the Model I, Zmonitor uses them as an op- 
tional file mode over TRSDOS. Any five- or 
eight-inch disk on a Model I may be format- 
ted in IBM compatibility mode, with data 
files copied from TRSDOS mode to IBM 
mode for translation to foreign machines. 

Having eliminated the data file problem I 
tackled the program compatibility problem. 
Outputting assembly language source 
code, rather than object code, was the all- 
too-easy answer. A manufacturer-specific 
version of Zmonitor in both the sending and 
receiving computers enables assembly lan- 
guage source programs to be transmitted 
using IBM format data files. Since the 
manufacturer equips the receiving com- 
puter with its own assembler the correctly 
formatted object files require only a modest 
overhead of assembly time. 

The final step toward manufacturer-inde- 
pendence was the recoding of Zmonitor in 
MetaBasic. Since Zmonitor restricts itself 
to fifteen basic programming functions the 
entire conversion from one computer like 
the Model I to any other computer requires 



new programming of fifteen or less subrou- 
tines in the native language of the new (re- 
ceiving) computer. This is about five days' 
work. After that, every program (regardless 
of which high-level source code) and every 
data file (regardless of which access) may 
be copied over to the new computer. 

Segmentation— Key to Flexibility 

As Fig. 2 illustrates program segmenta- 
tion is the key to flexible programming. 
Large and complicated jobs must be broken 
up at the source code level into more easily 
managed units because MetaBasic oper- 
ates entirely in source code. So the source 
program files, even without comments, are 
quite large. The ratio of a source file to its 
object counterpart may be as high as 10:1. 
The Concur command, described in an ear- 
lier article, eliminates any need to combine 
program segments into single units even 
though two or more must reside in memory 
concurrently before the program can run. 
Where two or more program segments do 
not need to be in memory concurrently, they 
may be designated for origin within either 
Ovrseg (for Zmonitor service functions) or 
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LENGTH 12PAK 24 PAK 

C-30 1.19C .99c 

C-60 1.49c 1.29c 

C-90 1.69c 1.49c 



• 100% ERROR FREE* FULLY GUARANTEED • SUPERIOR ^SCREW CONSTRUCTION • 

• HIGH FREQUENCY RESPONSE • VERY LOW NOISE* WIDE DYNAMIC RANGE* 
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Keyseg (for application program functions): 
they will load into their respective overlay 
regions without further attention from pro- 
grammers. 

The second dimension of flexibility re- 
turns us to the question of which high-level 
source language will program a given appli- 
cation function. If you build program seg- 
mentation (address linkage and memory 
region management) into the language pro- 
cessor utilities initially and extend design 
to include segment linkage any of the avail- 
able languages can be used to program 
either the application main module or any 
of its overlay (Keyseg) service modules. By 
the time a program module approaches the 
physical problem-solving level, it has been 
translated into MetaBasic, and gives the 
programmer the operating reality of unre- 
stricted linkage of both data and addresses 
among all available languages. Basic may 
call Fortran, Assembly may call Cobol. or 
any other combination which serves the 
programmer who set out to define a result 
using the language tools at hand. 

The Rules 

The application programmer's Usrseg 
module controls the running of the applica- 
tions program. Appropriate functions used 
regularly remain in the resident Usrseg 
modules; other options are delegated to the 
user's Keyseg (overlay) region of mutually 
exclusive modules. One Keyseg module 
cannot call another Keyseg module be- 
cause, once entered, a Keyseg module may 
return only to Usrseg. This restriction ans- 
wers many program organization questions. 

All application program modules, wheth- 
er in Usrseg or in a Keyseg, perform their 
programming functions through calls to 
Ramseg linkage addresses. Ramseg edits 
the user-program calls to assure that the re- 
quested function can be performed. If not, it 
sets error flags and returns to the calling 
program. If the requested function is possi- 
ble it may be a service utility function per- 
formed by one or more Ovrseg modules 
(such as formatting a disk), or it may be a 
program utility function performed by 
Romseg modules. The user never enters 
Romseg or Ovrseg directly, because under- 
standing the internal construction of Zmon- 
itor is considered beyond the interest of the 
typical applications programmer. Unlike 
Level II ROM Basic or Disk Basic, Zmonitor 
never stops the applications program from 
running; it merely refuses to honor service 
requests and tells the calling program why. 
However, any programmer with the time 
and interest to carry a study that far could 
do so. Zmonitor has no secrets, especially 
with all the really competent disassemblers 
available. 

Using Basic as an example, this series 



"Large and complicated jobs must be 

broken up at the source code level 

into more easily managed units." 
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proposed some judgements and suggested 
solutions. 

• The development of high-level lan- 
guages over the past twenty-plus years has 
taught us ways to describe desired results 
to data processing problems. We cannot 
abandon these in favor of others because 



each made a valid contribution and too 
much capital has been invested in each. 

• No high-level language developed to 
date can stand alone. Language evolution 
is not even substantially finished. In the 
next twenty years, as much new develop- 
ment will occur as has already occurred. 



and no developer of language processing 
utilities can predict where this process 
will lead. 

• Both interpreters and compilers today 
suffer severe restrictions of utility, not the 
least of which is that they judge which high- 
level language is good and which is bad. 
even though a valid judgement is inherently 
impossible. 

• The next stage of applications lan- 
guage development presupposes two as- 
sists. The vastly expanding base of users 
must cast their marketplace dollar votes to 
tell developers the kind of equipment and 
programming features they want. The verti- 
cal and horizontal integration of the market 
by a few large manufacturers must slow 
and reverse in order to maximize customer 
options. 

• The proper role of a developer of lan- 
guage processing utilities is to produce de- 
vices which intercept and short-circuit man- 
ufacturers who attempt to integrate the 
marketplace vertically and horizontally, and 
which facilitate free choice of whatever 
high-level languages, in whatever forms, 
make most sense to the user, and to do this 
through devices which end the continued 
manufacturer tie-in through language form. 

Should there remain any question as to 
intent: The public needs to buy computers in 
the future as we buy radio, tv and stereo 
components now. out of personal prefer- 
ence, without regard to whether our pro- 
grams will run on them. In this process, tru- 
ly independent media such as 80 Microcom- 
puting serve the public. The author takes 
this opportunity to thank the publishers for 
their service. ■ 



OMNITERM 

What is OMNITERM? 

OMNI TERM is a professional communications package for the TRS-80 that allows 
you to easily communicate and transfer files or programs with almost any other 
computer We've never found a computer that OMNITERM cant work with It's a 
complete package because it includes not only the terminal program itself, but also 
conversion utilities, a text editor, special configuration files, serious 
documentation and serious support 

Why do I need it? 
You need OMNITERM if you need to communicate efficiently with many different 
computers, or if you want to customize your TRS-80 for use with one particular 
computer You need OMNITERM to SOLVE your communications problems once 
and for all 

What do I get? 

The OMNITERM package includes the OMNITERM terminal program four 
conversion utilities a text editor and setting files for use with popular computers 
such as CompuServe the Source and Dow Jones — just as samples of what you can 

lindbergh Systems 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want to work with The package includes si» programs seven 
data files and real documentation a 76-page manua' that has been called "the best in 
the Industry." And OMNITERM comes with real user support We can be reached 
via CompuServe Source phone or mail to promptly answer your questions about using 
OMNITERM 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80. at least 3?K ot memory one disk and the RS 232 
interface OMNITERM works with all ROMs and OOSes. and will work with your 
special keyboard drivers 

What will it do? 

OMNITERM allows you to translate any character going to any device printer, screen, 
disk, keyboard, or communications line giving you complete control and allowing you to 
ledefme the character sets ot all devices II will let you transfer data and run your 
printer while connected loi a record of everything that happens OMNITERM can 
'eformat your screen so that 80 32 or 40 column Imes are easy to read and look neat on 
your TRS-80 screen It ever lets you get on remote computers With just one keystroke 1 
The program lets you send special characters echo characters count UART errors 
condgu-e youi HART send True Breaks and use lower case It accepts VIDEOTEX codes 
giving you full cursor control. It will even W you review text that has scrolled oft 
the screen 1 Best ot a 1 ! OMNITERM will save a specal file with all your changes so you 



can quickly use OMNITERM for any 
one of many different computers by 
loading the proper tile It's easy to use 
since it's menu driven and g'ves you a 
tull status display so you can examine 
and change everything 
"OMNITERM has my vote as the top 
TRS-80 terminal program available today 
Kilobaud Microcomputing June 1981. 
pages 16-19 

OMNITERM is $95 (plus shipping if 
COO) Call for 24 hour shipment. Manual 
alone $15. applied toward complete pack- 
age. Visa. M/C. and COO accepted MA 
residents add b\ tax Dealer inquiries 
invited 

Contact Lindbergh Systems for your 
custom programming needs We are 
expert at writing software to work with 
YOUR hardware in assembler high-level 
languaot or Forth 

^391 



41 Fairhill Road. Holden. MA 01520 (617) 852-0233 s<w«icmi8 cows™ mmi rcs-msi -m T»«yco.p 



• See List ot Advertisers on page 418 



80 Microcomputing, December 1981 • 211 
Scanned by Ira Goldklang - www.trs-80.com 



THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 



rRS80" IS A IRADEMARK OF' TANDY CORP 



SOFTWARE 

f OR TRS-80 - 

OWNERS 



H 



CQIYIPLITRQNICS 



| MONTHLY 

y NtUSMAC.A/INt 

J lORTRS-HO" 

C. OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND AKIICT F S PI HI ISM I) IN RFCFNJ ISSUES 
INCLUDE THE FOLLOWING: 

• ETNCAt C A COMF1 I 1*1 FINANCIAI Al'l'l [CATIONS I'ACKAGi 

• INFORMATION SYS IT M REVIEW 

• STATISTICAI COMBINATIONS 

• PASCAIS IRIANOIE 

• ASSEMBI Y i ANGUAGF I OK BEGINNERS 

• DISK II1ES 

• MOD III Kl VII U 

• Kl YROARD III! \DI H AND I KilU'lN* i I XI 'i AIM D 

• Dos COMMANDS IN I i VI I II 

• PR< )BAB1I UNCI IRVI ( il Nl RA 1 ( )K 

• CAI CUI A I OK MM! 'I AllON.s 

• llll Ml OABY1F (,AP 

• STOCKS AND l«)NI)S 

• BUI Xih I ANAI YSIS 1 1 OK BUSINI ss AND KOMI I 

• NEWDOS K(l Kl VII W, 

• DUTCHING I HI HORSI SYS 1 1 M 1 1 IA I (AN I I I )SI 

• A SIMI I ADD (.OF I GAMI 

• CONTINUOUS I OKM SOUKCI S 

• I AX SAVER RF.VII W 

AND MORf- 



&& 



*«2* 



FINCALC 



V*J\wr|0"N i JSUJSJLZ ^Tfjl . * ZtZl^CJ A Complete Financial Analysis Package Used 
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■kAdd $3.00 for shipping in UPS Areas 
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-kAdd $5.00 outside U.S.A., Canada & Mexico 
k We will match any bonafide advertised price 
in any of the Major Computer Magazines 
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(I) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing and 
printer formatting features $325 (STANDARD 
TRSOOS VERSION) $350 (DIABLO. NEC OR QUME 
TRSDOS VERSION) 

(21 GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL. 
INVOICING AND PAYROLL (Small Business Systems 
Group) an extensive business system for the serious 
user can be used one module at a time or as a CO 
ordmated system $225 per module $1299 for the 
complete system 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL 
AND PAYROLL (Compumax) a complete user on 
ented business system can be used one module at a 
time or as a coordinated system $140 por module 
$995 for the complete system 

(4) MOD-II UTILITY PACKAGE (Placet Computes) 
adds important utilities to TRSDOS copy files 
seieclively faster and more accurate file copying 
repair bad directories displays sorted directory o' 
all files on 1 lo 4 disk drives SUPERZAP change 
disk ID and more $150 

(5) ADVENTURE «1-«9 iScotl Adams - Adventure 
International) a series of games formally only 
available on the large computers your goal is to work 
your way through a maze of obstacles n order to 
recover a secret treasure or complete a mission the 
package includes all 9 Adventures wniten by Scott 
Adams $99 95 

(6) GSF I Race! Computers! Generalized Subroul -e 
Facility a senes of super fast machine language 
utilities that can be called from a BASIC program <no 
machine language knowledge required I sorts 1000 
■terns in under 5 seconds allows PEEK and POKE 
statements move data blocks compress and un- 
compress data works under TRSDOS $50 

(7) DSM (Racet Computes) Disk Sort Merge sorts 
and merges large multiple diskette files on a 1 lo 4 
drive system NOT AN IN MEMORY SORT can 
actually alphabetize (or any olher type of sorti 4 disk 
drives worth o' daia sorts one complete disk of 
information in 10 minutes information is provided to 
use DSM with the RS MAILING PROGRAM works 
under TRSDOS $150 

(6) RSM (Small Systems Software) a machine 
language monitor and disassembler can be used to 
see and modify memory or disk sectors contains all 
the commands found on the Model-I version plus 
some additional commands for the MOD II works 
under TRSDOS $39 95 

(9) BLINK BASIC LINK FACILITY (Racet Computes) 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 

$50 

(10) BASIC CROSS REFERENCE UTILITY iRacel 
Computes) lists all variables and strings used n a 
program (with the line numbers m which they appear) 

lists all GOTO s and GOSUB's (with the line num 
bers in which they appear) searches for any specific 
variables or slrings (with the line number in which 
they appear) $50 

(II) DEVELOPMENT PACKAGE (Racet Computes) 
SUPERZAP (to see. print or change any byte on a 
diskette) Disassembler and MOD-ll interlace to the 



MICROSOFT EOITOR ASSEMBLER PLUS including 
uploading services and patches for Disk 1/0. assemble 
directly into memory save aM or portions of source 
to disk dynamic debug facility (ZBUG) emended 
editor commands . $125 

(12) HARD/SOFT DISK SYSTEM (Racet Computes) 
The software essential to interlace any ol the popular 
large hard disk drives completely compatible with 
your existing software and files allows up to 20 
megabytes o' storage (and larger) directory expand- 
able to handle thousands of files $400 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November 1'( 

(14) HARD DISK DRIVES coming soon (Nov 1') 

(15) H t E COMPUTRONICS, INC. SHARE A 
PHOGRAM OISKETTE "1 works under TRSDOS a 
collection of programs written by MOD II owners 

programs include data base management a word 
processor ..mail system mortgage calculations 
checkbook register and many others $8 (add $3 
postage outside ot the United States Canada and 
Mexico) FREE if you send us a diskette containing 
a program that can be added to the SHARE-A-PRO- 
GRAM DISKETTE 

(16) WABASH CERTIFIED DISKETTES $39 95 (per 
box of 10) 

(17) FLIP SORT OISKETTE STORAGE TRAY Stores 
50 diskettes comes complete with index-dividers tilt 
plates and adiustable spacing $44 95 

(11) MASTER PAC 100 100 essential programs 
BUSINESS PERSONAL FINANCE STATISTICS 
MATH GAMBLING GAMES includes 125 page 
manual and 2 diskettes $99 95 

(19) BUSINESS PAC 100 100 essential business 
programs INVENTORY CONTROL PAYROLL 
BOOKKEEPING SYSTEM STOCK CALCULA- 
TIONS CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
ncludes 125 page manual and two diskettes $149 95 

(20) EOITOR ASSEMBLER (Galactic Software Ltd ) 

the first user oriented Editor Assembler for the 
MODEL ll and was designed to utilize a» the features 
of the MODEL II It includes innovative features for 
ease o' coding and debugging and complete docu- 
mentation (over 120 pages) works under TRSDOS 
$229 00 

(21) BASIC COMPILER (Microsoft) changes your 
source programs into machine language increases 
program execution by 3-10 times $395 

(22) MAIL/FILE SYSTEM from Galactic Software Ltd 
stores 2.500 names per disk No sorting lime is 
required since the file is automatically sorted by 'irsl 
and last name plus Zip Code on input Retrieve by any 
combination of 19 user codes Supports an 11 digit 
alphanumenca Zip Supports a message line Comes 
complete with user-oriented documentation (100- 
page manual) Allows 'or company name and individ- 
ual of a company and complete phone number land 
extension) works under TRSDOS $199 00 

(23) INCOME TAX PAC Pro'essional income tax 
package most forms and schedules output to video 
or line printe' automatic memory storage o' all 
information data can be loaded from diskette, 
changed and edited built m error checking $199 95 

(24) COMPUTER GAMES (SBSG) Mean Checker 
Machine. Star-Trek III Concentration TreasureHunt 
Banco. Dog Star Adventure $74 95 
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(1) CP/M (Lifeboat Associates) an alternative 
operating system for the MOD-II that allows MOD-II 
owners to use any of the hundreds of programs 
available under CP/M $170 

(2) CP/M HANDBOOK (Sybex) a step-by-step 
guide to CP/M takes the reader through each of the 
CP/M commands numberous sample programs 
practical hints reference tables $13.95. 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 

ACCOUNTS PAYABLE, INVENTORY CONTROL, 
AND PAYROLL (Peachtree Software) requires CP/M 
and MICROSOFT BASIC professional business 
systems .turn key operation ..can be used as single 
modules or as a coordinated system $500 per 
module $2500 for the complete system 

(4) WORD-STAR The ultimate word processor a 
menu driven word processing system that can be used 
with any printer All standard word processing 
commands are included, .plus many unique com 
mands only found on WORD STAR requires CP/M 

$495 

(5) MAIL LIST MERGE An add on package that 
allows the user to send lorm letters (created on 
WORD-STAR) to any compiled mailing list (using any 
CP M based MAIL program such as the PEACHTREE 
MAIL PROGRAM) requires CPM. WORO STAR and 
andy CP M based mail program $150 

(6) SELECTOR III (Micro-Ap) complete data 
management system user defined fields and codes. 
manages any list defined by the user includes 
additional modules for simplified inventory control, 
accounts receivable and accounts payable requires 
CBASIC-2 $295 

(7) SELECTOR IV (Micro-Ap) the ultimate data 
management system., all features use the SELECTOR 
III plus data file format conversions full page report 
formatter compulations . global search and replace 

hard disk compatible oata'text merging $550 

(8) GLECTOR (Micro-Ap). add on package to the 
SELECTOR general ledger that allows the user to 
de'ine a customized chart of accounts. $350 

(9) CBASIC-2 a non-interactive BASIC used for 
many programs that run under CP/M allows user to 
make more efficient use of disk files eliminates the 
use of most line number references require on such 
programs as the SELECTOR $120 

(10) MICROSOFT BASIC an enhanced version of the 
MICROSOFT BASIC found on TRSDOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing the variables 
currently in memory) long variable length file 
records. WHILE'WEND and others can be used with 
the BASIC COMPILER to speed up programs (3-10 
times faster execution) $325 

(11) MASTER TAX (CPAids) professional tax 
preparation program prepares schedules A B C. D. 
E F. G R'RP SE.TC.ES and torms 2106. 2119. 2210. 
3468. 3903. 2441 4625. 4726. 4797 4972. 5695 and 
6521 Printing can be on readily available pre-printed 
continuous forms on overlays, or on computer 
generated IRS approved forms Maintainsclinthislory 
files interactive with CPAids General Ledger $995 

(12) GENERAL LEDGER II (CPAids) designed for 
CPA's stores complete 12 month detailed history of 
transactions generates linancial statements, 
depreciation, loan amortizations, journals, trial 
balances, statements of changes in financial position. 
and compilation letters includes payroll system with 
automating posting to general ledgers prints 
payroll register. W2 s and payroll checks $450 

(13) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing 

and printer formatting features $275 (Standard 
printer version) $300 (DIABLO NEC or QUME 

versionl 

(14) BASIC COMPILER (Microsoft) changes your 
source programs Into machine language increases 
program execution by 3-10 times $395 

• (CP/M IS A REGISTERED TRADEMARK 
OF DIGITAL RESEARCH) 
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$18 year (or 12 issues) 
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BUSINESS AND PERSONAL FINANCE 

1 CHECKBOOK MAINTENANCE 

2 TIME FOR MONEY TO DOUBLE 
I FEDERAL F1CA & WITHHOLDING TAX 
i COMPUTATIONS 

4 HOME BUDGE T ANAl YSIS 

5 ANNUITY COMPUTATION , 

6 UNIT PRICING U\J 

7 CHANGE. FROM PURCHASE "* 
d NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10. MORTGAGE AMORTIZATION TABLE 

11. INVENTORY CONTROL 

12 PORTFOLIO VALUE COMPUTATIONS 

13 VALUE OF A SHARE OF STOCK 

14 SALES RECORD KEEPING SYSTEM 

15 FUTURE VALUE OF AN INVESTMENT 
Ih EFFECTIVE INTEREST RATE : LOAN' 

:: PRESENT VALUE OF A FUTURE AMOUNT 
> RATE OF RETURN VARIABLE INFLOW 

19 RATE OF RETURN CONSTANT INH OW 

20 REGULAR WITHDRAWA1 FROM INVESTMENT 

21 STRAIGHT LINE DEPRECIATION 

22 SUM OF DIGITS DEPRECIATION 

2i DECLINING BALANCE DEPRECIATION 
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2b PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTIONS 

28 CREDIT CARD FILE 
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H TEXT EDITOR 
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STATISTICS AND MATHEMATICS 

17 RANDOM SAMPLE SELECTION 
W ANGLO MET1C CONVERSION 

39 MIAN STANDARD DEVIATION 
MAXIMUM AND MINIMUM 

40 SIMPLE LINEAR REGRESSION 

41 MIT TIPLE REGRESSION ANAl YS1S 

42 GEOMETRIC REGRESSION 
4.' EXPONENT1AI REGRESSION 

44 SIMPI F MOV1.V I AVFRAGl 

45 SIMPLE T TEST &+ k\! 

46 CHI SQUARE TEST SI 1 *• 

47 NORMAL PROBABILITIES 

48 BINOMIAL PROBABILITY 

49 POISSON PROBABILITY 

50 MA TRIX ADDI HON AND SI -H I RACTION 

51 MA IRIX TRANSPOSE 

52 MA IRIX 1NVERSI 

53 MATRIX MIT UPLICATION 

54 SOIUTIONOE SIMULTANEOUS EQUATIONS 

55 QUADRATIC F-ORMUI.A 

56 LINEAR EQU A I ION SOLUTIONS 

57 ROOT HALF INIKRVAL SEARCH 

58 ROOTS OF POI YNOM1ALS 

59 ROOTS NEWTON'S METHODS 

60 PRIME FACTORS OF INTEGER 

61 LEAST COMMON DENOMINATOR 

62 RADIAN DEGREE CONVERSION 
6.3 NUMERICAL INTEGRATION 

UTILITIES 

64 QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 

66 MULTIPLE CHOICE QUIZ Bl.Tl DER 

67 FORM LETTER WRITER 

68 SHELL SORT 

69 CASSETTE LA BE I MAKER 

70 CODES MESSAGES 

71 MERGE TWO FILES 

72 SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73 DRAWS BAR GRAPH 
."4 DRAWS HISTOGRAM 
:s MOVING BANNlR DISPt AY 

GAMBLING AND GAMFS 

76 RANDOM SPORTS QUI/ 

■ GOVERNMENT QUI/ 

- HORSE RACE 
79 MAGIC SQUARE 
ko ARITHMETIC TEACHER 

81 HIGH LOW GAMBLE 

82 UNSCRAMBLE LETTERS 
8.3 HANGMAN 

84 GAME Ol NIM 

85 RUSSIAN ROULETTE 
S6 ROULETII GAME 
87 ONE ARMED BANDII 
■v- HIT THE TARGET 

89 WA! KIN*. DRL'NK 
■*• STATF l APIIAL QUI/ 

91 TIC T AC IOE 

92 DICE GAM! 

93 LUNAR I ANDAR GAM! 

94 BIORHYTHM 

95 HORSE Sl.l FC'TOR (CI ASS CALCUI ATORt 
'«- RANDOM DICE ROLI 

97 RANDOM ROULETTE ROLI 
9K RANDOM CARD DEA1 ER 
99 GUESS I HE NUMBER 
'.'«> WHITE OUT SCREEN 



oambU** 



110 PA« E 

USEK 






GUARANTEED SATISFACTION 

30 DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 



iCQMPLITRQNICS 



■v%*\TV4grvi*v 



i 

N 

C ^9 



50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

PLEASE SEND ME: 



□ MASTER PAC 100 CASSETTE VERSION 559 95 

□ MASTER PAC 100 DISKETTE VERSION $59.95 

□ MASTER PAC 100 (TRS-80 MODEL II VERSION) $99.95 



ntffiM _ m HOUR 

QP 24 ORDER 
LINE 

(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 

■k All orders processed within 24-Hours 

•k 30-Day money back guarantee on all Software 



CREDIT CARD NUMBER EXP. DATE. 



SIGNATURE. 



NAME 

ADDRESS CITY STATE ZIP 

•** ADD S3.N FOR SHIPPING IN UPS AREAS • ADD S4.M FOR C.O.D. OR NON-UPS AREAS • ADD S5.W OUTSIDE U.S.A, CANADA A MEXICO 
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•CQIY1PLITHQMXCS? 

EVERYTHING FOR YOUR TRS-80"--« 

^^ 7h»SO to a trademark ofihr Radio Shark Division of Tandy Corporation 

BUSINESS PAC 100 

100 Ready-To-Run 
Business Programs 



SofWHire 



(ON CASSETTE OR DISKETTE) Includes 1 10 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance.... Accounts Receivable.... Accounts Payable..... 



BUSINESS 100 PROGRAM LIST 



1 RQLE78 



ANNU1 

DATE 

DAYYEAR 

LEASEINT 

BREAKEVN 

DEPRSL 

8 DEPRSY 

9 DEPRDB 

10 DEPRDOB 

11 TAXDEP 

12 CHECK2 

13 CHECKBKI 

14 MORTGAGE/A 

1 5 MULTMON 

16 SALVAGE 

17 RRVARIh 

18 RRCONST 

19 EFFECT 

20 FVAL 

21 PVAL 

22 LOANPAY 

23 REGwTTH 

24 SIMPDISK 

25 DATEVAL 

26 ANNUDEF 

27 MARKUP 

28 SINKFUND 

29 BONDVAL 

30 DEPLETE 

31 BLACKSH 

32 STOCVAL1 

33 WARVAL 

34 BONDVAL2 

35 EPSEST 

36 BETAALPH 

37 SHARPE1 

38 OPTWRITE 

39 RTVAL 

40 EXPVAL 

41 BAYES 

42 VALPRtNF 

43 VALADINF 

44 UTIUTY 

45 SIMPLEX 

46 TRANS 

47 EOQ 

48 QUEUE I 

49 CVP 

50 CONDPROF 

51 OPTLOSS 

52 FQUOQ 



NAME 

53 FQEOWSH 

54 FQEOQPB 

55 QUEUECB 

56 NCFANAL 

57 PROFH1D 

58 CAP1 



Interest Apporoonment by Rule of the 78 * 

Annuity computation program 

Time b e t we en dates 

Day of year a particular date falls on 

Interest rate on lease 

Breakeven analysis 

Sfraightline depreciation 

Sum of the digits depreciation 

Declining balance depreciation 

Double declining balance depreciation 

Cash flow vs. depreciation tables 

Prints NEBS checks along with daily register 

Checkbook maintenance program 

Mortgage amortization table 

Computes bme needed for money to double, triple, etc 

Determines salvage value of an investment 

Rate of return on investment with variable inflows 

Rate of return on investment with constant inflows 

Effective interest rate of a loan 

Future value of an investment (compound interest) 

Present value of a future amount 

Amount of payment on a loan 

Equal withdrawals from investment to leave over 

Simple discount analysis 

Equivalent G nonequrvalent dated values for obiig. 

Present value of de f erred annuities 

X Markup analysis for Items 

Sinking fund amortization program 

Value of a bond 

Depletion analysis 

Black Scholes options analysis 

Expected return on stock via discounts dividends 

Value of a warrant 

Value of a bond 

Estimate of future earnings per share for company 

Computes alpha and beta variables for stock 

Portfolio selection modei-i.e what stocks to hold 

Option writing computations 

Value of a right — 

Expected value analysis 

Bayeslan decisions 

Value of perfect information 

Value of additional information 

Derives utility function 

Linear programming solution by simplex method 

Transportation method for linear programming 

Economic order quantity inventory model 

Single server queuelng (waiting line) model 

Cost-volume-profit analysis 

Conditional profit tables 

Opportunity loss tables 

Fixed quantity economic order quantity model 



DESCRIPTION 

As above but with shortages permitted 

As above but with quantity price breaks 

Cost-benefit waiting line analysis 

Net cash-flow analysis for simple investment 

ProfHaMHty Index of a project 

Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 F1NRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRJNDLAS Laspeyres price index 

66 PPJNDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 T1METR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation wrth inflation 

71 MAJLPAC Mailing list system 

72 LETWRT Letter writing system4nks with MAIPAC 

73 SORT3 Sorts list of names 

74 LABEL I Srnppmg label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 TIMECLCK Compotes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on pnnter 

80 INVENT2 ki memory inventory control system 

8 1 TELDIR Computerized telephone directory 

82 TTMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling pnce for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciaoon 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 nSFLE Insurance policy We 

94 PAYROLL2 ki memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale-teaseback analysis 

99 RRCONVBD Investor's rate of return on convertabte bond 
100 PORTVAL9 Stock market portfolio storage-vakiation program 



CASSETTE VERSION *99 

DISKETTE VERSION *99 

TRS-80* MODEL D VERSION *149 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 OUTSIDE U.S.A, CANADA & MEXICO 



.95 "E»V T OU . Fft _ Ir 

roooi *•?■"«* 



CQWPIJTHQWXCS 



MATVGvWCAl AJ^ 



f IATTJTnK f» WvCE 



SO N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10077 




HOOB 
OA OBOE* ^ 
*** LINE 

k (9l4 ) 425-1535 



» Sm Lit tot A dvtrtittrs on page 4 18 
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CQMPUTRQNICS 



I. ^9 



m « EVERYTHING FOR YOUR TRS-80 ••• 




TR*»a© Is ■ rradrmark of the Radio Shark Division of Tandy Corporation 

* All orders processed within 24-Hours 
•k 30-Day money back guarantee on all Software 
• Add $3.00 for shipping in UPS Areas 
• Add $4.00 for C.O.D. or NON-UPS Areas 
RT TCY1tfY7CfcCfc * Add $50 ° outside U.S.A., Canada & Mexico 



COORDINATED 



SMALL BUSINESS 
SYSTEMS GROUP 



SYSTEMS 




AMfRIO»Nl 
IO02BESS 



FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1 S.B.S.G. is a sophisticated Business Software System designed for the serious businessman. 

2 Each of the S.B.S.G. Business Modules may be purchased separately ...or you may purchase the entire coordinated business system 

3. Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. fee, the user may upgrade his 
individual modules for the coordinated system). 

4 Foolproof, Step-By-Step procedures are supplied, planned and documented for the First-Time Computer User. All programs are self- 
explanatory, telling the user what is required at every step. 

5 Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system. 

6 A complete users manual is supplied with each module 

7. Demo Data diskettes are supplied with sample data 

8. S.B.S.G. has an In-House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System (on the 
telephone or through the mail). 

9. First-Time Computer Owners Note-Instructions are provided for entering state payroll withholding tables. There is an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data 

10. Minimum system requirement is 2-dnves to run any single module 

11. Minimum system requirement is 3-dnves to run the coordinated business system (AR-AP-GL) or (AR-AP-GL with PAYROLL). 
12 Minimum system requirement is 4-dnves to run the extended coordinated system (AR-AP-GL-PR and INVENTORY/INVOICING) 

13. The A. OSBORNE A ASSOCIATES business manuals are provided FREE with each order (they may be purchased separately at $20 per 
manual) 

14. The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15. Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING 

16 Memory requirement is 48K for the MODEL-I and 64K tor the MODEL-II 

1 7 All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives No data is ever lost during an upgrade There is a standard S.B.S.G. 
charge for all upgrades 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices In 
addition, it produces cash management reports This system aids in 
tight financial control over all cash disbursements of the business 
Several reports are available and supply information needed for the 
analysis of payments, expenses, purchases and cash requirements. All 
A/P data feeds General Ledger so that data is entered into the system 
just once. These programs were developed 5 years ago for the Wang 
micro-computer and have been tested in many environments since 
then The package has been converted to the TRS-80" and is now well 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems) 
CAPABILITIES: 

* menu driven, easy to use; full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice, handles 
new invoice or credit memo or debit memo 

* invoce information recorded; invoice #, description, buyer, check 
register #. invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($). total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure, allows checks to be calculated 
for a set of vendors-or-for specific vendors 

* program prints your checks, contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back): 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

■ check register report (to give an audit trail of checks printed) 

■ vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER: each invoice can be distributed 
to as many as five (5) different GL accounts; system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in order to maximize profitable credit 
sales while minimizing losses from bad debts. The programs com- 
posing this system were developed 5 years ago, especially for small 
businesses using the Wang Microcomputer They have been tested in 
many environments since then. Each module can be used stand alone 
or can feed General Ledger for a fully integrated system. 

CAPABILITIES: 

* menu driven; easy to use. full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, 
when ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/ 
delete invoice 

* allows for progress payment 

* transaction information includes: 

• type of A/R transaction • billing date 

• customer P.O # • general ledger account number 

• description of P O • invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & file maintenance procedures insure accuracy 

* customer statements printed; computer statements with your corn- 
pay letterhead can be purchased from SBSG 

* reports include: (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger; will post to applicable accounts: 
debit A/R, credits account you specify 
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TRS-SO Is a trademark of the Hudlo Sha< k IHv l«kon of Tandy Corporation 



PAYROLL 

Payroll invoices many complex calculations and the production of 
reports and documents, many of which are required by government 
agencies. It is an ideal candidate for the computer With this Payroll 
system in-house, you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions. The package has been converted to the TRS-80'" and 
is now a well documented, op-line, interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems. 
CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

* health and welfare deductions can be automatically calculated for 
each employee 

* earnings-to-date are accumulated and added to permanent records; 
taxes are computed and deducted: US income tax, Social Security 
tax, state income tax. other deductions (regular or one time) 

* paychecks are printed; computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated for, employee pay history. 941 A re- 
port, W-2 report, insurance report, absentee report 

* fully linked to General Ledger. Each employee's payroll information 
can be distributed to as many as (12) twelve different GL accounts, 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

* ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort. 

* Pre-Allocated Files for IMMEDIATE update and inquiry capabilities 

* Fast Disk storage and retrieval 

* Inventory Master Record includes class SKU. Division. Retail 
Cost Beginning Balance. Period Sale Units Period Receipts On 
Order On Hand Minimum Reorder Point Recommended Re- 
order Amount Vendor Number Period Sale Dollars YTD Sale 
Units. YTD Sale Dollars 

* Calculated and Displayed Formulas include Gross Margin ($) 
Gross Margin {%) Gross Margin ROI (*b) Average Inventory Retail 
($).. Average Inventory Cost ($) Turn-Over (%) 

* Reports Generated include ..Master File Listing . Class Description 
Listing. Transaction Audit Trail. Minimum Reorder Point by Ven- 
dor Retail Price List Retail & Cost Price List. Period Sales Report 

..Year to Date Sales Report. Stock Status (Screen or printer output) 
Commission Report (for salesmen and buyers) 

* Transaction Types include Sales. Vendor Receipts. Vendor 
Orders.. Customer Returns Vendor Returns. Transfer Stock. 



PRICING 

ACCOUNTS RECEIVABLE 
ACCOUNTS PAYABLE 

GENERAL LEDGER 

PAYROLL 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R. A/P, Payroll, direct posting) in 
an accurate and timely manner. Major reports include the Income State- 
ment and Balance Sheet and a "special" report designed by manage- 
ment. The beauty of this General Ledger system is that it is completely 
user formatted. You "customize" the account numbers, descriptions, 
and report formats to suit particular business requirements These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then. The package 
has been converted to the TRS-80** and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems. 

CAPABILITIES: 

*■ more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 
*• more than 1,750 transactions may be entered via: 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting: generated by A/R, A/P, Payroll or any other 
user source 

* data is maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish 

• titles 

" headings 

■ account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 



•CQMPUTHQMCS! 
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50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 




HOUR W^ 
24 ORDER ^ 
LINE 

(914) 425-1535 



INVENTORY 

INVOICING 

COORDINATED INVENTORY INVOICING ACCOUNTS RECEIVABLE 

COORDINATED AR-AP-GL 

COORDINATED AR-AP-GL with PAYROLL 



EXTENDED COORDINATED AR-AP-GL INVOICING INVENTORY with PAYROLL 



MOD-1 


MOD-II 


MOD-MI 


VERSION 


VERSION 


VERSION 


$125 


$225 


$199.95 


$125 


$225 


$199.95 


$125 


$225 


$199 95 


$125 


$225 


$199 95 


$175 


$275 


$199.95 


$150 


$250 


$199 95 


$449 


$749 


$599 95 


$375 


$675 


$599 95 


S495 


$899 


$799 95 


$799 


$1299 


$1199 95 



• S##» / ist nf Advertisers on oaae 418 
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CQMPLITRQNICS 



• • • EVERYTHING For Your TRS-80* Model I or Model HI • • • 



' TRS-80'" is a trademark o' Tandy Corp 



REMsoft, Inc 



1 All orders processed within 24 Hours 
• 30-Day money bach guarantee 
• Add S3 00 for shipping in UPS Areas 
• Add $4 00 for COD.or NON-UPS Areas 
• Add $5 00 to Canada or Mexico 
• Add exact postage to all other countries 



Let Your TRS-80™ 
Teach You 

ASSEMBLY LANGUAGE 


LEARN TRS-80™ 
ASSEMBLY LANGUAGE 

DISK 1/0 


REMASSEM-1 

Tiredof buying book after book on assembly language programmingand 
still not knowing your POP from your PUSH? 

REMSOFT proudly announces a more efficient way. using your own \ 
TRS-80'"1o learn the fundamentals of assembly language programming 
at YOUR pace and at YOUR convenience 

Our unique package "INTRODUCTION TO TRS-80" ASSEMBLY 
PROGRAMMING", will provide you with tne following 1 

* Ten 45-minute lessons on audio cassettes. 

* A driver program to make your TRS-80* video monitor serve as a 
blackboard for the instructor 

* Adisplay program for each lesson to provide illustration and rein- 
forcement for what you are hearing 

* A textbook on TRS-80" Assembly Language Programming 

* Step-by-step dissection of complete and useful routines to lest 
memory and to gain direct control over the keyboard, video moni- 
tor, and printer 

* How to access and use powerful routines in your Level II ROM 
This course was developed and recorded by Joseph E Willisand is based 
en the successful series of courses he has taught at Mela Technologies 
Corporation the Radio Shack Computer Center, and other locations tn 
Northern Ohio. The minimum system required is a Level II. 16K RAM 


REMDISK-1 

Your disk system and you can really stepout with REMs'- 1 ' < Educational 
Module. REMDISK-1. a short course revealing the details of DISK I O 
PROGRAMMING using assembly language 

Using the same format as our extremely popular introduction toassem- 
bly language programming this "ASSEMBLY LANGUAGE DISK I/O 
PROGRAMMING" course includes 

* Two 45-mmute lessons on audio cassette 

* A driver program to make your TRS-80" video monitor serve as a 
blackboard for the instructor 

+ A disp'ay program for each lesson to provide illustration and rein- 
| torcement for what you are hearing 

« # A booklet of comprehensive fu'iy-commented program listings 
j illustrating sequential file I O random-access tile I O and track 
and sector I O 

* A diskette with machine-readable source codes for a:i proqrams 
discussod. in both Radio shack EDTASM and Macro formats 

* Routines to convert from one assembler format to the other 
This course was developed and recorded by Joseph E Willis for the 
student with experience in assembly language programming it is an 
intermediate-to advanced-level course Minimum hardware required is a 
Model I Level II 16K RAM one disk drive System 











•CQMRJTRQMCSi 



50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



►"9 




HOUR 

ORDER 
LINE 



9*1 24 y" uc « aJ^S ? 

LINE ™ 

(914) 425-1535 




PLEASE SEND ME: 

DREMASSEM-1 (TRS-80 MODEL I CASSETTE) S69 95 

D REMASSEM-1 (TRS-80 MODEL I DISKETTE) $74 95 

□ REMASSEM-1 (TRS-80 MODEL III CASSETTE) $74 95 

D REMASSEM-1 (TRS-80 MODEL III DISKETTE) $79 95 

D REMDISK-1 (TRS-80 MODEL I DISKETTE) $29 95 

□ REMDISK-1 (TRS-80 MODEL III DISKETTE) $34 95 



CREDIT CARD NUMBER EXP DATE 

SIGNATURE NAME 

ADDRESS 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 



CITY STATE 

' ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE *" 



ZIP. 
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FOR THE TRS-80 MODEL I AND MODEL III 



System Diagnostic 



nent O/J&UL-ifi* — For Cassette or Disk 



1 — IS YOUR COMPUTER WORKING? 



^^^ -_ ARE YOU SURE? 

%flfl *V^ ROM: checksum 

^^J^^J % ^^ RAM: four separate tests including every address and data value. 

^ ^ vintr* mcpi *v- character generator, video RAM, and video signal. 

every key contact tested, 
character test, 
read/write/verify data. 

connector fault, data transmission, framing, data loop, baud rate generator. 

disk controller, drive select and restore, track seek and verify data, read/write/verify ail tracks and 
sectors with or without erasing, sector formatting, disk drive timer, disk head cleaner. 

— Individual tests of each device with operator monitoring and intervention. 

— Continuous sysem tests run continually for hours testing each component, with diagnostic reports optionally written on line printer. 

— One program adapts to any system configuration and hardware. 

— Complete instructions and documentation. 



ROM: 

RAM: 

VIDEO DISPLAY: 

KEYBOARD: 

LINE PRINTER: 

CASSETTE RECORDER: 

RS-232-C INTERFACE: 

DISK DRIVES: 



MON-3 and MON-4 

The TRS-80 Monitor Programs »3 and *4 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PAGE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific values. 

• MODIFY memory in various ways. 

• RELOCATE object programs. 

• PRINT output on video display or line printer. 

• READ and WRITE object tapes in SYSTEM Format. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk files (MON-4 Only). 

• INPUT and OUTPUT of disk sectors (MON-4 Only). 

• SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes (MON-3) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-3 (For Cassette Systems) $30.05 
MON-4 (For Disk Systems) $49-95 



SMART TERMINAL 

Enables your TRS-80 to be used as a remote terminal to a time sharing 
computer system. Supports upper/lower case and full range of control 
keys, including control key mapping into any ASCII character. Automatic 
transmission of files between TRS-80 and host computer. Files can be read 
from or written to cassette tape or disk. Incoming data can be printed on 
line printer or stored in memory for subsequent save to cassette or disk. 
Disk and tape files are fully compatible with the ELECTRIC PENCIL pro- 
gram. Baud rate and RS-232-C sense switches can be reset without open- 
ing Expansion Interface. Requires RS-232-C interface and modem. 

Cassette or Disk Version $69.95 



MAILING UST 

Maintains mailing lists of over 1000 names. Commands allow adding, 
changing, deleting, and finding names. Sorting is done by machine lan- 
guage according to the information in any field (i.e., name, address, zip 
code). Labels printed in 1, 2, or 3 columns, in master list on one line, or on 
video display. 

Disk Version Only $69-95 



HOME BUDGET 

Combines the maintenance of your checkbook with analysis of your 
income, expenses, and monthly bills. Handles data including bills, in- 
cluding bills, income, deposits, checks and debits to your checking ac- 
count, and cash expenses. Computes checkbook balance, list of unpaid 
bills, monthly and year-to-date summaries of income and expenses show- 
ing income tax deductions. All output printed on video display or line 
printer at user's option. Complete instructions for customizing to suit 
your own budget. 

Disk Version Only $49-95 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record "612, this program keeps track of 
income, expenditures, and payroll for a small business of up to 16 employ- 
ees. Income and expenditures can be entered on a daily, weekly, or 
monthly basis, and the program computes monthly, through last month, 
and year-to-date summaries. Payroll section keeps record of individual 
employees and their paychecks with up to six categories of payroll de- 
ductions. Employee payroll record and year-to-date payroll totals can be 
computed. Manual contains complete instructions for customizing to suit 
your business. 

Disk Version $49-95 
Cassette Version $X9-95 
(Cassette Version does not contain payroll) 



FASTSORT 

A series of machine-language subroutines (for 16K, 32K and 48K Sys- 
tems) to sort data from BASIC programs. Data may be alphabetic (string) 
or numeric (integer only). Works equally well with Level II or Disk Basic. 
Complete instructions and examples provided for interfacing with your 
BASIC programs. 

Cassette or Disk Version $9-95 



•CQMPLITRQNXCS 



t ^9 



50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10077 






NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3 00 for shipping in UPS Areas 
• Add $4 00 for C O D or NON-UPS Areas 
• Add $5 00 to Canada or Mexico 
• Add exact postage to all other countries 



• See List of Advertisers on page 418 
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EDUCATION 



LOAD 80 



When a TRS-80 is your assistant, 
everyone gets out of the physics lab on time. 



Specific Heat 



John Fetchko 
505 Ninth St. 
Windber, PA 15963 



In most high school physics 
and chemistry courses, 
laboratory investigations are 
done to test scientific prin- 
ciples learned in the class- 
room. Often the purpose of the 
study may be to experimentally 
measure quantities with known 
values (i.e., acceleration due to 
gravity, the charge of an elec- 
tron, etc.). 

When a student gets an 
answer unreasonably far from 



the accepted value, does that 
mean he has made an error in 
his calculations or does it 
reflect poor measuring tech- 
nique? The best way to tell is to 
look at all the measurements, 
see if they seem reasonable, 
and then check the student's 
math. When you multiply this 
by 25 students you can readily 
see the time science teachers 
spend helping students deter- 
mine their sources of error. 

As a high school physics 
teacher, I have found that the 
TRS-80 is an excellent device to 
help with this problem. After 
completing an experiment, a 



Specific Hear ol Metals 

Measurements: 
1. Mass of metal 

2 Mass of calorimeter 

3 Mass of calorimeter and water 
4. Specific heat of calorimeter 

5 Temperature of metal, initial 

6 Temperature of calorimeter and 
water, initial 

7 Temperature of calorimeter, water, 
and metal, final 

Calculations 
8. Mass of water 

9 Temperature change of calorimeter 
and water 

10. Calories gamed by water 

11. Calories gained by calorimeter 

12. Total calories gained = calories lost 
by metal 

13. Temperature change of metal 

14. Specific heat of metal, experimental 

15. Accepted value for specific heat of 
metal 

16. Percent error 



Name 

Metal used. 



Table 1. Data Sheet for Specific Heat Laboratory Experiment. 



student can type his measure- 
ments as well as the results of 
his calculations into the com- 
puter. The TRS-80 can quickly 
tell him if his measurements are 
reasonable and his calculations 
correct. 

An example of an experiment 
well suited to this purpose is 
the determination of the 
specific heat of metals. 
Specific heat is defined as the 
number of calories required to 
raise the temperature of one 
gram of a substance by one 



Evaluation: 

Your Answers are very close to mine. 
(Your results differ from mine by 2%) 
Your math must be correct' 

Your experimental error is not too bad 
(Your experimental error was 8°'c) 
However, you can be more precise in your 
measurements. 

Press Enter' to start another trial. 

Fig. 1. Computer's Evaluation of 
Laboratory Results. 



degree Celsius. In order to 
determine the specific heat of a 
metal specimen, it is heated in 
boiling water and then placed 
into cold water in an insulated 
(calorimeter) container. By 
measuring the change in the 
temperature of the cold water, 
the specific heat of the metal 
can be calculated. 

In Table 1, notice that steps 
one through seven consist of 
the measurements students 
make. Steps eight to 16 break 
down the calculation of 
specific heat to a step-by-step 
process. Therefore, if the 
students have made math 
mistakes, they can easily find 
them by comparing their 
results with the computer's 
answers. 

After my students complete 
their calculations, they take 
their data sheet to the TRS-80 
and let the computer evaluate 
their results. The Program 
Listing requires no previous 
knowledge of the TRS-80. The 



Calculations: 








8. Mass of Water 






300 Grams 


9 Temperature Change of Calorimeter and Water 




lOCelsius Oeg. 


10. Calories Gained by the Water 






3000 Calories 


11. Calories Gained by the Calorimeter 






220 Calories 


12. Total Calories Gained 






3220 Calories 


13 Temperature Change Of Metal 






70 Calories 


14. Specific Heat of Metal (Exp.) 






092 Cal/GC 


15. Specific Heat of Metal (Ace.) 






.1 Cal/GC 


16. Percent Error 






8% 


Note: Your Calculated Value for Specific Heat Was 


.09 CAL/GC 


Type Enter' for an Evaluation 








Table 2. Computer 


Calculations 
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program starts over after each 
trial so it is ready as each stu- 
dent finishes his math. 

But the program does more 
than take the student's mea- 
surements and tell him what 
the ^answers should be (see 
Table 2). It evaluates the ac- 
curacy of the student's math by 
comparing the student's 



answers with the computed 
ones. It also evaluates the stu- 
dent's laboratory technique by 
comparing his results with the 
accepted ones (see Fig. 1). 

Teachers can use this pro- 
gram in its present form or can 
customize it by adding addi- 
tional checks. For example, if 
he knows that all his calori- 



meters weigh within two per- 
cent of 100 grams, he can add: 



191 IF ABS (MC-100VMCX.02 THEN 
200 

192 PRINT"YOUR VALUE FOR THE 
MASS OF THE CALORIMETER IS 
NOT REASONABLE." 

193 PRINT'YOU BETTER GO BACK 
AND CHECK IT BEFORE PRO- 
CEEDING." 

194 GOTO 140 



Additional checks can be 
made for any of the other 
measurements the instructor 
believes should fall within a 
definite range. ■ 

John Fetchko teaches 
physics at the Greater Johns- 
town Vocational-Technical 
School in Johnstown, PA. 



Program Listing 




1»B i_LS 


580 CM«CG/(MM*MT) 




110 PRINT«386,"THE PURPOSE OF THIS PROGRAM IS TO CALCULATE THE" 


590 PRINT"14. SPECIFIC HEAT OF METAL ( EXP. ) " ;TAB( 46) ;CM; 


"CAL/GC 


126 PRINTM50, "SPECIFIC HEAT OF METALS FROM YOUR LABORATORY DATA 


600 PRINT"15. SPECIFIC HEAT OF METAL (ACC. ) " ;TAB( 46) ; AV; 


"CAL/GC" 


. " 


610 LET PE-ABS((CM-AV)«100/AV) 




139 FOR 1-1 TO 1000: NEXTI 'TIME DELAY 


620 PRINT"16. PERCENT ERROR" ;TAB( 46) ; PE; "%" 




140 CLS 


630 PRINT'NOTE: YOUR CALCULATED VALUE FOR SPECIFIC HEAT 


WAS" 


150 PRINT'TYPE IN YOUR EXPERIMENTAL VALUES FOR THE FOLLOWING ITE 


640 PRINTTAB(7) ;CV; "CAL/GC" 




MS:" 


650 PRINT 




160 PRINT 


660 PRINT'TYPE 'ENTER' FOR AN EVALUATION"; 




170 INPUT* 1. WHAT IS THE MASS OF YOUR METAL (IN GRAMS) "tHM 


670 LET AS-INKEYS 




180 IF MM<-0 THEN 170 


680 IF AS""" THEN670 




190 INPUT"2. WHAT IS YOUR CALORIMETER'S MASS (IN GRAMS) ";MC 


690 CLS 




200 PRINT"3. WHAT IS YOUR TOTAL MASS FOR THE CALORIMETER AND" 


700 PRI NT" EVALUATION:' 




210 INPUT" THE WATER (IN GRAMS) ";H 


710 PRINT 




220 IF M>-MC THEN 250 


720 LET ME-ABS( (CM-CV) *100/AV) 




230 PRINT'YOUR CALORIMETER'S MASS IS GREATER THAN THE TOTAL MASS 


730 IF ME<10 THEN 780 




1 " 


740 PRINT'YOUR CALCULATIONS ARE MUCH DIFFERENT THAN MINE 




240 GOTO190 


750 GOSUB1070 




250 INPUT"*. WHAT IS THE SPECIFIC HEAT OF YOUR CALORIMETER" ; SC 


760 PRINT'YOU BETTER CHECK YOUR MATH ! " 




260 PRINT"5. WHAT IS THE INITIAL TEMPERATURE OF YOUR METAL" 


770 GOTO860 




270 INPUT" (IN DEG. CELSIUS) "jTM 


780 IF ME<5 THEN 830 




280 PRINT"6. WHAT IS THE INITIAL TEMPERATURE OF THE CALORIMETER" 


790 PRINT'YOUR ANSWERS ARE FAIRLY CLOSE TO MINE" 
800 GOSUB1070 




290 INPUT" AND WATER (IN DEG. CELSIUS) "(TW 


810 PRINT'BE MORE CAREFUL IN ROUNDING OFF YOUR NUMBERS 1' 




300 PRINT"7. WHAT IS THE FINAL TEMPERATURE OF METAL, WATER, AND" 


820 GOTO 860 

830 PRINT'YOUR ANSWERS ARE VERY CLOSE TO MINE." 




310 INPUT" CALORIMETER (IN DEG. CELSIUS) "|TF 


840 GOSUB1070 




320 IF TF<-TW THEN 350 


850 PRINT'YOUR MATH MUST BE CORRECT!" 




330 IF TF>-TM THEN 380 


860 PRINT 




340 GOTO 400 


870 IF PE<20 THEN 920 




350 PRINT'FINAL TEMPERATURE OF WATER IS ALWAYS GREATER THAN THE" 


880 PRINT'YOUR EXPERIMENTAL ERROR IS VERY HIGH!" 
690 GOSUB1110 




360 PRINT'INITIAL TEHPERATUREI " 


900 PRINT'YOU MAY HAVE MADE SOME MISTAKES IN YOUR MEASUREMENTS." 


370 GOTO280 


91 E GOTO1000 




380 PRINT'FINAL TEMPERATURE IS ALWAYS LESS THAN THE METAL'S TEMP 


920 IF PE<5 THEN970 




.11" 


930 PRINT'YOUR EXPERIMENTAL ERROR IS NOT TOO BAD." 




390 GOTO260 


940 GOSUB1110 




400 PRINT'WHAT IS YOUR CALCULATED VALUE FOR THE SPECIFIC HEAT OF 


950 PRINT'HOWEVER, YOU CAM BE MORE PRECISE IN YOUR MEASUREMENTS. 


410 INPUT'YOUR METAL (FROM STEP 14 IN YOUR LAB)";CV 


960 GOTO1000 




420 INPUT" ACCEPTED VALUE FOR SPECIFIC HEAT OF METAL" ;AV 


970 PRINT'YOUR EXPERIMENTAL ERROR IS VERY LOW!" 




430 CLS 


980 GOSUB1110 




440 LET MW-H-MC 


990 PRINT'YOU MUST BE A GOOD SCIENTIST!!" 




450 PRI NT "CALCULATIONS : * 


1000 PRINT 




460 PRINT" 8. MASS OF WATER" ;TAB( 46) ; MW; "GRAMS" 


1010 PRINT'PRESS 'ENTER' TO START ANOTHER TRIAL"; 




470 TC-TF-TW 


1020 LET AS-INKEYS 




480 PRINT" 9. TEMPERATURE CHANGE OF CALORIMETER AND" 


1030 IF AS-"" THEN 1020 




490 PRINT" WATER";TAB(46) ;TC;"CELSIUS DEG." 


1040 GOTO140 




500 CW-MW*TC 


1050 END 




510 PRINT"10. CALORIES GAINED BY THE WATER" ;TAB( 46) ;CW; "CALORIES 


1060 REM CALCULATE %-ERROR AND EXPERIMENTAL ERROR 




" 


1070 PRINT* (YOUR RESULTS DIFFER FROM MINE BY "; 




520 CC=MC*SC*TC 


1080 IF ME<2 THEN PRINT 'ONLY '; 




530 PRINT'll. CALORIES GAINED BY CALORIMETER" ;TAB( 46) ;CC; "CALORI 


1090 PRINT ME;"%) ' 




ES" 


1100 RETURN 




540 CG=CW+CC 


1110 PRINT" (YOUR EXPERIMENTAL ERROR WAS "; 




550 PRINT"12. TOTAL CALORIES GAINED" ;TAB( 46) ;CG; "CALORIES" 


1120 IF PE<5 THEN PRINT 'ONLY "; 




560 MT-TM-TF 


1130 PRINT PE;"%) " 




570 PRINT"13. TEMPERATURE CHANGE OF METAL" ;TAB( 46) ;MT; "CALORIES' 


1140 RETURN 





Features of the FATIGUE FIGHTER : 









a 






REDUCES OPERATOR FATIGUE THEREBY ALLOWING MORE EFFI- 
CIENT USE OF THE COM P UTER. 

INSTALLS EASILY WITH PRESSURE SENSITIVE ADHESIVE. NO 
SCREWS, CUPS, OR DRILLING TO DAMAGE MONITOR. 
DEStONEO TO MATCH TRS-SO* STYLING FROM THE SLACK AND 
SILVER BORDER TO THE LETTERING TYPE FACE. 
MADE OF TOUGH 1/1 INCH THICK ACRYLIC SHEET FOR DURABIL- 
ITY, EASE OF CLEANING, AND A QUALITY APPEARANCE. 
FITS BOTH THE MODEL I AND THE MODEL N. 
DOES NOT VOID THE COMPUTER WARRANTY. 



TO ORDER 



TRS-BO IS A TRADEMARK OF TANDY 



Sand Nam* a Addraat Typad or Oaarty Prtniad with 
Chack or Monoy Ordor for 012.05 Each. Including Ship- 
ping. COO't ara 12.50 AddHlonal Par Ordar a ara Ac- 
captad by MaH or by Calling 0O4-37*-24a4 B-S M-F. 
Florida RaaWant i Add 4% Salaa Tax. 

SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIOA 32601 ^373 



This product rasultad fros. tha 
(oIlowinBi Psychol 09 teal studio* 
show graan to bo aost alaasant 
tor axtandad viawina,. Eua. sorts t - 
t»-,ity paaks in tha arson band 
of tha a pa c trua. Contrast is an- 
hancad by raduoirvg tha sab i ant 
light falling on a CRT. That* 
thraa fac 
oa or a tor fatigus. Finally, wa 
uantad s>ora than Just function. 
Ma -antad a filter that visually 
aatchad TRS-« styling. Picturad 
hara 1 
product wa ara aroud of. 



lllJUWIliUllllD ** y 



►» See List of Advertisers on page 418 
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UTILITY 



Don't be tied up by that slow printer. 



The Spooler 



Roger B. Gault 

9603 Mountain Quail Road 

Austin, TX 78758 



I love my Line Printer IV, but 22 
lines per minute is slow, and 
patience can be costly. So, 
armed with various Radio Shack 
manuals and James Farvour's 
Microsoft Basic Decoded & 
Other Mysteries, I set out to 
write a print spooler. 

A print spooler is a program 
which sends information to the 
printer from a storage area 
while the computer is doing 
something else, like continuing 
with the program which requires 
the printing. I have seen spool- 
ers which print from a disk file, 
but that ties up the disks and I 
want disk access during print- 
ing. Consequently, I decided to 
write an "in-memory" spooler. 

The Radio Shack Expansion 
Interface provides the mechan- 
ism in the form of the 25 
microsecond interrupt for ac- 
complishing this. Every 25 
microseconds, the Expansion 
Interface sends an interrupt 
signal to the Central Processing 
Unit (CPU). This causes the CPU 
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to execute a Restart 38H in- 
struction which is just like a 
subroutine call to ROM address 
38H. This interrupt is used by 
the DOS to update the real-time 
clock. PEEKing around in the 
ROM (or in Farvour's book) will 
show a Jump 4012H stored in 
38H. This is a RAM address 
which contains yet another 
jump to the interrupt handling 
routine. 

At first glance, this seems a 
likely place to break into the in- 
terrupt chain and print a char- 
acter. However, the disk drive 
controller also creates inter- 
rupts, so it seems wiser to 
follow the interrupt handling 
routine until it gets to the clock 
update subroutine and break in 
there. 

The clock update subroutine 
address is stored in RAM at 
405BH. By replacing that 
stored address with the ad- 
dress of the spooler output 
subroutine and then jumping to 
the clock output subroutine 
after printing a character, the 
spooler can be inserted into the 
interrupt handler. This will give 
a character to the printer every 
25 microseconds, or 40 times a 
second. That's pretty slow, but 
at least the system can get on 
with its business while that is 
going on. In the case of the Line 
Printer IV, the print speed is 
about two-thirds what it is 
normally. 

Program Description 

The spooler is made up of 



four parts. The first section, 
lines 260-310, establishes the 
buffer area and sets the input 
and output pointers. The buffer 
is 1K long, assembled. This 
length can be changed by 
changing the origin value in line 
260. For example, an origin 
value of F782H would give a 2K 
buffer. INPTR is the input 
pointer and points to the last 
character placed in the buffer. 
OUTPTR is the output pointer 
and points to the last character 
sent to the print driver routine. 
Both pointers are initialized to 
the top of the buffer. 

Section two, lines 370-500, is 
run when the spooler is loaded: 
it initializes the system. First it 
disables the interrupts so an 
interrupt can't occur while the 
interrupt handling chain is be- 
ing changed. It then changes 
the top of memory pointer 
stored at 4049H to a number 
which is one less than the ad- 
dress of the bottom of the buf- 
fer (BTMBUF). Then it gets the 
address of the print driver 
routine which is stored at 
4026H and stores it in line 860 
as the Call address. 

The address of the section 
which receives a character for 
storage in the buffer (RECCHR) 
is then placed in 4026H; instead 
of going to the printer through 
the print driver routine, a char- 
acter to be printed is stored in 
the buffer. The clock update 
routine address stored in 
405BH is then placed in line 910 
to tell the spooler where to 



jump after a character is 
printed. The clock update rou- 
tine address is replaced at 
405BM with the address of the 
section which sends a char- 
acter from the buffer to the 
print driver (OUTCHR). The in- 
terrupts are enabled and con- 
trol returned to the DOS. 

Section three, lines 550-910, 
is the section which sends a 
character from the buffer to the 
printer. When an interrupt oc- 
curs, the interrupt handling 
routine decides what kind of in- 
terrupt it is and, if it is the 25 
microsecond clock interrupt, 
executes a jump to the address 
stored in 405BH. Since that ad- 
dress has been replaced with 
the address of this section by 
the initialization part of the 
spooler, control is passed to 
line 550. 

The registers are saved and a 
comparison made between the 
two buffer pointers, INPTR and 
OUTPTR. If they are equal, the 
buffer does not contain char- 
acters to be printed and the pro- 
gram jumps to RESTOR in line 
870 and from there continues 
back to the clock routine. If 
there is text in the buffer, a 
check is made to see if the 
printer is ready for a character. 
If it is not, the program jumps to 
RESTOR. 

I included this test because 
the Line Printer IV will not ac- 
cept characters while it is ex- 
ecuting a carriage return. Since 
this is half the time while the 
printer is printing, and the 



CHRISTMAS SPECIALS 



Books 



To help you understand your micro. LTD is offering these 
popular SELF TEACHING GUIDES. We're so sure you'll like 
these books, we're offering a 15 day money back 
guarantee! Shipping Information — 2 lbs. each. 

TRS 80 BASIC "OUTSTANDING." 
(Computronics Monthly News.) Packed with games, 
graphics, and practical applications, this exciting new book 
helps you get maximum enjoyment and use from your 
TRS-80 $8.95 

MORE TRS-80 BASIC... 

this interactive guide explains all TRS-80 Level II BASIC 
statements, commands and features not covered in TRS-80 
BASIC, tou get several different methods to display 
graphics, including "super graphics" and files handling 
techniques. S8.95 

8080/Z80 ASSEMBLY LANGUAGE . . . 
For both intermediate and advanced programmers, learn 
assembly language by developing a powerful system 
monitor in a step-by-step, top-down approach. Over 100 
pages of programs are included. You learn branching, 
rotation, and shifting, one's and two's complement 
arithmetic, stack operations and use of the CP/M 
operating system for all I/O. $9.95 

DATA FILE PROGRAMMING IN BASIC... 
Data files are the key to the successful use of micro- 
computers. It uses the most popular variants of BASIC, 
TRS-80 BASIC, and Microsoft BASIC-80. $9.95 

FLOWCHARTING... 

A Tool for Understanding Computer Logic $8.95 

USING CP/M... 

The first complete, detailed, self-paced introduction to 
CP/M -Control Program/Microcomputers, the most 
widely used microcomputer operating system. Packed with 
examples and experience. $8.95 

BUY 1 BOOK — list minus 5%/2 BOOKS— minus 10% 
3 OR MORE — minus 15% 



Software_ 

MASTERGUESS — See July ad l-lb 
REFLEC-TRS — See Oct ad l-lb 
ELVES CUBE — See Nov. ad l-lb 

$6.95 ea/3 for $15.00 
Billist —See July ad l-lb 

$11.95 cassette/$21. 95 disc 

Hardware 



Remove harmful oxides from your disc drive heads: 
Size; Price Weight 

SPECIAL— 3 N HEAD Cleaner Kit 

SW $22.95 

8" $23.95 

FLIP SORT— holds 50-60 Diskettes 



5vr 
8" 
PLASTIC LIBRARY CASE for: 
5" 



$21.95 
$2595 



l-lb 
1-to 

l-lb 
l-lb 

Hb 
l-lb 



l-lb 



$ 2.99 
8" $ 4.99 

VERBATIM MD 525-01, 10, 16 SS/dd l-lb 

$25.95 for 10/add $2.50 per box for library case 

VERBATIM FD 34-8000 $39.95/10 

with hub ring and haul box $43.95/10 l-lb 

DYSAN, WABASH, BASF. SCOTCH 3M, 
MEMOREX AVAILABLE. — CALL 



OKIDATA PRINTERS 

We believe OKIDATA to be the best value for the money. 
The time proven design guarantees 2 MILLION high 
density characters from a DISPOSABLE PRINT HEADI The 
82A and 83A are 120 CPS FAST, have upper and lower case 
(with decenders), graphics and logic seeking. WE SELL 
MORE OKIDATA THAN ANY OTHER PRINTERI 
microline 80-S377 * (reg. 389) 

82A-532 * (reg. 549) 

83A-804 * (reg. 829) 

•price includes 3% cash discount 
MEMORY CHIPS — Motorola ceramic 16K 200AS 
$14.95/8 THIS MONTH ONLY l-lb 



SHIPPING 

• domestic — $2.50 (UPS ground) 

• over $50 — ship free (UPS ground) 

• COD— addS2.00 

• P.O. Boxes — include phone for UPS 

• a I tow 1 to 2 weeks for checks to clear 

DISCOUNT 3% Cash Discount from total (including shipping 
and handling) 
Cash, Check, MO. or COD 



P.O. Box 1567 Wheatridge, CO 80034 

CALL COLLECT j 8AM 5PM MST) 303-431-4154 




'ATA INC. 



■See List ol Advertisers on page 418 
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BYE 
BYE 



BASIC 






^ '-HtVrf/ 



Announcing the quick and easy way 
to write custom business applications 
* in hours instead of weeks. 



At last, you can get a microcomputer 
business application development system 
that is designed for one purpose 
only . . . fast production of bug-free 
professional-looking custom business 
applications 

"Thinks" the Way Business Thinks 

Quic-N-Easi is the revolutionary screen- 
format-oriented application development 
system that thinks in terms of transactions, 
records and fields. The same way business 
thinks. Quic-N-Easi expects an application 
to include custom formatted key entry It 
lets you set up the character, field, and 
record validity checks business wants by 
merely filling in the blanks. It automatically 
signals in real time when errors occur 
and "explains" what is wrong in plain 
English messages you select for each 
custom application. 

Much Faster than BASIC 

Quic-N-Easi programming is much faster 
than BASIC because the standard busi- 
ness applications (key input, file handling, 
and output reporting) are handled via 
pre-programmed parameter driven sub- 
routines. To produce finished professional 
looking custom business programs, you 
merely: 

r # _] Draw the business formats directly 
1 ' on the CRT in minutes. 

# _; Fill in the blanks for field attributes, 
^— ' validations, tables, etc. 

r^j Invoke the Quic-N-Easi interpreter 
'—- ' to check fields against tables, check 

limits, access data files, and perform 

business calculations, etc. 
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nn Optionally define file and output 
' formats right on the screen 

Pays for Itself in a Week 

By eliminating the coding drudgery of 
writing screen, field. f ile. and format 
programs in BASIC, programmers are 
free to concentrate on the unique business 
aspects of each custom application. No 
professional programmer can afford to 
develop one more business application 
without Quic-N-Easi. The savings are so 
significant with Quic-N-Easi. it can actually 
pay for itself in only one week. 

Gives You Much More than a 
Screen Builder . . . the Only 
Complete Business Development 
System for Microcomputers 

Quic-N-Easi handles the entire application 
development job from key entry to final 
output. You get everything you need, 
including detailed documentation to begin 
writing professional programs the first 
day You get . . . 

._' A singularly capable Quic-N-Easi 
screen builder 

; .." A comprehensive parameter driven 
• Quic-N-Easi content editor 

r # T| A full Quic-N-Easi interpreter 
!- — ' language 

r^TI A complete Quic-N-Easi file 
' --- ' management system with Index 
Sequential, Random, and 
Sequential File Access Method 

~ A complete Quic-N-Easi print format 
*■ — ' handler 

r^\ A detailed Quic-N-Easi reference 
' — J manual 



._ A Quic-N-Easi self-teaching guide 
._' A Quic-N-Easi quick reference card 
.. An interface to other program files 



ORDER NOW— Don't Waste 
One More Day Coding BASIC 

Your time is too valuable to waste hours 
on end writing BASIC code. The first 
week you use Quic-N-Easi, your finished 
business programs will look better, run 
better, and return more dollars to you. 
Don't delay. Order Quick-N-Easi today. 
Phone ... 215 968-0689 



quid n - easi 

STANDARD MICROSYSTEMS INC. -31/ 

136 GRANITE HILL COURT, LANGHORNE, PA 19047 



Pricing Information 

■ Complete Quic-N-Easi system $395 

■ Manual only $60 

■ Visa and Mastercard accepted 

■ Dealer Inquiries Invited 

Minimum System Requirements 

48K • CP/M • Z80 • Floppy Disc 

Other Disk Formats • 8" Single Density 
Vector Graphics • Micropolis Model 2 

Customized Versions • TRS80 Mod II, 
TRS80 Mod III, APPLE, OSBORNE, 
INTERTEC, VECTOR , ZENITH 

Apple. CP/M. Intertec. Micropolis, and TRS80 are 
trademarks ol Apple Computer. Digital Research, Intertec 
Data Systems. Micropolis Corp , and Tandy Corp 



TM 



printer prints a line about every 
three seconds, the system was 
locked up for 1 V2 seconds every 
three seconds. Keyboard input 
is nearly impossible under those 
circumstances. If you have a dif- 
ferent type of printer you might 
try deleting this test (lines 730- 
760). OUTPTR is moved to the 
next character position if these 
tests lead to a character being 
printed. A check is made to see 



if that is the bottom of the buf- 
fer, and if it is, the OUTPTR is 
set to the top of the buffer 
where the next character is 
stored. The OUTPTR is then 
stored for use next time and the 
character which it points to is 
placed in the C register where 
the print driver routine expects 
to find it. A subroutine Call is 
executed to the print driver 
which prints the character and 



00 


•111 
• •111 
11121 










SPOOLER/CUD 






ROGER B. GAULT , 




■ •13* 




AUSTIN, TEXAS , 




• 1141 




3/1 V»l 




•USI 










•tl«f 


THIS 


PROGRAM INTERCEPTS THE OUTPUT TO THE LINE 




••171 


PRINTER AND STORES IT 


IN A BUFFER. UPON EACH 25MS 




••IB) 


INTERRUPT IF THERE ARE CHARACTERS TO BE PRINTED AND 




• •19) 


THE 


PRINTER IS READY, 


THE PROGRAM SENDS ONE CHARACTER : 




• •2M 


FROM 


THE BUFFER TO THE LINE PRINTER DRIVER. AFTER i 




••21) 


THE CHARACTER IS PRINTED, CONTROL IS RETURNED TO THE i 




• •22( 


INTERRUPT HANDLING ROUTINE. 




M23« 
••24* 

88258 
















FB82 


• •26* 




ORG IFB82H 


iTHIS IS THE BOTTOM OF THE BUFFER 


FBB2 


••27* 


rawr 


EQU S 


; DEFINE BOTTOM OF BUFFER 


rp»2 


• •28* 




ORG IFF62H 


;ORIGIN OF PROGRAM 


PP81 


M29B TOPBUF 


EQU S-l 


IDEFINE TOP OF BUFFER 


FP82 81FF 


89388 


NPTR 


DEFW TOPBUF 


;SET BUFFER LOAD POINTER LOC. 


FFB4 BIFF 


••3 If OUTPTR 
••32* ' 


DEFW TOPBUF 


I SET OUTPUT CHAR. POINTER LOC. 




•«33» 




THIS SECTION IS 


EXECUTED ON PROGRAM LOAD. IT 




••34* 




INSTALLS THE SPOOLER IN THE INTERRUPT HANDLING 




••35* 




CHAIN AND SETS MEMORY SIZE. 




• •36* 








FF8« F3 


• •37* 


NIT 


Dl 


I DISABLE INTERRUPTS FOR A MOMENT 


FFB7 2182FB 


88388 




LD HL.BTMBUF 


;SET MEM SIZE TO PROTECT SPOOLER 


FF8A 2B 


• •391 




DEC HL 




FF8B 224941 


• •4I« 




LD U049H! ,HL 




FF8E 2A264( 


1)941 a 




LD HL,(4*26H) 


[GET PRINT DRIVER ADDR. 


FF»1 22D3FF 


• •42* 




LD (PRINT4-6) ,HL 


; STORE IT FOR CHAR. OUTPUT 


FF»4 21DCFF 


• •43* 




LD HL.RECCHR 


;PUT BUFFER LOAD ROUTINE ADDRESS 


FF»7 22264* 


• •44( 




LD (4126HI ,KL 


;IN LINE PRINTER DCB 


FP9A 2A5B4* 


• f4S« 




LD HL, (4»5BH) 


(GET CLOCK ROUTINE ADDRESS 


PP»D 22DAFF 


8841.0 




LD (RESTORES) .HLiSTORE IT FOR RETURN FROM OUTPUT 


FFA» 21A8FF 


• •47« 




LD HL, OUTCHR 


(INSERT PRINT ROUTINE INTO 


FFA3 225B4B 


• 8488 




LD ( 4)5BHJ ,HL 


: INTERRUPT HANDLING CHAIN 


FFA6 FB 


• •49* 




EI 


(RESTORE INTERRUPTS 


FFA7 C9 


••sat 

MSlf 




RET 


(RETURN TO DOS 




• •521 




THIS SECTION GETS A CHARACTER FROM 




• •S3) 


THE BUFFER AND PRINTS IT 




• •S4) 








FFA8 F5 


))55) OUTCHR 


PUSH AF 


(SAVE REGISTERS 


FFA9 D5 


801.60 




PUSH DE 




FFAA C5 


■ IS7I 




PUSH BC 




FFAB E5 


• »58» 




PUSH HL 




FFAC 2A82FF 


))59) 




LD HL,( INPTR! 


(CHECH TO SEE IF ANY TEXT 


FFAF ED5B84FP 18618 




LD DE, (OUTPTR) 


IIS IN BUPFER 


FFB3 B7 


00(18 




OR A 


(CLEAR CARRY FLAG 


FFB4 EDS2 


88628 




SBC HI..DE 


[ (I NPTR). (OUTPTR) 7 


FFB6 28ID 


• 8638 

• •648 




JR Z.RESTOR 


(SUP PRINT IF EMPTY 




91"',: ! 


THE FOLLOWING 4 LINES 


OF CODE ARE FOR A LINE PRINTER 




8)668 


USING THE NORMAL PARALLEL PORT. IF VOU HAVE A PRINTER 




))678 


USING THE RS-232 INTERFACE, REPLACE THEM WITH: 




88688 


»»73» IN A,(EA) jGET UART STATUS 




8)69) 


••74« BIT 6, A ;TEST BIT 6 FOR HIGH 




88788 


•B758 JR Z.RESTOR [SKIP PRINT IF NOT READY 




6)71) 


B)76) NOT USED 






88728 








FFB8 3AE837 


88738 




LD A, (37E8H) 


(GET PRINTER STATUS 


KFBB E6FB 


88748 




AND 8F8H 


(MASK IT 


FFBD PE3f 


6B7S8 




CP H'H 


(CHECK IF PRINTER IS READY 


FFBF 2814 


88768 




JR NZ.RESTOR 


(SKIP PRINT IF NOT 


FECI IB 


8 87 78 




DEC DE 


[ADJUST POINTER 


FFC2 2182FB 


88788 




LD HL.BTMBUF 


(CHECK BOTTOM OF BUFFER 


FFC5 B7 


887 98 




OR A 


(CLEAR CARRY FLAG 


FFC6 EDS2 


88888 




SBC HL.DE 


( (OUTPTR) -BTMBUF? 


FFC6 2883 


88816 




JR NZ, PRINT 


(GO TO PRINT IF NOT AT BOTTOM 


FFCA 11B1FF 


8)82) 




LD DE, TOPBUF 


(ELSE POSITION TO TOP 


FFCD EB 


88838 


RINT 


EX DE,HL 




FFCE 2284FF 


88848 




LD (OUTPTR) ,HL 


(STORE POINTER 


FFD1 4E 


889S8 




LD C, (HL) 


(GET CHARACTER TO BE PRINTED 


FFD2 CD0088 


88868 




CALL 0000H 


(WILL CONTAIN PRINT DRIVER ADDR. 


FFD5 El 


))87« 


ESTOR 


POP HL 


(RESTORE REGISTERS 


FFD* CI 


8)888 




POP BC 


(FOR RETURN TO INTERRUPT ROUTINE 


FFD7 Dl 


8889) 




POP DE 




FFD8 Fl 


88988 




POP AF 




FFD9 I 38886 


88918 

8)92) 
)893) 




JP 8))8H 


(WILL CONTAIN CLOCK ROUTINE ADDR. 






;THIS SECTION PUTS THE NEXT CHARACTER 




B«94) 




(THAT THE CALLING ROUTINE WANTS 




• »95« 




■•PRINTED IN THE 


BUFFER 




• 896) 








FFDC F5 


))978 


ECCHR 


PUSH AF 


[SAVE REGISTERS 


FFDD D5 


8)988 




PUSH DE 




FFDE E5 


8)998 




PUSH HL 




FFDF ED5B82FF 


)!••• 




LD DE, (I NPTR) 


[GET POINTER 


FFE3 IB 


• iei) 




DEC DE 


[MOVE IT TO NEXT POSITION 


FFE4 2182FB 


81828 




LD HL.BTMBUF 


[SEE IF BOTTOM OF BUFFER 


FFF7 B7 


8183) 




OR A 


[CLEAR CARRY FLAG 


FFL8 ED52 


8184) 




SBC HL.DE 


1 (INPTR) -BTMBUF? 


FFEA 2883 


918S) 




JR NZ.FULOOP 


(IF NOT PROCEED 


FFEC 1181FF 


81868 




LD DE, TOPBUF 


(ELSE SET POINTER AT TOP 


FFEF 2A84FF 


81878 F 


ULOOP 


LD HL, (OUTPTR) 


[CHECK IF BUFFER IS FULL 


FFF2 B7 


81888 




OR A 


(CLEAR CARRY FLAG 


FFF3 ED52 


81)9) 




SBC HL.DE 


( (INPTR) -(OUTPTR) 7 


FFF'i 28F8 


BID) 




JR Z.FULOOP 


[AND LOOP IF IT IS 


FFF7 EB 


01118 




EX DE.HL 




FFFB 71 


• 1120 




LD (HL) ,C 


[PUT CHARACTER IN BUFFER 


FFF9 2282FF 


• 1138 




LD IINPTR) ,HL 


[UPDATE (INPTR) 


fFFC El 


81148 




POP HL 


(RESTORE REGISTERS 


FFFD Dl 


81158 




POP DE 




FFFF. Fl 


)116) 




POP AF 




FFFF C9 


B1178 




RET 


•RETURN TO CALLING ROUTINE 


FF66 


8118) 




END INIT 


•START AT INIT 








Program Listing 



returns. The registers are 
restored to their original condi- 
tion and a Jump executed to 
the clock update routine. 

Section four, lines 970-1170, 
stores a character to be printed 
in the buffer. First it saves the 
registers and then INPTR is 
moved to the next character 
position. If that is the bottom of 
the buffer, INPTR is set to the 
top. Then a check is made to 
see if the buffer is full. 

If the buffer is full, INPTR will 
be equal to OUTPTR. If it is full, 
the program loops until an in- 
terrupt comes along and 
causes a character to be 
printed. It can then store the 
next character. If the spooler 
slows down your printer, you 
would not want to use it to print 
out a long listing or long file. 
Once the buffer is full the 
system acts like a normal 
system with a slower printer. If 
you have the room, you can 
always assemble it with a huge 
buffer; in any case, once the 
character is stored, the new 
value for INPTR is stored and 
the registers restored. Control 



is then passed back to the call- 
ing program. 

Notes 

I have one inexplicable prob- 
lem: When running one of my 
programs which accesses long 
disk files, the system kept get- 
ting the same physical record 
when the buffer filled up even 
though the physical record vari- 
able was changing properly. 
Moving the "GET 1,PR" state- 
ment to another line in the pro- 
gram solved the problem! If 
anyone has an explanation for 
this, please contact me. 

If you have a faster printer, it 
might be possible to rewrite the 
output section so two or more 
passes are made through lines 
550-860. That would output sev- 
eral characters per interrupt. 

If you assemble the program 
at a different memory location, 
be sure to change both origin 
value statements (lines 260 and 
280). 

I have used this spooler with 
both TRSDOS 2.3 and NEWDOS 
80 with equal success. ■ 



RELIABLE, SIMPLE MEMORY 
EXPANSION YOU CAN AFFORD! 




Shown above is the IM-2 48K INTERNAL MEMORY'and a phillips screw- 
driver — everything you need to ADD up to 32K RAM to your TRS-80* Model I 
keyboard unit [for a total of 48K RAM). No soldering or trace cutting — just open 
the case, remove your RAM chips, plug the INTERNAL MEMORY (IM) into the 
RAM sockets, plug your chips back in, connect 4 solderless clips (they work!)and 
close the case (Detailed, illustrated step-by-step instructions show you how to do 
this). You now have a 48K keyboaid unit — and you didn't have to buy an 
expansion interface! If you don't need 48K, a 32K version is available. 

Time and experience have shown that the TRS-80* expansion buss cannot 
reliably drive memory systems. Because the IM does not use the buss, it may be 
used with ANY expansion device for reliable memory operation. Some of our 
customers use an IM INSTEAD OF the RAM in their expansion interface to 
eliminate El memory problems! 

Because the IM draws most of its power from the 12 volt supply, power supply 
loading is not a problem. Some additional heat is generated, but the TRS-80* runs 
so hot anyway you probably won't notice the increase! 

The INTERNAL MEMORY is completely tested and assembled using only 
the finest materials You have IS days to return it for a refund if you don't like it, 
and it is guaranteed for I full year Installation is available for a small fee. 

Send a SA.S.E. for more information. 



PRirFQ IM-IBJ32K) 

runt* — , M . 2(48KJ 



*85.SO (w/l«SK RAM) 
*I40.00 (w/32K RAM) 

Prices include UPS shipping in U.S. 
Utah residents add 5% tax; FOREIGN ORDERS add 15%. 



6246 West 3705 South Salt Lake City. UT 84120 (801) 967-2324 



• See List of Advertisers on page 418 
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GAME 



LOAD 80 



After dinner on long winter evenings, get pegged. 



Dessert Solitaire 



Program Listing 



•••••••••• 



THE GOLF TEE PROBLEM - BY RICHARD B. DUNCAN 
LISTING IN "MATHEMATICS TEACHER" MAGAZINE 

JANUARY 1979 



ADAPTED FOR THE TRS-88 
VI: FOR PRINTER 



MODIFIED BY RAY RATKE 
DECEMBER 4, 1968 ** 



5 REM • 

IB REM 

15 REM 

20 REM 

25 REM 

38 REM 

35 REM 

48 REM 

45 REM *****•*••*•••****»*••***«•****»*«•**»*******•**********• 

58 CLS:PRINTTAB(14) "PEG SOLITAIRE ON A TRIANGULAR BOARD" :PRINT 

55 PRINT'THIS PROGRAM WAS WRITTEN TO HAVE THE COMPUTER SEEK A 

LL SOLU- 

68 PRINT'TIONS OF THE PEG JUMP GAME KNOWN BY MANY DIFFERENT NAME 

S.":PRINT 

65 PRINT'IN ITS MOST COMMON FORM, THE GAME IS PLAYED ON A TR 

IANGULAR 

78 PRINT'BOARD IN WHICH 15 HOLES ARE DRILLED. AT THE BEGINNIN 

G OF THE 

75 PRINT"GAME, PEGS ARE PLACED IN EACH HOLE, AND THE PLAYER HAS 

THE OP- 
88 PRINT'TION OF REMOVING ANY ONE PEG. THE PLAY CONSISTS OF J 

UMPING A 
85 PRINT'PEG OVER ANOTHER ADJACENT PEG AND INTO A VACANT HOLE. 

THE PEG 
98 PRINT'WHICH IS JUMPED OVER IS THEN REMOVED FROM THE BOARD. J 
UMPS MAY 

95 PRINT"BE MADE HORIZONTALLY OR DIAGONALLY, EITHER FORWARDS 
OR BACK- 

188 PRINT"WARDS.":PRINT:PRINT"PRESS ANY KEY TO CONTINUE. 

185 ZZS-INKEYS: IFZZ$ = ""THEN1B5ELSECI.S: PRINTTAB( 14) "PEG SOLITAIRE 
ON A TRIANGULAR BOARD": PRINT 

118 PRINT'THE OBJECT OF THE GAME IS TO HAVE ONLY ONE PEG LEF 
T ON THE 

115 PRINT" BOARD AT THE END. 

128 PRINT: PRINT "THE HOLES IN THE BOARD ARE LAID OUT AND NUMBER 

ED AS WILL BE 

125 PRINT'SHOWN, SO THAT THE VARIOUS SOLUTIONS CAN BE IDENTIFIED 

.":PRINT:PRINT"IN THE FORM THE PROGRAM WAS ORIGINALLY WRITTEN, 
IT TOOK THE 

138 PRINT "COMPUTER ABOUT TWO HOURS TO FIND THE FIRST SOLUTION. 

TO SPEED 

135 PRINT'UP RESPONSE TIME, THE PROGRAM WAS SLIGHTLY REVISED. 
IT WILL 

148 PRINT'GENERATE THOUSANDS OF SOLUTIONS, BUT NOT ALL OF THE 
438,888 

145 PRINT'DIFFERENT ONES SAID TO BE POSSIBLE. CONSIDERING T 

HAT MANY 

158 PRINT'PEOPLE ARE HARD PRESSED TO FIND EVEN ONE SOLUTION, 
THIS IS 

155 PRINT'QUITE AN ACCOMPLISHMENT FOR THE COMPUTER. 

168 PRINTTAB( 19) "PRESS ANY KEY TO CONTINUE."; 

165 ZZS-INKEYS: IFZZ$-"'THEN165ELSECLS 

178 PRINT:PRINTTAB(32) "1" : PRINT 0168 ,CHRS ( 131 ) 

175 PRINTTAB(27) "2";TAB(37) "3" :PRINTP283,CHRS( 131) : PRINT3293 ,CHR 

S(131) 

188 PRINTTAB(22)"4"iTAB(32)"5";TAB(42)"6"iPRINT#4B6,CHR$(131) : PR 

INTe416,CHR$(131) : PRINT3426 ,CHR$ ( 131) 

185 PRINTTAB(17) "7";TAB(27) "8";TAB(37j "9";TAB(46) "18* : PRINT0529 , 

CHRS(131) :PRINTS539,CHR5(131) : PRINT0549 ,CHRS ( 131 ) : FRIHTP559 ,CHRS 

(131) 

198 PRINTTAB(12> "11";TAB(21) *12";TAB(31) *13'jTAB(41) "14 "/TAB (51) 

•15":PRINTJ652,CHRS(131) : PRINTG662 ,CHRS ( 131) : PRINTJ672 ,CHRS(131) 

:PRINTe682,CHR$(131) :PRINTi692 ,CHR$(131) 

195 INPUT'ENTER NUMBER OF HOLE TO BE LEFT VACANT AT START'jQ 

Program continues 



Ray Ratke 

3822 N. 75th Street 

Milwaukee, Wl 53216 



Aboard game, generally 
called Solitaire in literature 
relating to the game, has been 
popular for 200 years in many 
countries around the world. 

Holes are drilled in a board 
and pegs are inserted into each 
hole. At the beginning of the 
game the player removes one 
peg from a hole of his choice. 
Then, by a succession of jumps 
as in checkers, he tries to re- 
duce the number of pegs so 
that, at the end of the game, 
only one remains on the board. 
The holes are arranged in a geo- 
metric pattern to form a square, 
rectangle or other shape. This 
article deals with the triangular 
form. 

Jumps can be made when 
two pegs in adjacent rows are 
accompanied by a vacant hole 
in the next row, all three being in 
a straight line. The end peg 
jumps over the next peg into the 
vacant hole, and the peg which 
was jumped over is removed 
from the board. Jumps can be 
made horizontally or diagonally, 
either forward or backward. 

In an article in The Mathe- 
matics Teacher magazine, Janu- 
ary 1979, Richard B. Duncan pre- 



sented a Basic program to find 
all solutions for each of the fif- 
teen different starting positions. 
He determined there is a grand 
total of 438,984 different solu- 
tions. This number, however, in- 
cludes solutions which are not 
fundamentally different from 
each other. For example, by ro- 
tating the board and suitably re- 
numbering the holes, the same 
sequence of moves will solve 
any of the three starting posi- 
tions with hole one, 11, or 15 va- 
cant at the start. 

Duncan's program was writ- 
ten for the DEC-10 computer. 
He found that the computer 
time required to find the first 
solution when hole one is va- 
cant at the start was a little 
longer than 90 minutes. I 
adapted his program to run on 
the 16K Level II machine. I 
found the time required to find 
the first solution somewhat 
longer than Duncan's. 

To speed up execution time, I 
modified the program so one 
possible sequence of the first 
three moves for each different 
starting position was made be- 
fore the computer began its 
search for solutions. This mod- 
ified program is given in the 
Program Listing. The total com- 
puter time to find 30 solutions, 
the first two for each of the 15 
different starting positions, is 
approximately 30 minutes. Nat- 
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urally, some of the solutions are 
lost because of the modifica- 
tion, but there are still many 
thousands that can be found if 
you have the patience. 

There is a total of 36 legal 
jumps on the board. These are 
arranged in a table in arrays C, 
D, and E. For each jump made, 
the computer must check the 



table to see that the move is 
valid. Apparently the order of 
the entries in the table makes a 
dramatic difference in the time 
required to find the first solu- 
tion. This could be an important 
observation for a programmer 
working on an application less 
trivial than the one of this pro- 
gram. ■ 



Program continued 










2ei 


IFQ<10RQ>15THEN195 










2*5 


PRINT: PRINT'THE COHPUTER IS NOW SEARCHING POR 


SOLUTIONS . 


210 


DEFINTI,N,R-V,Z 










215 


DIHC(36) ,D(36) ,E(36] 


,A(15),B(13) 






221 


F0RU-1T036:READC(U) > 


NEXTU 








225 


DATA1, 1,2, 3, 4, 6, 11, 12, 13, 7, 8, 4 


,4,2,5,6, 


1,5,4,6,7,10,11,15,13 


.14 


15,9,16,6,13,9,14,1: 


,8,12 








230 


F0RR-1T036:READD(R) 


NEXTR 








235 


DATA2,3,4,6,7,10,12 


13,14,8,9, 


5,8,5,9,9 


.5,8,2 


3,4,6,7,10,12, 


13,14,8,9,5,8,5,9,9,5,6 










240 


F0RT«1T036:READE(T) 


NEXTT 








245 


DATA4, 6, 7, 16, 11, 15, 13, 14, 15, 9, 


10,6,13,9 


,14,13 


8,12,1,1,2,3,4 


,6,11,12,13,7,8,4,4,2,5 


6,3,5 








250 


F0RS-1T015:READA(S) 


NEXTS 








255 


DATA1, 1,1, 1,1, 1,1,1 


1,1,1,1,1, 


1,1 






260 


I FQ«10RQ»70RQ"1 0ORQ-1 3THENA ( 1 1 


-6:A(2)-8 


:A(3)« 


l:A(5)-0 


265 


IFQ-20RQ-60RQ«110RQ»14THENA(7) 


-0zA(8)-0 


:A(11) 


.0:A(12)-0 


270 


I FQ- 30RQ- 40RQ- 1 20RQ" 


15THENA(9! 


-0:A{10)- 


l:A(14)-0:A(15)«0 


275 


I FQ-5THENA ( 7 ) -0 : A ( 8 


-6:A(12)-I 


:A<13)-0 






280 


IFQ«8THENA(2)«6:A(3 


-6:A(5)-6: 


A(6)-0 






285 


IFQ«9THENA(2)-0iA(3 


-6:A(4)-0: 


A(5)-0 






290 


FORV-lTOl 3 : READB ( V) 


NEXTV 








295 
306 












N-3 




305 


IFN-13THEN395 










310 


1-1 










315 


IFI>36THEN365 










320 


IFA(C(I))*A(D(I)K1THEN336 








325 


IFA(E(I))-0THEN348 










330 


I-I+l 










335 


GOT0315 










340 


A(C(I))-6:A(D(I))-0 










345 


A(E(I))-1 










350 


N-N+l 










355 


B(N)-I 










360 


GOTO305 










365 


IPB(1)>20THEN660 










370 


A(C(B(N)))-liA(DlB(N)))-l 








375 


A(t(B(N)))-6 










386 


I-B(H)+1 










38S 


N-N-l 










396 


GOTOJ15 












LPRINT'HOLE I "(Q J "LEFT VACANT 


AT START. 






468 

1 


IF0-1PR1NT' 6- 1 
-4 "! 


4-6 1 


4 "(tLPRINT* 
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Program continued 
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405 IFQ-2PRINT" 7- 2 

11-13 "; 
410 IFQ«3PRINT"10- 3 

15-13 ";: 
415 IFQ-4PRINT"13- 4 

10- 8 "i 
420 IFQ-SPRINT"14- 5 

7- 9 ■» 
425 IPQ»6PRINT"13- 6 

7- 9 ', 
436 IFO-7PRINT* 2- 7 

I- 6 "; 
435 IFQ-8PRINT"10- 8 

3-10 
440 IFQ-9PRINT" 7- 9 

3-8 
445 IFQ-10PRINT" 3-10 

1-4 
456 IFQ-11PRINT"13-11 

II- 4 "; 
455 IFQ-12PRINT"14-12 

15- 6 ") 
468 IFO-13PRINT" 4-13 

3- 8 "i 
465 IFQ=14PRINT"12-14 

11- 4 '; 
470 IFQ-15PRINT"13-15 

15- 6 ■; 
475 FORZ-4T013 
480 IFB(Z)«1PRINT 
485 IFB(Z)-2PRINT 
490 IFB(Z)-3PRINT 
495 IFB(Z)-4PRINT" 3-10 
500 IFB(Z) -SPRINT" 4-11 
565 IFB(Z)-6PRINT" 6-15 
510 IFB(Z)«7PRINT"11-13 
515 IFB(Z)-8PRINT"12-14 
520 IFB(Z)»9PRINT*13-15 
525 IFB(Z)-10PRINT* 7- 9 
536 IFB(Z)-11PRINT" 8-10 
535 IFB(Z)-12PRINT" 4- 6 
546 IFB(Z)-13PRINT" 4-13 
545 IFB(Z)-14PRINT" 2- 9 
550 IFB(Z)»1SPRINT" 5-14 
555 IFB(Z)-16PRINT" 6-13 
560 IFB(Z)-17PRINT" 
565 IFB(Z)»18PRINT" 
576 IFB(Z)-19PRINT" 
575 IFB(Z)-20PRINT" 6- 
580 IFB(Z)«21PRINT" 7- 
585 IFB(Z)-22PRINT"10- 
590 IFB(Z)-23PRINT-11- 



1- 4 



2- 7 



3- 8 

5-12 

4- 1 
1 

2 
3 
4 



- 4 


11-13 


"jtLPRINT" 7- 


2 


13 


- 4 


- 6 


15-13 


"; :LPRINT"10- 


3 


13 


- 6 


-13 


10- 8 


"; :LPRINT"13- 


4 


15 


-13 


-14 


7- 9 


";:LPRINT"14- 


5 


12 


-14 


-13 


7- 9 


*j :LPRINT"13- 


6 


11 


-13 


- 4 


1- 6 


";:LPRINT* 2- 


7 


6 


- 4 


- 9 


3-10 


";:LPRINT")0- 


8 


2 


- 9 


- 7 


3- 8 


";:LPRINT" 7- 


9 


2 


- 7 


4- 6 


1- 4 "f.LPRINT" 3 


-IB 




4- 6 


4-13 


11- 4 ";:LPRINT"13 


-11 




4-13 


6-13 


15- 6 •|:LPRINT P 14 


-12 




6-13 


1- 4 


3- 


i "; iLPRINT" 4 


-13 




1- 4 


4-13 


11- 


";:LPRINT"12 


-14 




4-13 


6-13 


15- 


5 "i:LPRINT p 13 


-15 




6-13 




IFB(Z)» 


1LPRINT* 1- 4 


.. 






"; : 


IFB(Z)- 


2LPRINT" 1- 6 








" ! : 


IFB(Z)- 


ILPRINT* 2- 7 


• • 






" ; : 


IFB(Z)- 


ILPRINT" 3-10 


' i 






"; : 


IFB(Z)- 


5LPRINT" 4-11 


" ; 






" ; . 


IFB(Z)» 


iLPRINT" 6-15 


" ; 






" ; 


IFB(Z)- 


'LPRINT'11-13 


" ; 






" ; 


IFB(Z)- 


ILPRINT"12-14 










IFB(Z)- 


9LPRINT"13-15 


" ; 






" 


tIFB(Z) 


■=10LPRINT" 7- 9 


" ; 






"l 


:IFB(Z) 


■=11LPRINT" 8-16 


" ; 






" 


:IFB(Z) 


-12LPRINT" 4- 6 


" i 






" 


:IFB(Z| 


•13LPRINT" 4-13 








" 


sIFB(Z) 


-14LPRINT" 2- 9 


" , 






" 


:IFB(Z) 


-15LPRINT" 5-14 


" , 






" 


: IFB(Z) 


-16LPRINT" 6-13 


" 






" 


:IFB(Z) 


-17LPRINT" 3- 8 


" 






- 


-. IFB(Z) 


■U8LPRINT' 5-12 








" 


:IFB(Z) 


-19LPRINT" 4- 1 








" 


:IFB(Z) 


•20LPRINT* 6- 1 


" 






" 


:IFB(Z) 


-21LPRINT" 7- 2 


" 






" 


:IFB(Z) 


-22LPRINTM0- 3 


" 






" 


;IFB(Z) 


•23LPRINT"11- 4 


" 






" 


:IFB(Z) 


-24LPRINT"15- 6 


" 






" 


:IFB(Z) 


-25LPRINT"13-11 


" 






" 


sIFB(Z) 


-26LPRINT"14-12 


" 






■ 


:IFB(Z) 


-27LPRINT"1S-13 


" 








:IFB(Z] 


-28LPRINT* 9- 7 


" 






" 


:IFB(Z] 


=29LPRINT"10- 8 








* 


:IFB(Z] 


-36LPRINT" 6- 4 








" 


:IFB(Z) 


-31LPRINT"13- 4 


" 






■ 


:IFB(Z) 


-32LPRINT" 9- 2 








" 


:IFBIZ) 


-33LPRINT"14- 5 








■ 


:IFB(Z) 


-34LPRINT"13- 6 


" 






■ 


:IFB(Z) 


-35LPRINT" 8- 3 


■ 






" 


:IFB(Z) 


»36LPRINT*12- 5 


" 







595 IFB(Z)-24PRINT"15- 6 

660 IFB(Z)-25PRINT"13-11 

605 IFB(Z)-26PRINT"14-12 

610 IFB(Z)»27PRINT"1S-13 

615 IFB(Z)-28PRINT" 9- 7 

620 IFB(Z)»29PRINT"16- 8 

625 IFB(Z)»36PRINT" 6- 4 

636 IFB(Z)-31PRINT*13- 4 

635 IFB(Z)«32PRINT" 9- 2 

648 IFB(Z)-33PRINT"14- 5 

645 IFB(Z)-34PRINT"13- 6 

656 IFB(Z)-35PRINT" 8- 3 

655 IPB(Z)«36PRINT"12- 5 

668 NEXTZ 

665 SL-SL+1: PRINT" SOLUTION I " jSL: LPRINT" SOLUTION #">SL 

676 PRINTiLPRINT 

675 GOT0365 

680 END 



SPEAK 
-EAZY 

* 


HARDWARE 

The HUMAN QUALITY VOICE SYNTHESIZER for your 
MODEL I or III computer. The complete 297 word 
vocabulary la contained lo KOM. Ready to dm 
HARDWARE and SOFTWARE for OHLT $229.95 


SOFTWARE 

••- QUEEN'S FOOTBALL SCOUTING REPORT ••- 
HI, COACH: would you Ilk* to finish your scouting reports in 
1 hour and than relax? If so, we have the answer. 

A COMPLETE ANALYSIS OP OPPONENTS OFFENSE AND DEFENSE 
DOWNS by short, medium, and long yardage 
HASH MARKS FORMATION FIELD POSITIONS 
Each is analysed by number of times ouch hole una run; the 
play number used; was It a quarterback keep, an Option, a 
counter option series, a Wing back play, or fullback play. 
If n pass play, it gives sons - complete or incomplete. 

FLEXIBLE SYSTEM USE YOUR OWN NUHBERINC SYSTEM 

SCOOTS NEED TO ONLY IDENTIFY DOWN, HASH MARKS, YARD LINE, 
FORMATION, YARDS GAINED OR LOST, AND BALL HANDLER. 


DO-SO 
* 


A DOUBLE DENSITY adapter for the MODEL I that 
allowa you to write and raad twice aa much data 
on a dlak. Plugs into your EXPANSION INTERFACE 
and la compatible with all existing SINGLE or 
DOUBLE DENSITY software and hardware. $129.95 


TRANS 
• DATA 

* 


Now an inexpensive neans to TRARSMlT-RECEIVE 
data over the phone line* WITHOUT Expansion 
Interface, RS232, or software. DIRECT CONNECT 
to phone lines and your cassette port. $59.95 


WORKS EQUALLY WELL WITH PEE WEE, LITTLE LEAGUE, RICH SCHOOL, 

COLLEGE, OR PROFESSIONAL FOOTBALL TEAMS. 

FOR THE TRS80 MODEL I or III, or the COMMODORE PR 

Reeulrea dink drive printer Special - $149.95 


EAZY 
LOADER 


EAZY LOADER is a signal conditioner for your 
MODEL I TAPE SYSTEM that CORRECTS the volume 
aenaitlvlty problems associated with tape 
loading on the MODEL I. 

CAM BE USED EXTERNAL or INTERNAL 
$12.50 $24.95 


--AUTHORS - 

We also offer a minimal disk operating system for authors 
of programs for the TRS80 at n very affordable price. 

+ Add it tonal software for the SPEAK - EAZY VOICE SYNTHESIZER 

* Commodore Pet in n registered trademark for Commodore. 

** TRS80 la n registered trademark for Tandy Corp. I 


PROGRESSIVE ELECTRONICS 

Hours 643 E Chestnut St. 

[ 9-6 Uncticcr, Ohio, 43130 

Hon - Sat Phone 614-687-1019 ^ 2 77 



y See List ol Advertisers on page 418 
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The Alternate Source MONitor S 




BRAND NEW! 



Create your own adventures tM u, *J perform .«Kti H i.u 

those written t> 4 S«>tt Ada"" 1 *! T tie Adventure S^tem ,4 more than ,ust 
a program -- it's a unique experience in creativity! Included in | he /Adven- 
ture 3)4 s tem package ere: 

• /\n adventure ed'tor which allows you to aes gn. debug, -r^ad and »r te 
yOur own adventure creations' 

• An adventure driver for executing your adventure creations! 

• Two full length adventures: "Miner's Adventure" and "tjurglar's 
Adventure" 

% f\ 50+ page manual >n a handsome notebook, describing the adventure 
■anguage and how to use it; includes a free m^n, -adventure' 

% /\n nv tat'On to join the adventurer's user group which wl enttie you to 
free program updates, user tips, a special discount on adventures, a user 
newsletter, and special help getting the adventures you wr.te marketed 

The Adventure System actually utilizes a unique 
language that permits you to Input criteria for build- 
ing an adventure game to your specifications. You 
are limited only by your imagination!! Challenge, 
amaze and entertain your friends with your own ad- 
venture programs! Adventure characters can in- 
clude your family or friends: adventures can take 
Place at home. work, campus or your own city! 

I he /Adventure System sells for 

just $3Q05 

(-'lease specify rlodel | or j|| 

Regures I d~ve and 48 K RAM 



k For the cost of three adventures* 
I TftS lets you create dozens I! 
I In stock and ready to ship NOW. 

I T"n» A^mol. Source ( o... 



«?i*dij( occept ng tubKrHWH t<> t' .«■ "'oqai 

D"t tne^ aren't always g v n)<i«ai(|'W prooron-t tofutXl "-rw^ Just ' 

ondth*^ B-fo^M^h 3. : y8 ?eOC». person 5u in t -b- v/rene. ngfo 

7 1 * i( jf pero^ ts I AS ■**« «■"* w 11) t' i advent -.»"■€•■ I a rec« 
obv, nte H "ee a p-^3'o- .> e;< FLY* T Ov • • • J ;• 1 (-.j'.->~ t- 

fuflofbms 'i.^-o^ Swarmlne- 

t on I ! >„-. tc a^uw f . for . <,„--, on end FLY (•"■It"- >"•* J r i"< 

It A OvO lob'e on' 4 tkroug* tn,i and i.m 'Or adt*er\ se'T.'-ts. .iffer gooO jn 

M.^ v. 1982 T-nb«fowr.«-f«fTAS"-*i6oo. FLY 

fr~ You ■ I-Ot .-ttrtfaf ( 4... -r CC t' < W 




z 



OVerVieW: TASMON * <»n interactive Z 80 monitor a nj d,s- 
assembler, /a" versions come complete with tape ana disk I' \_/. and allow 
programs to be easily converted from one medium to the other. Source code 
generated by I /aoMCJIN can be loaded by a<\ popular editor/assembler 
programs. | AorlUlN features a command to fuliy relocate itself to 
any memory block you specify. 

PUTPOSe: The purpose of TASMON ■« t° allow stuaVaebuggmg. 
tracing and Single -stepping of z_-00 object Code, special care kas been 
taken to make the program easy to use by beginning / -OO programmers 
I /\ 3 M (J l\J «as developed OS a result of the author's dissatisfaction 
with the seven monitors he purchased. | Aj M ON has a 45+ page user 
manual documenting each of its features, ana includes special user sessions 
which document tne more complicated features 

"other excellent disassemblers are ... The Alternate Source's 
TASMON. which Provides symbols and disk files. (The TASMON 
package is a powerful monitor, one of the best I've seen.)" 

WHOam Garden. Jr. 



> 



Command Summary: 





l<epoce renter* 






|— j.a memory dump 

ASCII ~-on^ 
D'COCcemWed dump 
D-<o«emble to pr nt 


mp 




L'U'np screen to pr.r. 

Sv" "•■ v»'~C 


ter 




S"b»»wt he. ««iu« 
P«J 1-4 contecut .. 
Ovp r or * ,ar ^ 0"i * 


butt. 
tr«ct 




Dock up one mstrv< 

C^- «r„n 


On 




j^elc-cote- programs 
Mov. block of ~e~c 


"M 


Plus: 




• 
• 
• 
• 


rC«-p screen 

Opl.t screen d.splo,< 

Dock' r~orwond pog 
B~k -ffr ■ e.ec. 


ntlt 'in 
t .."S 



Load t^te*" tope 

Lo^/CMD^f. 

V— ^— *W s^ter tope 

VW-^/CMDMfJ 

^rt* s^ctem tope 

Wru/CMDAfJ. 

Dso««.-nkle to eU, 
D<o«' m ole to cope 
S-» breoKpontc m ROM 
St oreokpont, n RAM 
S»t br.okpO.ntc (0 tolol) 

Lyicpio^ or.okpo.ntc 
V^leor breokpointc 
S'"^ {t *Pf"°6 ( two *<"*) 

Trocm^ ot 3 «pe^C 



Disassembles with labels! 



TASMON I & 
TASMON I 
TASMON III 
$29.95 



D Rusk me a TAS I M 1 i 



The Alternate Source 

1 806 Ada Street 

Lansing. Michigan 48910 

5174873358 

517-485-0344 •m 



D R^h me a TAS III M! 

D Rush me a TASMON tape 

D Rusk me a TASMON lasn' 

□ Rusk m^ a TASMON III d sU 



Aod $200 '• - pOCM^'iJ O'irf pocto.jo 
Add $150 for CpD (kpmwill 

Ado a% • ,r ijr« card 3 rc*en 
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r ~MODEM80 

Communications Package 



AMMties: 

# gemote operation of a \ |^O""0 rlodel I or 1 1 1 from a terminal or a 
second \ l^o-OO through a telephone link -- filet mai^ be transferred 
with the unattended computer. 

• ^rror free file transfers with another | l^o-OO or a computer that 
can use tne protocol of tne C_»M' M program "rlodem" which is widely 
used on computer bulletin boards ^and available on d-"V| | user group 
disk number 25). 

9 i — 'le transfers with manif other tu,pes of computers with tne I I'Co-OO 
acting as a terminal. I he program is set up for use with | |icro| \tr I . 
tne source, j — orum OO's and similar systems, but tne communication 
parameters, character $et. and control characters maij be redefined to 
operate with mani^ otner computers. 

Advantages: 

9 \ — iles of unlimited length mau, be handled, even m a S^K, system. \(/ ith 
tne "XMODCM/CMD" f>U transfer utility files mau be trans- 
f erred witn a I OK, computer. 

9 r— iles maij be prepared off-line, taking advantage of i^our word proces- 
sing program, or tne included program "o/^vvtr' C_ll U) "■ onould 
a first attempt at transmission fail, u,our file is still safely on i^our disk O -1 
^j available for a second try,. 

S9 I ransmit and receive files mao, be opened before communication begins, 
and mau, be turned on and off independently. |n a specialised application, 
one file may be transmitted while a different file is simultaneously being 
■ received, Control codes may be used to allow tne remote computer to 

^ control tne file operations. 

^ 9 r\ smgle line may be sent from tne file, allowing sending from tne file to 

Sbe intermixed witn typing from tne keyboard, j his allows a more flexible 
_ response to prompts from tne remote computer, ana permits transmitting 

" data to a computer tnat cannot accept full speed transmission and does 

Snot use control codes to start and stop tne file transmission. 
„ 9 LX_)o commands and programs which execute m tne lower I OK. of 
I memory may be executed while maintaining positions in tne transmit and 

B receive files. I he previous screen contents are restored upon completion 

^ of tne |_j(_)o command. 

| MODEM 80 Is compatible with ALL Popular opera- 
J tk* systems including LOOS. Newdos/80(evenver- 
| sion2.0).DOSPLUS.TRSDOSandULTRAOOSe 






<2 MODEM 80 requires one disk drive and 3?« 

™ MC_)L/tM OO is supplied on diskette witn full-si?e punched manual 

| MODEM 60 costs ,ust ^3Q.Q5 



AT LAST H 

CONCINNATOR 

| ne wait is over. Pjodel 1 1 1 people!.' ^oncmnator opens tne door to machine 
language programming! C_ononnator i$ a paten to I'iadio ohack s Editor 
Assembler I? package -- patches it right up to work on Y \_/l_J I 's system! 
|\ot only that, but (_oncmnator makes numerous improvements to the pack- 
age, just look: 

Improvements: 

9 You can reserve memory for machine language programs ana dump the 
assembled code to this reserved area' K^eeps ^_,ononnator in memory, 
still mtact so that you can return to it later! 

9 (^,oncmnator allows you to execute the assembled code that you dumped 
into the reserved memory area'. I his means you can test your code and 
do your debugging, etc. without tons of tape \'\_) Vv hen, and only when 
your program is complete -- then you can save your source/ object code to 
tape! I oggle between assembled code and (^_oncmnator at will! 

9 vv hen it comes to tape l'v_y. C^,oncmnator provides you with all of the 
■deal options: it honors the break key so you can escape from unvaniea 
loads or saves; it features a verify option to ensure that your code was 
saved accurately; it also supports selectable baud rate (500 or 1500/ 

9 \_oncinnator is at your command -- ready at any time to convert, display 
and/or modify contents of memory locations! 

9 (^oncmnator keeps you informed of available memory by continually dis- 
playing the number of bytes remaining m the text buffer! 

9 Enter, at any time. BASlC's monitor mode (SYSTEM prompt) 
for jumps to any location m memory and/or to load O I O I CT I I tapes. 

9 tnter. at any time. H/X jlC's command mode (J^t/\LJ I prompt) 
to perform any neeaea calculator functions 

9 (^oncinnator even allows you to return to fully programmable fj/\z)- 
\\_. keeping (^oncmnator intact and waiting, and optionally, dumped 
machine programs and source code protected m high memory! 

Ttie PeSt neWS IS that C°ncmnator provides ALL of these opt-ons, 
and takes away less than 400 bytes from the original text buffer (when no 
memory ,s reserved)!! MClOded Wftll COndlMStOT * a program 
called 3 1j I Mt which allows you to combine tl_J I AjM <"» Con- 
cmnator into one o T j I tM tape at high speed, for easy use f) 11)11*0 
DOmiS PrOftram. CPYALL. allows you to read back object code 
produced by Concmnator. and resave it oti a continuous (rather than seg- 
mented) high speed tape! 

And ifs Just $19.95!! 

Condnnator requires Radio Snack's EDTASM 1.2 
(Concinnator does NOT support disk I/O. sorry) 



S 









□ Rusk me a Modem 80 | d.sk! 
P Rush me a Modem 80 III M! 

n l^ush me a C^oncmnator tape! 



The Alternate Source 

1 806 Ada Street 

Lanslne. MtoMean 48910 

517-487-3358 

517-485-0344 



r\aa >?00 poc\oa,<r\q and postaaf 

AJJ$i50 For COD €»*•"•»* 

Add 4% for ck>rg. <«>rd ord.^ 



1 Address- Add->?OOp«Ul.ng«ndpo.U»g. <' «n, « w» «. ««. ip. r-"»"»™- Ib( .'«r»"™«-r"'. £ 

L_ reK ' Add ^ISO for COD «h. pr r«r.ts. <| It « Ova.ldU. onk, through thit and cm.lor advert i5.mw.tc. offer good until 1 

^ ^ Add 4% for charge c„rd ord.r,. < \ f^rj, 31, 1003. T^l, fovr «^ of TAS -r. ^36 OO, FLY ■« 2 

bt " te ' Z ' P: J [ fr^. YWi tWat H~r«lf if ,0. ..„ th, <xw! | 




D^t tn«*j ortn't eVwaup g^ng ciwC"^ |"t^» p-rogr^rr< to<uO«Ct*"botx. ^Jutt now H 

arJ tUn. B*fo^« M*rck 31. IQ8? 0*K^ p^^on tublC^Lxr^Tvww.ng for a Z 

24 >sio* p*r*oa to I /\o. ^^ m»ntion'ng tn.* Otfv*Hi«emeot. will HOCO'v* ^ 

oUoLuIh fr«. a progr,,*, JU FLY. Yov -II f«J tU progr^ to P. | 

Uroll 4 fill Of bUtS ** containing no .rrors. SWatllllM -th «• g 

tioo. ,ft sum lo amww 40U for hour* on end. FLe t n ot for 50U an^«rt 

t •* «av0'wU* onf^ tnrov^n th,* ana S'm.Uir *Mv*rt'?«mentc, Off*** gooJ until 
Morch 31, 1967. T*W*| four «^ of TAS «r. $30 OO, FLY 1 
fnt. You'll aWat HOorself if i^u m.sj th.s nn.1 



• Sn Lilt of Advrti$9rt on pig* 4 18 
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TUTORIAL 



Learn to live with your pocket computer in calculating harmony. 



Pocket Full of Chips 



David M. Dolan 

Box 632 

South Pasadena, CA 91030 



At the very least, the TRS-80 
Pocket Computer is a com- 
puter gadgeteer's dream-come- 
true, but the following four pro- 
grams should give you an idea 
of the PC's potential. 

A Few Hints Will Help 

It doesn't take a mental giant 
to realize that the best way to 
get accustomed to a new piece 
of hardware is to read the 
manual. But after breaking in 
three different computers my- 
self, I can tell you that that usu- 
ally isn't enough. Either be- 
cause of a lack of emphasis on 
some points in the manual, or 
outright omission of others, 
you ultimately have to learn the 
hard way, by keying in a few 
programs. Below, I offer the 
fruits of my toil, hoping that it 
saves you a little aggravation. 
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First, beware of the PC's 26 
character screen print limita- 
tion. You'll need to plan your 
presentation, using only 26 
characters. This gets especial- 
ly dicey when numbers run to 
six figures or more; further- 
more, you have to account for 
the sign when printing. That 
means that the number 3457.34 
must be formatted using #####. 
##; using ####.## will cause an 
error (some Basics would allow 
this as long as the number is 
positive). 

Incidentally, you cannot as- 
sign a string variable to a par- 
ticular format when printing. 
The following line would cause 
an error. 



10 F$»"####f.M":A. 

USING FS;A 



3457.34:PRINT 



The way you get around this is 
to assign the selected format 
first: 



10 USING •'»####.##' - :A . 
A 



3457.34:PRINT 



printed variables, until another 
is assigned or until formatting 
is turned off by issuing USING 
without a format string. 

You can't turn off a selected 
format by breaking into the pro- 
gram and rerunning it. I learned 
that the hard way! 

Maybe you feel limited by 
being able to print only 24 char- 
acters; well, if you use a prompt 
string in an input statement, 
you can print only 23 char- 
acters! However, if you precede 
the input variable with a com- 



ma, the prompt string will blank 
out when you respond. 

If you use a semi-colon, the 
prompt string remains (as is 
usual in most other Basics). I 
find the comma more useful, 
since you rarely have room for 
both the prompt string and the 
response in 23 characters. 

You cannot manipulate 
strings on the PC, but the 
manual does not mention that. 
Except for the equal sign, there 
are no string relational opera- 
tions. Thus, the following state- 



This format will be used on al 



Ready 

>RUN 

METRIC-AMERICAN CONVERSIONS 

VALUE FOR CONVERSION:? 3^72.12 

ABBREVIATED UNIT:? IN 

8819.20 CM 
VALUE FOR CONVERSION:? 478.25 
ABBREVIATED UNIT:? KG 

105^.36 LB 
VALUE FOR CONVERSION:? 98.6 
ABBREVIATED UNIT:? F 

37.00 C 
METRIC-AMERICAN CONVERSIONS 
VALUE FOR CONVERSION:? 

Sample Run 1. Metric/English Conversion 



ment causes an error. 

10 IF A$O"N0" GOTO 30 

Remember that strings are 
limited to a maximum of seven 
characters. String concatena- 
tion using the plus ( + ) sign is 
not allowed, but you can com- 
bine printed strings by separ- 
ating them with semicolons: 

10 A$ = "CONCATE":B$ = "NATION" 
20 PRINT A$;B$ 

Running the above, prints CON- 
CATENATION. 

When you print more than 
one variable in a row, all vari- 
ables except the first must be 
presented alone. The line 

10 A = 34.34:PRINT A*3; A*5 

causes an error and must be 
written as follows: 

10 A - 34.34:B = A*5:PRINT A*3; B 

When you use a For, the 
number following To is limited 
to a maximum of three digits. 
You can't say 

10 FOR N = 1 TO 1000 

Generally, beware of hang- 
ups! Occasionally, for no rea- 
son that I can find, the PC simp- 
ly stops. It doesn't respond to 
any keys including on and off. 
The only recourse is to reset the 
computer (Reset is on the back 
of the PC). Doing so destroys 
your program, so, if you own a 
cassette interface, back up 
your program periodically. 



10 PAUSE"C0NVERT METRICOENGLISH" 
20 INPl)T"VALUE FOR CONVERSION: ", A 
30 INPUT"ABBREVIATED UNIT:",B$ 
140 IFB$="IN"LETC=2.5 40005:D$="CH":GOTO30O 
50 IFB$="FT"LETC=. 3016006 :D$="M":G0TC3 CO 
55 IFB$ = n YD ,, LETC=.91110l8:D$ = "K" :GOT03 00 
60 IFB$="MI"LETC=1 .60913 19 : D$="KM" :GOT0-CP 
70 IFB$="IN2"LETC=6.151626:D$="CM2" :GOT0300 
80 IFB$="FT2"LETC=. 0929031 :DS="K2":GOTC300 
85 IFB$="YD2"LETC=. 8361 306 :D$="M2":GOT0300 
90 IFB$="MI2"LETC=2.5899985:D$="KK?" :GOT0300 
100 IFB$="IN3"LETC=16.387156:DS="CM3":GOT0-C0 
110 IFB$="FT3"LETC=.028317:D$="M3":GOTO300 
1 15 IFB$="YD3"LETC=.761559:D$="M3":GOTO300 
120 IFB$ = "GAL"LETC = 3.7853 32:D$ = "L»':G0TC300 
130 IFB$="0Z"LETC=28.3195?7:D$="GM":G07C3 00 
110 IFB$= n LB"LETC=. 1 535921 :D$= "KG ":G0T03C0 
160 IFB$:"CM l, LETCr2.510O05:D$ = "ir":GOTO310 
170 IFB$= M M"LETC=.9111018:D$="YD":GOT0310 
180 IFB$="KM"LETC=1 .60913 19 : D$="MI" :G0T03 1 
190 IFB$ = "CM2"LETC = 6.15l626:D$ = "IfJ?":G0T0310 
200 IFB$="K2"LETC=.8361306:D$="YD2":GOT0310 
210 IFB$="KM2 n LETC=2.5899985:D$ = "H?:2":GOTO310 
220 IFB$="CM3"LETC=16.387156:D$="IN3":COTO310 
230 IFB$="M3"LETC=.761559:D$="YD3":GOTO310 
210 IFB$="L"LETC=3.785332:D$= n GAL":G0T0310 
250 IFB$r n GM"LETC=28.319527:D$="OZ":GOT0310 
260 IFB$="KG n LETC=.1 535921 :D$= "LB" :G0T03 10 
265 USING"####.# n 

270 IFB$="F"LETC=(A-32)«5/9:PRINTA;B$; 
275 IFB$= B C"LETC=(A»9/5)+32:PRINTA;B$; 
280 PRINT"WR0NG ABBREVIATION! " :G0T020 
300 USING"#####.»*":C=A«C 
305 PRINTA;B$;"=";C;D$:G0T020 
310 USING"#*#*iJ.##":C=A/C 
320 PRINTA;B$;"=";C;D$:G0T020 



Program Listing 1. Metric/English Conversion 






:COTO20 
:GOT020 



The PC is also very slow. The 
following loop takes about 25 
seconds. 

10FORA=1 TO 100 
20 NEXT A 

Things move a little faster if 
you use variables, including or 
following W. Thus, substituting 
Z for A in the above program 
reduces the running time to 20 
seconds. 

Things deteriorate as you 
add lines between For and 
Next. For example, this pro- 



gram takes 35 seconds. 

10 FOR A = 1 TO 100 
20X = X + 1 
30 NEXT A 

Finally, be aware that the 
backspace key does not delete 



characters from the keyboard 
buffer. Used correctly you'll 
find that this is usually an ad- 
vantage, but it does mean that 
you must copy over or delete 
any entered characters, if you 
don't want them. 



Ready 








>RUN 








DEPRECIATION ANALYSIS 




ORIGINAL COST OF 


ITEM:? 5735 


ITEM 


JSEFUL LIFE 


(YRS):? 


5 


VAL. 


lFTER USEFUL 


LIFE:? 


500 


(S)LINE (Y)SDIG (D)DBL:? 


D 


PRINT 


(ONE (A)LL 


YEARS:? A 


YR 1 


DP 2294 BL 


3411 




TOTAL 


DEP: 2294 






YR 2 


DP 1376.4 


BL 2064 


6 


TOTAL 


DEP: 3670.' 






YR 3 


DP 825.84 


BL 1238 


76 


TOTAL 


DEP: 4196.24 




YR 1 


DP 495.504 


BL 743 


.256 


TOTAL 


DEP: 4991.74 




YR 5 


DP 243.256 


BL 500 




TOTAL 


DEP: 5235 






ORIGINAL COST OF 


ITEM:? 




Sample Run 2. Depreciation Analysis 



10 PAUSE"DEPRECIATI0H ANALYSIS" 

20 INPUT"0RIGINAL COST OF ITEM: ", C: C=INTC 

30 INPUT"ITEM USEFUL LIFE ( YRS) : " , Y: Y=INTY 

40 INPUT"VAL. AFTER USEFUL LIFE: " , V: V=INTV 

50 D=0:F=0:T=0:Z=0:B=C:FORI=1TOY:T=T+I:NEXTI 

60 P=(1/Y)*2:P=INT(P«100+.5)/100 

70 INPUT"(S)LINE (Y)SDIG (D)DBL: n ,Q$ 

80 INPUT"PRINT (0)NE (A)LL YRS:",A$ 

90 IFA$="A"LETMrY:GOT0110 

100 INPUT"PRINT YEAR:",M:IFM>YGOT0100 

110 F0RI=1T0M 

120 GOSUBQ$ 

130 Z:Z+D:IFA$= B A"G0T0150 

110 IFIOMG0T0170 

150 PAUSE"YEAR:";USING"###":I 

160 USING"####ff .##":PRINT"DP";D; n BL";B 

165 PAUSE"TOTAL DEP:";Z 

170 NEXTI:G0T020 

200 "S":D=(C-V)/Y:D=INT(D«100*.5)/100 

210 B=B-D:IFB-V<.05LETB=V 

220 RETURN 

300 "Y":R=(Y-I+1)/T:R=INT(R*100+.5)/100:D=R«(C-V) 

310 IFB-D<VLETD=B-V 

320 B=B-D:RETURN 

100 "D":IFF=1G0T0440 

410 IFB<=VLETD=0:BsV:GOT0450 

420 D=B»P:S=(B-V)/(Y-I+1) : IFD<SLETD=S: F=1 :GOT0410 

430 IFB-D<VLETD=B-V 

440 B=B-D 

450 RETURN 

Program Listing 2. Depreciation Analysis 
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The Program* 

This is probably not the first 
time you have seen programs 
about metric/English conver- 
sion, depreciation analysis, loan 
payment/interest, and invest- 
ment calculations, but likely 
each was presented as one arti- 
cle. Well, each program here 
provides the same information 
on the PC. 

I printed the samples from 
duplicate programs running on 
a TP.S-80 Model II, since, as of 
this writing, no printers are 
available for the PC. (I have 
tried to make the printouts as 
identical as possible to what 
you can expect to find on the 
PC.) 

Listing 1, the Metric/English 
Conversion program takes the 
most common English units of 
measure and converts them to 
the metric equivalent and vice- 
versa. You are first asked to 
enter the number and then an 
abbreviation for the unit of 
measure. The abbreviations are 
self-explanatory. IN2 and IN3 
refer to square inches and 
cubic inches; Ml means miles; 
F is Fahrenheit; C is Celsius/ 
Centigrade (Sample Run 1). 

Listing 2, the Depreciation 
Analysis program calculates de- 
preciation figures using the 
straight-line, sum of year's dig- 



it) PAUSE-LOAN PAYMENT/INTEREST" 

20 INPUT"AMOUNT OF LOAN: " , A, "INTEREST RATE: ", R, "NUMBER OF MONTHS: ";M 

30 INPUT"CALCULATE PAYMENT ( Y/N) " , Q$ : M=INTM: A= INTA 

40 PRINT USING"#####I#";A;"/";USING"####";M;" M0S/";R;"S" 

50 IFQ$="N"INPUT"ENTER MONTHLY PAYMENT:", P 

60 R=R/1200 

70 IFQS="N"G0T0100 

80 C = ( WR) A M:P=A»((R»C)/(C-1)) 

90 P=INT(P*100*.5)/100 

100 PRINT-PAY MONTHLY:";USING"######.##";P 

110 INPUT"(A)LL (ONE (N)0 MONTHS", Q% 

120 IFQ$="0"INPUT"WHICH MONTH:", W 

130 Z=0:T=Z:J=Z:DrZ:S=Z:B=A 

140 F0RK=1T0M 

150 I=B»R:I=(I«100+.5)/100 

160 IFK=MLETP=B+1 

170 S=S*P:N=P-I:B=B-N: J=J*I:D=D+N 

180 IFQ$="N"GOT0230 

190 IFQ$="A"GOT0210 

200 IFKOWGOT0230 

210 PRINT"MO.";USING"####";K;" BAL. " ;USING"###*###. ##" ;B 

220 PRINT"PR";USING"#####I.##";N;" TD" ;USING n ####### . ##" ; D 

225 PRINT"INT";USING n ######.##";I;" TD" ;USING"###### . ##" ; J 

230 NEXTK 

240 PRINT"FINAL PAYMENT: " ;USING"f ##### .##"; P 

250 PRINT"T0TAL PAID: " ;USING"f ######.##" ;S 

260 GOT020 

Program Listing 3. Loan Payment/Interest 



its and double declining meth- 
ods. First, enter the item's orig- 
inal cost, useful life in years and 
salvage value. Then choose the 
depreciation figure desired: S = 
straight line, Y = sum of year's 
digits, D = double declining. 

The depreciation (DP) and 
balance (BL) amounts, plus ac- 
cumulated total depreciation 
may be shown for one year 
alone or for each year in se- 
quence. If you want only one 
year, the program asks which 



year (ie. Print Year:) (Sample 
Run 2). 

Listing 3, the Loan Payment/ 
Interest program amortizes 
loans by the month. The Sample 
Run shows the figures for the 
first few months of a 36-month 
$7500 loan. 

The program can calculate 
equal regular payments or you 
can designate a payment (ie. 
Pay Monthly:) in which case a 



final balloon payment may 
result. 

The amounts produced are 
the month (Mo.), balance 
remaining (Bal.), principal 
reduction (PR), total principal 
reduction to date (TD), interest 
paid (INT) and interest paid to 
date (TD). You can show the 
figures for all months (A), one 
month (O), or no months (N). If 
you select the latter, then only 



Ready 

>RUN 

LOAN PAYMENT/INTEREST 

AMOUNT OF LOAN? 7500 

INTEREST RATE? 15.5 

NUMBER OF MONTHS? 36 

CALCULATE PAYMENT (Y/N)? Y 

7500 FOR 36 MOUTHS AT 15.5 t 
PAY MONTHLY: 261.84 
(A)LL (ONE (N)0 MONTHS? A 
MO. 1 BAL. 7335.04 



PR 164 


96 


TD 164.96 


INT 96 


88 


TD 96.88 


M0. 2 


BAL 


7167.95 


PR 167 


.09 


TD 332.05 


INT 94 


.75 


TD 191 .63 


MO. 3 


BAL 


6998.7 


PR 169 


.25 


TD 501 .3 


INT 92 


.59 


TD 284.22 


MO. 4 


BAL 


. 6827.26 


PR 171 


.44 


TD 672.74 


INT 90 


.4 


"D 374.62 


M0. 5 


BAL 


. 6653.61 


PR 173 


.65 


TD 846.39 


INT 88 


.19 


TD 462.81 


M0. 6 

*C 

Break 


BAL 


. 6477.72 


in 180 


Ready 






>L 







Sample Run 3. Loan Payment/Interest 



Ready 

>RUN 

INVESTMENT CALCULATIONS 

(ONE DEPOSIT ACCRUEMENT 
(R)EG DEPOSIT ACCRUEMENT 
(D)EPOSIT T0= REQ. AMOUNT 
? R 

REGULAR DEPOSIT AMOUNT:? 50 
INTEREST RATE (t) :? 14.5 
NUMBER OF MONTHS:? 36 
NUMBER OF DEPOSITS/ YR: ? 6 
0RIG. INVEST: $ 900.00 
ACCRUED INT: $ 21 1 .02 
TOTAL VALUE: $ 1111 .02 

(0)NE DEPOSIT ACCRUEMENT 
(R)EG DEPOSIT ACCRUEMENT 
(D)EPOSIT T0= RE0. AMOUNT 
? D 

REQUIRED FINAL AMOUNT:? 10000 
INTEREST RATE (*) :? 15.37 
NUMBER OF MONTHS:? 240 
NUMBER OF DEPOSITS/ YR : ? « 
REG. DEPOSIT: $ 19.79 
0RIG. INVEST: $ 1583.20 
ACCRUED INT: $ 8416.80 
TOTAL VALUE: $ 10000.00 

(0)NE DEPOSIT ACCRUEMENT 
(R)EG DEPOSIT ACCRUEMENT 
(D)EPOSIT T0= REQ. AMOUNT 



Sample Run 4. Investment Calculations 



Of\ kMir>rr%f*r\n\t 



i/i Daromhar 1QB1 





MONEY 
MANAGER 

By Andrew P. Bartorillo 

A complete management tool for the home budget, this useful program helps keep track of your in- 
come and expenditures and provides an easy method of budget allocation. 

MONEY MANAGER answers the question, "Where does it all go?" by categorizing the outgo of your 
money in accounts that you design according to your needs. It provides a means of keeping complete 
and accurate records, including an itemization of your tax-deductible expenditures— you can imagine 
the time savings at tax time alone! 

You can store information on up to 100 checkbook entries per month (250 with 48K), specify any 
automatic withdrawals (such as automatic mortgage payments), keep a separate list of tax- 
deductibles, and record expenses by category. Checks payable to charge card companies and other 
lump payments may even be broken up to be placed into the proper individual categories. If you have 
a lineprinter, MONEY MANAGER will provide formatted printouts by category and time period. 

MONEY MANAGER requires a TRS-80* model I or III with a minimum of 32K and one disk drive. Order 
this time and money saver now for only $39.95. 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 



LOST COLONY 




EVEREST 
EXPLORER^^ 



ASTROBALL 




By David Feitelberg 

It's the world's first deep space col- 
ony and you are the economic 
manager. A remarkable simulation, 
LOST COLONY arms you with 
maps and charts as tools for 
resource management. You assign 
human and robotic labor, explore 
new land, and set production 
quotas. At the same time you must 
determine equitable pay scales and 
taxes. 

Communicate through your model I 
or III using full sentences or short 
commands. A challenging game, it 
might give you insight into real life 
management as well. Available on 
16K tape or 32K disk for only $19.95 
each. 



I ■■- > 1^ 
By William Godwin & 
Don Knowlton 

EVEREST EXPLORER lets you 
challenge the world's highest 
mourtain without ever leaving 
home. You make all the decisions 
in this logistical simulation. 

You select the manpower, food, 
fuel, shelter and oxygen you need. 
Then manipulate your resources to 
outwit the elements and terrain, 
establishing ever higher encamp- 
ments. Will you reach Everest's 
29,028 foot summit— and return to 
tell about it? Just $19.95 for model I 
or III. Order on 16K tape, or the 32K 
disk version which includes a "save 
game" feature and other 
enhancements. 




By John Allen 

More features, thrills, and sound 
than even our famous PINBALL. 
With ASTROBALL in yourTRS-80* 
model I or III the arrow keys 
become flipper buttons, the screen 
becomes the play board, and you 
become the "Pinbail Wizard!" 

A flying saucer and moving space- 
ships add to the fun. Knocking out 
five meteors earns you an extra 
ball, while black holes swallow the 
ball m play. ASTROBALL's five skill 
levels will have all your family and 
friends lining up for the pinbail ac- 
tion. Available on 16K tape or disk 
for just $19.95 each. 




(202) 544-4259 



Acorn 

Software Products, Inc 



634 North Carolina Avenue. S E . Washington, D C 20003 



•Trademark ol Tandy Corp 

ALL ACORN ENTERTAINMENT 

SOFTWARE SUPPLIED FOR 

TRS-80* MODELS I & /// 

MAIL ORDERS: Include $2 00 shipping & handling 
(DC. residents add 6% sales tax). 
CHARGE CARD CUSTOMERS: Call (202) 544-4259 
for fastest service. 



*-See L isl ol Advertisers on page 41 8 
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the final payment and total 
amount paid will be printed. 
The PC may not be very prac- 
tical for a long loan, because of 
its slow calculating time (Sam- 
ple Run 3). 

Listing 4, the Investment Cal- 
culations program calculates 
the results of simple invest- 
ments such as bank deposits. 
Sample Run 4 shows examples 
of two of the three selections 
possible. 

The three choices, one depos- 
it accruement, regular deposit 
accruement and deposit neces- 
sary to produce a required 
amount are presented in print 
statements in lines 20 to 40. As 
with other print statements on 
the PC, you must press enter to 
continue after each line is 
displayed. 

Once you are familiar with 
the choices you may want to 
change the Print in lines 20 to 
40 to Pause, so that the choices 
are displayed briefly before the 
input statement. 

One Deposit Accruement (O) 
calculates the original invest- 
ment, accrued interest and 



total value for a one-time de- 
posit. You will have to enter the 
number of compounding per- 
iods per year. 

"Reg. Deposit Accruement" (R) 
determines the results of mak- 



ing regular deposits a selected 
number of times per year over a 
given number of months. 

"Deposit To = Req. Amount" 
finds the amount you must de- 
posit a selected number of 



times per year to reach a do- 
Sired total after a certain num- 
ber of months. An example 
might be a college fund that 
must reach $10,000 by a child's 
20th birthday (Sample Run 4).B 



10 PAUSE"INVESTMENT CALCULATIONS" :USING"#######. it" 

20 PRINT n (0)NE DEPOSIT ACCRUEMENT" 

30 PRINT"(R)EG DEPOSIT ACCRUEMENT" 

40 PRINT"(D)EPOSIT T0= REQ. AMOUNT" 

50 INPUTQ$:IFQ$s"T"GOT020 

60 G0SUBQ$:COT020 

100 "0":INPUT"SINGLE DEPOS/INVEST: " , A:G0SL'BU00 

110 INPUT"COMPOUNDING PERIODS/YR: " , F 

120 T=A«(W(R/100/F))*(F»M/12):GOSUB«50:I = T-A 

130 G0SUB500:RETURN 

200 "R":INPUT"REGULAR DEPOSIT AMOUNT: ", A iGOSUBMOO 

210 INPUT"NUMBER OF DEPOSITS/YR: " , F 

220 T=A«(( U( R/100/F) ) "( F«M/ 1 2)-1 ) /( R/ 1 00/F) :G0SUB«50 : A= A»( M/ 1 2) »F: IsT-A 

230 GOSUB500:RETURN 

300 "D":INPUT"REQUIRED FINAL AMOUNT: ", D:G0SUB«00 

310 INPUT"NUMBER OF DEPOSITS/ YR :", F 

320 T=D»( R/1 00/F) /( (U( R/1 00/F) ) "( F«M/ 1 2) -1 ) :GOSUB150 

330 A=T«(K/12)»F:I=D-A 

340 PRINT"REG. DEPOSIT: $";T:T=D 

350 GOSUB500: RETURN 

U00 INPUT"INTEREST RATE (i):";R 

410 INPUT"NUMBER OF M0NTHS:";M 

420 RETURN 

450 T=INT(T»100+.5)/100:RETURN 

500 PRINT"0RIG. INVEST: $";A 

510 PRINT"ACCRUED INT: $";I 

520 PRINT"T0TAL VALUE: $";T 

530 RETURN 

Program Listing 4. Investment Calculations 




Forbidden Planet 

Thm Flrnt Talking Adventure 

This adventure tails through the cassette port 
You io longer Med to have a voice synthesizer 
This adventure takes you to a desolate planet 
where only your skill and your talking computer 
. will help yoi survive. This Is Part 1 of a multi- 
part talking adventure Like no other adventure 
you haet ever played. The first five people to solve 
Forbidden Planet will get the neit adventure FREE 

* Solit Screen 

* Mackine linqudQe 
Musette Port 

lower Cue 
lets 
Willim Denas 
"5w« Adinu Jtonlvre #12' 






tan- Disk Model l & III 

'Dealers inquiries invited 

1457 F0NM 80 702-562 3609 

Fantastic Software 
SH S110 Polaris #3 ^ 

^ las Vegas, Nevada 89102 r 
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TRS-80, APPLE, 

COLLEGE BOARD SAT PREPARATION SERIES ^Srt^T' 

Each program confronts the user with a virtually limitless series of questions and answers. Each is based on past exams and present*; 
material of the same level of difficulty and in the same form used in the S.A.T. Scoring is provided in accordance with the formula used 
by College Boards. 

S.A.T., P.S.A.T., N.M.S.Q.T. — Educator Edition set includes 25 programs covering Vocabulary, Word Relationships, Reading Com- 
prehension. Sentence Completion, and Mathematics. Price $229.95 

Independent Tests of S.A.T. series performance show a mean total increase of 70 points in students' scores. 

G.R.E. Series - Educator Edition includes 28 programs covering Vocabulary, Word Relationships, Reading Comprehension, 
Sentence Completion, Mathematics. Analytical Reasoning and Logical Diagrams. Price $289.95 

COMPETENCY EXAM PREPARATION SERIES 

This comprehensive set of programs consists of simulated exam modules, a thorough diagnostic package, and a complete set of 
instructional programs. It is designed to teach concepts and operations, provide drill and practice and assess achievement levels 
through pre and post testing. The Competency Exam Preparation Series provides a structured, sequential, curriculum encompassing 
mathematical, reading and writing instruction. 

This program is designed for individual student use or use in a classroom setting. Programs provide optional printer capability covering 
worksheet generation and performance monitoring. C.E.P.S. are available in three software formats. 

National Proficiency Series $1 .299.00 

N.Y.S. Regents Competency Test, Preparation Series $1 ,299.00 

California Proficiency Assessment Test, Preparation Series $1,299.00 

If desired separate Mathematics and Verbal packages are available for $799.00 ea. A Spanish language version of the Mathematics 
Instruction Package is available at no extra charge. 



INQUIRE FOR UNIQUE M.I.T. APPLE 
LOCO APPLICATIONS SOFTWARE 



Time Traveler 

The best of the adventure games Confronts 
the player with complex decision situations 
and the demand for real time action Using 
the Time Machine, players face a challenging 
series of historical environments. To succeed 
you must build alliances and struggle with the 
ruling power Each game is unique. 

$24.95 

Odyssey In Time 

This spectacular adventure game adds a new 
dimension of excitement and complexity to 
Time Traveler 

Odyssey In Time includes all the challenges 
of Time Traveler plus 10 additional eras. 
Each game is different and may be interrupted 
and saved at any point for later play. 

$39.95 





Sword of Zedek 

Fight to overthrow Ra. The Master of Evil. 
Treachery, deceit and witchcraft must be faced 
in your struggles as you encounter wolves, 
dwarves, elves, dragons, etc Each of the 
twelve treasures win enhance your power by 
making you invisible, invulnerable, etc Each 
game is unique in this spectacular and com- 
plex world of fantasy. 

$24.95 



NEW 

MICRO-DEUTSCH 

Micro-Deutsch set includes 24 grammar les- 
sons, covering all material of an introductory 
German course. Four test units also included. 
Grammar lessons use substitution transformation 
drills, item ordering, translations and verb drills. 
Drill vocabulary based on frequency lists. Suit- 
able for use with any high school or college text- 
book. Extensively field tested at SUNY Stony 
Brook. Available for Apple II and PET/CBM (PET version 
includes a special foreign language character chip ) Also 
available soon: MICRO-FRANCAIS. MICR0-ESPAN0L. 
MICRO-IVRIT, MICRO-YIDDISH MICRO-CHINESE, MlCRO- 
JAPANESE. $179.95 

ft NEW ft 

ft Pythagoras and The Dragon ft 

Mathematics in a fantasy game context. Based 
on The Sword of Zedek, Pythagoras and The 
Dragon introduces Pythagoras as a mentor to 
the player. When called on for aid, Pythagoras 
poses math questions, and depending on the 
speed and accuracy of the player response, con- 
fers secret information. With Pythagoras as an 
ally, the quest to overthrow Ra, The Master of 
Evil, assumes a new dimension of complexity. 
Depending on the level chosen, problems range 
from arithmetic through plane geometry. 

32K $39.95 



^375 



: PROGRAMS AVAILABLE FOR 
| TRS-80, APPLE II, PET & ATARI 

Disk or cassette, please specify. N.Y.S. residents add sales tax. 

All programs require 1 6K • TRS-SO programs require I FIFl II BASIC » 4PPIE programs require Applesoft BASIL 

.-See List ol Advertisers on page 4 18 



Krell Software Corp. 

21 Millbrook Drive, Stony Brook, NY 1 1790 

(516) 751-5139 
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UTILITY 



A machine-language screen dump routine for the Model II. 



II the Dump 



Richard L Faber 
Mathematics Department 
Boston College 
Chestnut Hill, MA 02167 



This article describes a 
TRS-80 Model II machine 
language subroutine for print- 
ing all or part of the CRT 
screen. The TRSDOS calls 
VDREAD and PRUNE are used, 
but since PRLINE will not print 
reverse video characters, these 
characters must be converted 



to their white on black counter- 
parts after being read from the 
screen and before being 
printed. 

The subroutine, which I call 
Screen (see Program Listing 1), 
can be entered with an editor/- 
assembler package, or using 
the TRSDOS Debug program. 
After entering the machine 
language code with Debug, 
type: DUMP SCREEN START = 
F000,END = F033, RORT = R. 
Your Basic program, which 
calls Screen, must include a 
line such as 10 SYSTEM 









SCREEN 




fbbb 


5t 


IB 


LD E. (HL I 


INO. OF LINES «> C 


FMl 


lt'j0 


20 


ID P.5BH 


SDECIMAL SB -> D 


FM3 


2135FB 


30 


LD HL.FB35 


1 START OF BUFFER ADDR 


FB06 


AF 


40 


XOR A 


1 CLEAR A 


FBB7 


323*FB 


50 


LD <FB34I,A 


1 CLEAR ROW COUNTER 


FBOA 


47 


(.0 


LD BiA 


IRON NO. -> B 


Feee 


BEBC 


70 


LD C.B 


ICOL. NO. ■ -> C 


FB0D 


3EB8 


80 


LD A. 1 1 


1 VDREAD • SVC 1 1 


fbbf 


CF 


90 


RST 8 


(READ ROW FROfl SCREEN 


FBI D 


Bfree 


100 


LD B.B 


'.CLEAR CHARACTER COUNT 


FB12 


BEAB 


1 10 


LD CASH 


•ASCII FOR 1ST REV.V1D. 


FB14 


7E 


120 


LD A. 1HL) 


1GET NEXT CHAR FROM BUFFR 


FtlS 


89 


110 


CP C 


IIS IT REVERSE VIDEO' 


FBI6 


38B3 


140 


JR CiFBIB 


! IF NOT SKIP AHEAD 


FB18 


EEBB 


150 


XOR 88H 


l IF IT ISi CLEAR BIT 7 


F81A 


77 


160 


LD (HL).A 


lAND STORE IN BUFFER 


FB1B 


23 


170 


INC HL 


■PREPARE FOR NEXT CHAR. 


FB1C 


04 


1P0 


INC P 




FB1D 


7B 


190 


LD Ait 


; COLUMN NO. OF NEXT CHAR 


FB1E 


BA 


100 


CP D 


:ARE WE DONE PROCESS INC? 


FB1F 


2BF3 


2 IB 


JR NZ.FB14 


IIF NOT, REPEAT 


FB21 


2I35FB 


220 


LD HL.FB35 


1START OF BUFFR ADDR 


FB24 


BEBD 


230 


LD C.BDH 


1 ASCI I <CR> -» C 


FB26 


3E13 


240 


LD A. 19 


1 PRLINE IS SVC 19 


FB28 


CF 


25B 


RST 8 


:PRINT A LINE 


fb:-9 


3A34F0 


260 


LD A. (F034 1 


IROW COUNT -> A 


FB2C 


3C 


270 


INC A 


1 INCREMENT 


fb:d 


3234FB 


260 


ID (FB34 1.A 


!AND STORE ROW COUNT 


FB38 


88 


290 


CP E 


:TEST IF LAST ROW 


FB31 


2BD7 


300 


JR NZ.F00A 


••IF NOT, REPEAT 


FB33 


c* 


310 


RET 


1ELSE BACK TO BASIC 






Program Listing 


7. 



3 'PROGRAM TO TEST MACHINE ROUTINE 


•SCREEN 1 


5 CLEAR 100,&HEFFF:DEFINT A-Z 




10 SYSTEM "SCREEN" : DEFUSR1 --&HF000 




20 INPUT "NO. OF LINES" ;L 




:<0 X=USR1 (L) 




40 END 




Program Listing 2. 





"SCREEN":DEFUSR1 = &HF000 
prior to the appearance of the 
function call USR1. (Be sure 
to protect the memory above 
EFFFH from being used by 
Basic.) The top L lines of the 
screen (lines through L-1) can 
then be printed by executing a 
statement in the form X = USR1 
(L%). (L must be an integer 
variable in the range 1 < L < 24. 
Upon return from the subrou- 
tine, X is set equal to L Program 
Listing 2 is a Basic program you 
can use to test Screen. 

Screen uses memory loca- 
tion F034H as a counter for the 
number of rows printed, as well 
as an 80 byte buffer in RAM 
starting at F035H. When the 
subroutine is called, control is 
transferred to F000H. When the 
number of lines (L%) to be 
printed is stored in the E 
register, the next seven lines 
initialize the row counter to 
zero (no lines printed yet) and 
set up the entry conditions for 
VDLINE: buffer start address in 
HL, number of characters to be 
read in D, row and column of 
starting screen location in B 
and C. Line 90 reads a line from 
the screen into the buffer. 

Graphics and Reverse Video 
Characters 

Now the screen lines we wish 
to print may contain both 
graphics and reverse video 
characters. Most printers can't 
handle the graphics and will 
print blanks instead. Reverse 
video characters are repre- 
sented in ASCII code exactly as 
their normal counterparts, ex- 



cept that the highest order bit 
(bit 7) is a one instead of a zero. 
It turns out that the displayable 
reverse video characters are 
precisely those displayable 
characters whose ASCII code 
is AOH or greater. 

Lines 100 through 210 of 
Screen make up a loop which 
examines the characters in the 
buffer and clears bit 7 of any 
with an ASCII code of at least 
AOH. The characters are checked 
one at a time using the B regis- 
ter as a counter. 

Lines 220 to 240 set up the 
entry conditions for PRLINE, in- 
cluding an ASCII carriage 
return in the C register, and 
print the line stored in the buf- 
fer. In the remainder of the 
subroutine, we increment the 
row counter, F034H, and 
branch back to F00AH to get 
the next screen line. If we have 
printed the last line, we return to 
the Basic calling program. 

Screen is not relocatable 
because it uses F034H and a 
buffer beginning at F035H. 
However, since all its jumps are 
relative jumps, it is necessary 
to modify only the references to 
these locations in order to run it 
in a different part of memory. 
This routine works success- 
fully with the Line Printer III. I 
would like to hear from anyone 
who has problems using it with 
a different printer. ■ 

Note: TRSDOS 2.0 contains a 
library command named 
SCREEN; users of this system 
should rename this article's 
subroutine. 
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Expensive 




EXPESS1VE - The LSW 
System Expansion II comes with a 
full 32K of 200ns RAM. and built-in 
KS232c 20 MA current loop serial interlace. 
That's for starters. Next, consider our heavy gauge 
steel case, power indicator lamp, gold plated 
connectors, FH-4 glass epoxy circuit hoard with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STASDARD. This is true system expansion. 
You get every 'expensive* feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price, LNW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS. is 
100' i TRS-80 Model 1 compatible and it works 
'right out of the box'. If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #/ - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model 1 computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LNDoubler 5/rt 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided. 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or 1,182,720 bytes - 77-track 
double-density, double-sided. 

The LN Doubter's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS • 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track, single-sided 5 -inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80% increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage - that's more storage 
than a Model II or Model III! 
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LNW Research Corp. 



2620 WALNUT Tustin, CA. 92680 
(714)641-8850 (714) 544-5714 




•M" drive operation requi 
<i»uhie-den»ity require* : 

inndili.-itinn ..r I .\'\V -mi 4\IH/ 



re- -i>.., i.i I cable. *" 
AMH* ("PI -i""i i|i 

. i.in|iiitiT 



| "|.MIll\ I l.f|l i 



UTILITY 



This first-class routine cancels a shortcoming 
of Tandy's Mail List program. 



Mergers 



Robert James Lloyd 
23 Fairway Rd. 
Newark, DE 19711 



One of the most annoying 
and frustrating experi- 
ences I have encountered dur- 
ing my two years of microcom- 
puting is being strapped with 
software designed and written 
for a 16K system. 

I purchased Radio Shack's 
Tape Mailing List about a year 
ago while still using a 16K Level 
II. With it, I created numerous 
files, each holding 80 names or 
less. After upgrading to 48K, the 
thought of loading such short 
files was depressing. 

Retyping 7000 addresses is 
not my idea of fun. Nor can I af- 
ford to buy duplicate software 
each time my system is upgrad- 
ed. The solution was to include 
several features Radio Shack 
left out, either because of 
memory limitations or lack of 
foresight. 

Since the mailing list program 
is written in Basic, I felt I could 
tailor it to my needs. Program 
Listing 1 shows the necessary 
changes and additions to add 
the function: Merge Two Files. 

Requirements 

These alterations cannot be 
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done if you have a 16K system. 
Also, the files you want to merge 
should be similar. If a select 
code is used to create a file, that 
file can be merged only with an- 
other containing a select code. 
Otherwise, the program will not 
operate correctly. 

Merge 

Merge combines two files into 
one. The first must be entered 
using menu option A or R. Then, 
pressing M will allow another 
file to be read from tape without 
destroying any addresses in 
memory. 

Once in memory, a file can 
continue to be merged with 
others, as long as the new file 
does not contain over MFS ad- 
dresses. (MFS is the Maximum 
File Size, equal to 225 addresses 
for 32K and 375 for 48K.) 

Line Changes 

Delete line 5. The reason for 
this is described in the next sec- 
tion. Changing line 30 allows M 
to be a valid menu option. Line 
65 simply moves the menu dis- 
play down one line, thereby 
making room for Merge Two 
Files. Since line 100 checks to 
ensure a proper menu selection, 
the IF statement is changed to 
accomodate the addition. 
Because line 110 makes use of 
the ON... GOTO... function, 
another line number is added. 
Including M in line 20000 allows 



the program to recognize Merge 
as a valid selection. 

The amount of memory 
cleared must be changed since 
we are adding more program 
lines and will not be able to have 
files as large as an unmodified 
program allows. Next, variable 
HI is reset. These changes are 
made in a new line 5, taking the 
place of the line we deleted. Line 
61 adds Merge to the menu dis- 
play. 

Lines 19100-19230 are added 
to incorporate Merge in the pro- 
gram. Instructions are printed 
on the video display via lines 
19100-19150. 

Set up the recorder, press 
Enter, and the number of items 
in memory is displayed (line 



19160) and variable K is set 
equal to that number (line 
19170). 

Next, the recorder is activated 
and the number of items con- 
tained in the cassette file is en- 
tered (line 19180). Line 19190 
displays this number. Should 
the total number of items be 
greater than MFS, the program 
returns to the menu without 
completing a merge (line 19200). 

Line 19210 sets variable N 
equal to the number of items in 
memory plus one. This causes 
the next item read in from tape 
to be numbered correctly. De- 
pending on whether a company 
name was used as part of an ad- 
dress, the program branches to 
the correct input routine (line 



5 IFHEM>39000CLEAR31000:HI-376ELSECLEAR18300:HI«226 

30 POKE16553, 255: RESTORE: FORI -1T07 : READBS ( I ) : NEXT:CLS : PRINT317 , • 

MAILING LIST SYSTEM" i PRINTG1 31 , 'OPTIONS AVAILABLE' 

61 PRINT' <M>ERGE TWO FILES' 

65 PRINTJ779,'** t OF NAMES IN LIST-';N;* •** 

101 IFB$(I)=A$THEN110:ELSEI-I + 1:IFK8THEN100:ELSE90 

111 ON I GOTO 121, 800, 900, 6ft, 2»»» , 7M, 19100 

19100 CLS: IFN-0GOSUB11000:GOTO30ELSEPRINT024 , "MERGE TWO FILES' 

19110 PRINT«12B,'WHEN TWO FILES ARE MERGED, THE TOTAL NUMBER OF 

ADDRESSES' 

19120 PRINT'MAY NOT EXCEED ' ,-HI •;'.': PRINT: PRINT' IF THE FILES AR 

E TOO LARGE TO BE MERGED, THE PROGRAM WILL* 

19130 PRINT'RETURN TC THE MENU.' 

19141 PRINT:GOSIB12000 

19150 IFA$»'E'THEN30 

19160 CLS:PRINT'THERE ARE ';N;' ITEM IN MEMORY." 

19170 K-N 

19180 INPIT»-1,M,G,N 

19190 PRINT: PRINT'THE FILE TO BE MERGED CONTAINS 'jN-1;' ITEMS." 

19200 IFK+N>HIPRINT:PRINT'THAT IS TOO MANY ITEMS ":N-K:FORDD 

-1TO500:NEXTDD:GOTO30 

19210 N-K+l : PRINT:PRINT"FILE IS BEING MERGED." 

19220 IFM-6GOSUB14070ELSEGOSUB14050 

19230 PRINT: PRINT'MERGE IS COMPLETE" : FORDD-1TO500 : NEXTDD:GOTO3 

20000 DATA A,R,S,L,P,W,M 



Program Listing 1. 




JMfc J ^HB^tttfk 



FEATURES 
YOU'VE NEVER SEEN BEFORE. 

• Hardware total screen inverse video 

• Two modes of der 

384 x 192 or 192 x 192 for Model ! 
512 x 192 or 256 i 192 for Model III 

• Kery dot can be set, reset or tested. 

• 12288 bytes Video Memory 

• Select normal, high or very high resolution with or 
without inverse video via output port. 

• Disable Mikeean^do I memory via output port 



ning a computer that people could use in business and leisure 

without spending alot of mane) o lem Thanks to the 

TRS-80* there are now over 200,000 N uters m homes and 
business today. 

i keeping the price of the TRS-80 down the Random 
Access Memory-, q lowntoonly 17K. Ye.- 17K I6K er Memory 
and IK Video Memory. 128 x 48 or 6.144 Inck pet entry oiled dots.) 
BUT WE VK CHANGED ALL TrMCT 

NOW HIGH RESOLUTION GRAPHICS 
ARE HERE! 

MIKEEANGELO is 16 times belter with Ihe Model III 
and 12 times better for the Model I. 

Thai s 512 x 192 or 98 304 dots for Model III. 
and 384 x 192 or 73,728 dots for Model I, 

MIKEEANGELO connec your TRS-80 easily ' You can do it 
yourself with our instruction book in minutes and a handy tool kit is 
available, if you need one for $15. Please specify Model I or III 
TRS-80 

Order Now For Only $340. Complete 

Dl i :«i*v canylrk «riih fomtr wppJ* a t tmnmd fw i iO 

MotKV Ol !: t r « 

Or write far free I »*««• information 

MIKEEANGELO 



MKEEANQIEO * * tiaoarnarti K>r MiKtt Eiactionlca Corp 
•* IBS SO is a uia*r»* lor I'M Tardy Coo 
•J Operurm your TRS-60 win void »t limited wrartanty 
'* 90 day <*»»raniy lull . i ' r«ptacam«tt 

Introductory Special for 90 days only! 



MIKEE UK IROMt'S CORPORATION 

P.O. Box 3813 Bcllexue, Washington 98009 

feleplom 201/4614574 

So»rv ac CO D itxk N 60 Javj -or ddimy. 

W:'l«l ' T In I 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
JPC Cassette System is available 
for your TRS-80* computer. 
The price is only $90.00 

TC-8 Cassette System 
.IPC Products 
Albuquerque, MM 
Kit: $90 
Assembled: $120 

by Cart A. kollar 

1 guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, after you've just plunked 
down a chunk of money for a Level 1 1 1 6K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have I got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly |90] bucks? How could 
this be'.' A call to Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. .IPC 
would make it work, if you couldn't— for free. 
I was sold. 1 placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
great.) It was clear, concise and exact with no 




FOR TRS-80 
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ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of 8'/: x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while, bach command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English — not computerese. 

Commands and Features 
SAVE"filename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD" filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD?"filename ": Reads file 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN "filename": Same as above except the 
tape w ill stop at the end of the program named. 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 

RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RL'N'Tilename": TC-8 searches for a specified 
program and runs it immediately. 
PIT" filename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET'Tilename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET?"filename ": Same as I OAD? 
and LOAD? "filename", except it is for use 
with system tapes. 
GETM and GETV'filrname": Same as 



LOADN and LOADN'Tilename". except it is 
for use with system tapes. 
OPEM: Required before cassette input or out- 
put of a data file can be attempted 
CLOSE: Required to end a cassette data file. 
PRIM • '§'. Allows numerical or string data to be 
output to a cassette file. 

INPUTS: Allows numerical or string data to be 
input from a cassette file 

1 haven't counted them, so I don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 1 1 ). loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad loads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button. ■ 

ORDER MOW 

To order your TC-8 kit, send your check or 
money order for $90. (X) plus S3. SO postage 

and handling to JPC PRODUCT SCO., 12021 
Paisano Ct., Albuquerque, NV1 87112 (New 
Mexico residents add 4To sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit, the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 




• 190 



PC PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 
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10220). Finally, lino 19230 is dis 
played when Merge has ended 
and returned the menu. 

This newly created file may be 
sorted, displayed, searched, 
printed, saved, or merged again 
with another file via the appro- 
priate menu option. 

Printing Labels 

There is no way more than 
one label per row can be printed 
using the program as purchased 
from Radio Shack. Again, the 
solution is program modifica- 
tion. If you wish to modify the 
print routine, follow Program 
Listing 2. 

Line Changes and Additions 

The change to line 2070 mere- 
ly allows lines 2081-2083 to be 
executed. By making the change 
to line 2210, variable I is in- 
creased by the number of labels 
across. Deleting lines 19001- 
19010 (original print routine) 
makes room for the revised pro- 
cedure. 

Variable XX in line 2081 is the 
number of labels across, and 
must be entered when prompted 
by the computer, even if you are 
printing only one label at a time. 
Line 2082 sets ZZ equal to the 
character width of the label. If 
you do not know this figure, 
print a row of letters across the 
label. Make sure the first char- 
acter is aligned with the label's 
left edge. Count the number of 
characters across the width of 
the label. This is the number to 
be entered. Line 2083 adds 1 to 
variable ZZ since the labels are 
normally spaced one character 



apart from each other. If your 
label stock is spaced differently, 
change line 2083 to add the cor- 
rect number. 

Now add lines 19001-19007 
(new print routine). These lines 
work in the same fashion, so I'll 
describe only 19001. 

The For. . . Next loop repeats 
according to the value of XX. 
First, AA is equal to zero. The 
name is printed and if AA does 
not equal XX. a string of blanks 
is printed until the next label is 
reached. After the correct num- 
ber of names are printed across, 
the paper is advanced one line 
and either the street address or 
company name is printed. This 
process continues until the en- 
tire file is printed. 

Summary 

Adding Merge and changing 
the print routine helps make the 
Tape Mailing List much more 
versatile with a minimum of ef- 
fort, and, best of all. at no addi- 
tional cost. 

As stated previously, these 
changes were designed for an 
unmodified program. If you have 
added other things, or made 
changes, you may not be able to 
incorporate either of these new 
features. A little experimenting 
should provide the answer. I 
have tried these program modifi- 
cations, and so far, have not en- 
countered any problems. 

I would like to give credit to 
Radio Shack for providing a 
complete listing "in case you 
want to... modify it...", and 
hope they continue this practice 
with future software.B 



', IFMEH^9000CLEAR31000:III=3 76l-:[.SEIFNEM,19000CLEAR18300:Hl«22& 
IB l)EFINTI-N,C,E,P,S:DIMFI$(III»S ,6) 

2070 IFG=lT;it:NE = 8:GOTO2081:ELSLPRINT"DO YOU KANT TO PHI NT THE CO 
MPANY NAME ON THE LABELS I Y/N) ?" ; :GOSUB833B 

2081 PRINT:PRINT:INPUT'HOW MANY LABELS ACROSS". -XX 

2082 PRINT: INPUT-HOW MANY CHARACTERS ACROSS PER LABEL' ;ZZ 

2083 ZZ«ZZ*1 

2210 GOSUB18000:I*I»XX:IFK«NTHEN2180X 

19001 FORAA-0TOXX-l:LPRINTFIS|I»AA,0);:IFAAOXX-lLPRINTSTRINGS(Z 
Z-LEN(FIS(I«-AA,0) ) ,32) ; : NEXTAA: LPRI NTCHRS ( 138) : ELSEPRINTCHRS ( 1 3 8 
1 : NEXTAA 

19002 IFE»1FORAA=0TOXX-1:LPRINTFIS(I*AA,1) .-ELSE19004 

19003 IFAA<>XX-1LPRINTSTR1NGS(ZZ-LEN(FIS(I*AA,1)) , 32) :: NEXTAA: LP 
RINTCHRSI138) : ELSELPRINTCHRS ( 1 38) :NEXTAA 

19004 FORAA-0TOXX-1:LPRINTF1S(1»AA,2);:IPAAOXX-1LPRINTSTKINGS(Z 
Z-LEN(FIS(I*AA,2) ) ,32) ;: NEXTAA : LPRI NTCHRS ( 13 8) : ELSELPRINTCHRS ( 1 3 
8) : NEXTAA 

19005 FORAA*0TOXX-1:LPRINTFIS(I*AA,3) j" " ; FI S I I-fAA , 4 ) ; "- ■ ; FI S 
(I+AA,5); 

19006 IFAAOXX-lLPRINTSTRISGS(ZZ-(LEN(FIS(I*AA,3))+LEN(FIS(I*AA, 
4))»LENlFIS(I+AA,5))+5) ,32) ; : NEXTAAELSENEXTAA 

19007 LPRINTCHRS1138) : LPRI NTCHRS i 1 38) : LPRINTCHRS 1 1 33) 
2081 PRINT:PRINT: INPUT'HOW MANY LABELS ACROSS';XX 



Program Listing 2 



THE PROGRAMMER'S GUILD 
MEANS 
ADVENTURE! ! 

GAUNTLET OF DEATH 

This new style of Adventure features an 
exclusive TRAPMAZF" format in which 
escape is the primary concern. You are 
THORAN THE BARBARIAN, under the 
power of the Tyrant of Graylockland, 
accepting the challenge of the most deadly 
dungeon known to man. In the GAUNTLET 
OF DEATH you are pitted against 
mechanical devices that sling darts with 
uncanny accuracy, deadfall traps where a ton 
of pure marble can crush you in an instant. 
You can find potions which may or may not 
help you in your struggle. You may find 
treasures worth SURVIVAL POINTS against 
the ultimate confrontation of the LAST 
ROOM. Can you survive? Can you make 
your way through the maze of invisible traps 
that keep you from your mission? THE 
GAUNTLET OF DEATH. Tough, unyielding, 
the absolute deadliest of challenges. Will you 
make it? or will you die trying 
TAPE ONLY $19.95 

THE DOMES OF KILGARI 

In the far reaches of the Outrim.the 
Adventure continues. For those who've been 
waiting so long, the sequel to the classic 
DEATH DREADNAUGHT ADVENTURE is 
here at last. You barely make it to Kilgari 
before your fuel is exausted. The Interspacial 
Digitron Corporation has boobytrapped the 
Ion fuel center. Your job though traditional 
adventure format is to overcome all traps and 
retrieve the ion rods necessary for your 
survival and continued journey. THE DOMES 
OF KILGARI. Classic! Adventure at its best. 
$19.95 TAPE $29.95 DISK 



COMPUTER MAIL ORDER IS HERE! ! ! 



Programmer's 



PO Bo>66-Pele>t>Ofougn NH 034S*> 803-924-6065 Voice • 603 9247920 Oat* 



• See Lislol Advertisers on page 4 Id 
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UTILITY 

I f fgf 1 | 
LOAD 80 



A timesaving shift-entry utility. 



The Sentry 



Jim Rastin memory locations usually point 

376 Briarhill Avenue to 42E9H upon power-up. The 

London, Ont. N5Y 1N8 ca || 1 B49 (New) will set all other 

Canada pointers to reflect this change in 

start location. So, SENTRY is 
placed in low memory and the 
Basic pointers changed, rather 
than in high memory (which 
would require you to reserve 
memory). 

The Program 

Load SENTRY under the Sys- 
tem command, then type Enter. 
It may appear that the program 
doesn't work, but the screen is 
supposed to look as if you had 
just typed New. 

To see the SENTRY keys type 
Name and Enter. The screen 
will clear and display a mes- 
sage. Now push the break key 
and all the SENTRY keys will be 
displayed. By pressing the shift 
key and the corresponding let- 
ter, the displayed word will be 
written on both the screen and 
in your program. The up-arrow 
signifies that the enter key will 
be part of your entry. 

You may change any or all key 
entries by: 

• Typing Name or shift Y. 

• When you see the mes- 
sage, type your SENTRY 
letter. 

• Now type up to seven char- 
acters for that letter to 
represent. It is not nec- 
essary to press the space 
bar as the program will do it 
for you. 

• When you have typed the 
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Anyone who has suffered the 
frustration of keybounce 
while program writing will 
appreciate this program. I call it 
SENTRY, and it is similar to 
TSHORT and other shift entry 
programs. 

I wrote SENTRY with the help 
of Small Systems Software's 
RSM-2/D Monitor; TRS-80 Super- 
map, by Fuller Software— very 
helpful in finding points in ROM 
and some of the memory loca- 
tions between 4000H and 
42E9H; and the Software Tech- 
nical Manual, by Houston Micro 
Computer Technologies. 

Protected Memory 

When you buy machine lan- 
guage programs, you must re- 
serve memory when you see the 
Memory Size question (e.g., Ra- 
dio Shack's Renum Program). 
SENTRY protects itself from be- 
ing over-written in lines 150 
through 180 as well as 2440 (Pro- 
gram Listing 1). These lines in- 
dicate that the end of the pro- 
gram is in memory locations 
40A4H and 40A5H. 

The call 1B49H in line 170 
does the same thing as typing 
New in Basic. Memory locations 
40A4H and 40A5H or 16548 and 
16549 point to the beginning of 
the RAM area for Basic. These 



desired word, press the 
break key to see the display 
of all words including the 
one you changed. 

• If you want an auto Enter, 
just press Enter when you 
type in your word. It will be 
displayed as M until you 
press Break. 

You may type Name and 
Break anytime to see the SEN- 
TRY keys without hurting your 
program (during a list or while 
typing in a listing). (See Table 1 .) 

DOS Basic users may use this 
program, but must do a little 

more work to get started. To use 
it with disk Basic you must do 
the following: 

• Change line 100 to read 
ORG 6CB3H; 

• Put SENTRY to disk; 

• Call Basic; 

• Type CMD'T, SENTRY; 

• Type SYSTEM (enter); 

• Type/27827 (enter). 

If you use BASICR and type 



NAME, it will renumber your pro- 
gram but will not allow you to 
change the SENTRY keys. 
Therefore I suggest you use 
SENTRY with Basic and not 
BASICR. 

How It Works 

Lines 110 and 120 load the 
start of SENTRY into locations 
4016H and 4017H. These loca- 
tions are used to interrupt the 
keyboard scan. Lines 200-300 
check to see if a key is pressed 
and if so. check to see if it is 

shift A-Z. If not the screen is un- 
changed. 

If shift A-Z are pressed then 
lines 310 through 360 calculate 
which word to display as the 
value of the pressed key. 

Lines 380-460 multiply that 
by eight as each word occupies 
up to eight bytes. The word to 
display, therefore, starts at 
TBL + 8, or in this case SAVE. 
Lines 500-1200 contain a table 
of SENTRY keys. Level II users 



A = 


AUTO 


B 




SAVE" 


c = 


RIGHT* 


D 


m 


DELETE 


E = 


EDIT 


F 


= 


FOR 


G = 


GOTO 


H 


= 


GOSUB 


I 


INPUT 


J 


■ 


INKEYJ 


K = 


CHR$ 


L 


= 


LIST 


M = 


TIMES 


N 


= 


NEXT 


= 


0UT254. 


P 


■ 


POKE 


Q = 


RETURN 


R 


= 


RUN! 


S = 


SYSTEM' 


T 


= 


THEN 


u = 


PEEK( 


V 


= 


LOAD- 


w = 


ELSE 


X 


■ 


MID* 


Y = 


NAME" 


z 


* 


LEFT* 


Table 1. Definition of Variables 



SOFTWARE CONCEPTS 

Dallas, Texas 
NOW - MORE THAN SPECIAL DELIVERY 



SOFTWARE CONCEPTS 



OTHER FINE SOFTWARE 



Who is Software Concepts? We are the originators 
of Special Delivery word processing software for the 
TRS-80 We are now expanding our product line to 
include items used in our daily business operations. 
We consider these to be better than any other 
product we have tried for its price/performance 
ratio. If we sell it ■ we use it! 



SPECIAL DELIVERY 



"...// you're presently looking for a mailing list 

processor, this represents the current state of the 

art" 

80 MICROCOMPUTING - 80 REVIEWS •- JULY 1980 

SPECIAL DELIVERY is the best mail list processor 
available for the TRS-80. just ask our customers! 
Use Special Delivery to maintain your mailing hst 
with fill-in-the-form ease. You create, edit, sort, 
extract, and otherwise manipulate your mailing list 
with the speed and ease of use possible only in 
100% machine language software. Special Delivery 
will merge data from the mail list into a letter 
created by your own text editor (Scripsit. Electric 
Pencil, etc.) to generate a "personalized form 
letter" to any or all names in the list. Print free 
form mailing labels, envelopes, even legal docu- 
ments! Print any character (including escape 
codes) your printer is capable of printing! Boldface 
and underscore is supported for most printers, now 
including the Daisy Wheel II! 

SPECIAL DELIVERY includes: 

MAILFORM: data entry at its best, just fill in the 

form! Sort, extract, page forward and back, insert/ 

delete, more! 

MAILRITE: print letters, etc. created with your 

editor while inserting text from your MAILFORM list. 

SEVFRAL printer drivers (EDAS source code as well 

as /cmd files), and letter and list samples to get 

you started. 

XTRA! SPECIAL DELIVERY includes: 
EVERYTHING in regular SPECIAL DELIVERY. 
Enhanced MAILRITE: with the ability to print varia- 
ble text from a "KEY" file (greatly expanding the 
capacity of each record in your list). 
MAlLABEL: 1. 2, 3. or 4 across label printer. 
MAILSORT: will sort by any field, a full 40 track 
double density data diskette (over 1500 names) in 
only 48K! 

ZIPS0RT: sorts on zip only, but will handle over 
4500 names! 

NOTE TO 
REGISTERED OWNERS 

Registered SPECIAL DELIVERY owners can upgrade 
to XTRA! by returning their ORIGINAL disk with 
$74.00 + $2.00 shipping and handling. 

FOR YOUR MODEL I OR III: 

( requires minimum of 32K, single drivel 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY $199 

FOR YOUR MODEL II: 

(requires TRSDOS version 2.0 & does NOT work 

with Scripsit) 

SPECIAL DELIVERY $199 



ALL NEW ELECTRIC PENCIL!!! 

NOW AVAILABLE FOR THE MOD III! While the original 
PENCIL set a standard that other editors have yet 
to achieve, the NEW ELECTRIC PENCIL reaches even 
greater heights with many exciting new features 
that make it the easiest-to-use text editor available 
for the TRS-80 Mod I or III!! 
Electric Pencil version 2 $84.95 

EDAS 

This is the assembler from Misosys which is used 
for all assemblies of Special Delivery. We had real 
headaches until this came along. A must for any 
assy, language programmer. 
EDAS MOD l/MOD III $75.00 

THE DISASSEMBLER 

This is simply the most advanced disassembler we 
have ever seen. Creates EDAS source code, inserts 
predefined labels, disassemble disk or memory, 
generates ORGS & EQUates. By Ed Stitt. 
THE Disassembler $89.00 



LDOS 

Features previously available only on a 
mainframe. Real powerhouse DOS. Good 
support. 

NEWDOS80V2.0 

See above. Fantastic BASIC enhancements. 
The well equipped software developer will 
own both LDOS & NEWDOS but one or the 
other is a must. 

LDOS $159.00 

NEWDOS V2.0 $145.00 



HARDWARE 

DATA SEPARATOR 

The PERCOM lifesaver. If you have a MOD I with disk 
drives and no data separator you have problems. 
Order from us or PERCOM but get a data separator. 
Data Separator $27.95 

DOUBLER 

Another PERCOM breakthrough. Add double density 
to your MOD I. Includes built in data separator. 
Doubler $165.95 

DISKETTES 

20 Name Brand diskettes packaged in bulk. Re- 
inforced hub, double density, double sided. 
Pkgof 20 $55.00 

GREEN SCREENS 

Not much difference between green screens but 
everybody should have one. If you don't buy ours, 
buy theirs. 

MODI/MOD III $17.95 

MODII/LEEDEX 100 $22.95 

MODEL II INDEX 

Now find everything you need in your Mod II manual 

with this super index and cross reference. 

Index $17.95 



NEC 8000 Computer 

Z80a compatible, 4MHZ, 64K ram. color supported, 
RS 232. 163.8K per disk, parallel interface, 5 
function keys, numeric keypad 

NEC 8000 keyboard unit $1200.00 

Green phosphor screen $250.00 

Expansion Interface $800.00 

Disk Drives (2) $1200.00 

Parallel Printer Cable $44.00 

EPSON PRINTERS 

Epson has become the standard by which other low- 
cost printers are measured. Highly recommended! 

MX80 $500.00 

MX80 F/T $650.00 

MX70 $419.00 

MX100 $785.00 

Printer Cable $35.00 

TRS80 Bus Board/Cable $100.00 

GRAPHTRAX80 $80.00 

Ribbons $14.00 

Print Heads $28.00 

Apple Board/Cable $110.00 

DRIVE TABS 

Dress up your system with professionally engraved 
drive number tabs. Numbers thru 3. Avoid 
confusion. 

Set of 4 $3.50 

PRODUCTS WANTED 

It you have a machine language program that is the 
best there is. contact Software Concepts. We are 
interested in publishing all first rate software. 

DISCOUNTS 

Users groups and computer clubs, write for group 
discount information. 

Al products are warrantied as specified by the 
manufacturer. Liabity of Software Concepts is 
imrted to the defvery of undamaged merchandise. 

OTHER SOFTWARE AVAILABLE. 
Cal rf you don't see what you need. 

Add 3% Shipping & Handling 
Texas Residents add 5% Sales Tax on 

all hardware items. 

Specify whether MOD I, II, or III when 

ordering. 

* CALL COLLECT * 

(214) 247-8731 

MasterCard & Visa charge customers 

may leave order on 

Micronet 70130,232 

SOFTWARE CONCEPTS 

13534 Preston Rd. Suite 142 

Dallas, Texas 75240 ^299 

Dealer enquiries invited. 

TRS-80 & Scripsit are Reg Trademarks of Tandy Corp. 



vSee List ol Advertisers on page 418 
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may want to change line 540 and 
1070 to read 'CSAVE" and 
'CLOAD", respectively, to re- 
flect Level II tape commands. 
Because all entries can be no 
longer than 8 bytes, you must 
also delete lines 560 and 1090. 
Lines 1220 through 1650 display 
all words from the table to the 
screen. 

Lines 1670 through 1700 dis- 



play a byte in the A register to 
the screen while lines 1710 and 
1720 change the command byte 
00 (enter) to display the up- 
arrow when the listing is dis- 
played. Lines 1740 through 1800 
print a message pointed to by 
HL to an area pointed to by DE. 
Lines 1820 through 2370 allow 
for the change of SENTRY keys 
and then display them.B 









Program Listing 1 






80198 




•14 SHIFT ENTRY 


- WRITTEN BY III 




11191 




•41 JIM RASTIN 316 


BRIARHILL AVE III 




8889 2 




44 4 LONDON ONTARIO 


NSY 


N8 CANADA III 




11193 




tllillHIMIIII 


IIIIIIIIIIIIIHIIIII 




1*19 4 




S1HIIT 


ENTRY ••*** 




11195 




llllllllltllllllllll 


II4I4IIIIIIII4I444I4 




8119* 


* TlilS PROGRAM CAN BE $C 


C KITH LEVEL 1! 3R DISK BASIC • 




1119 7 


• !T 


IS ALREADY SET FJ* LEVEL 


II. TO VSE WITH TRS-DOS • 




•1198 


■ CHANCE OAC. 


IN LINE :*« 


TO 6CB3H AND SCAN CALL IN • 




88899 




•••»•» 


LINE 


31* TO 430*H. 


MM 


• 111! 




ORC 


42E9H 




; START OP - JSER RAN 


I2E9 21114) 


tint 


CC1I. 


LD 


hl.star: 






42EC 221641 


• 8128 




LD 


14I16HI ,111 




iKEY SCAN INTERRUPT 


42EP 216A44 


88138 




LD 


HL, SENTRY 




;TYPE NAME 


42F2 228F41 


•1140 




LD 


(418PH) ,HL 




; TO CHAIICE WORDS 


42F5 21*441 


••158 




LD 


HL.ENO 






42T8 22A44* 


• •16( 




LD 


(48A4HI ,H1 




:PTR. TO STWT OF BASIC 


42r» CD491B 


• •170 




CALL 


1B49H 




.-CALL NEW 


42PE C372M 


••181 




JP 


72H 




JJL'RP TO BASIC 




• •19* 


SHIFT ENTRY PROGRAM 






43*1 2A2P4 3 


• •2M 


START 


ia 


HL, 1 STORE? 




;POIWTS ?j 8TH DIGIT 


4314 7E 


• •211 


HRITS 


LD 


A, (HL1 




[CHECH POINTER 


43*5 B7 


• •22( 




JR 


A 




FOR LETTER 


43*4 288C 


• 121) 




JR 


I, SCAN 






43*4 3A994* 


88248 




1.0 


A, '4I9S- 




,-INKEYS STORAGE 


43*B B5 


•1251 




CR 


A 




;CHECK FOR HEY 


43IC 2**6 


ll/fcl 




JR 


NZ.SCAN 






43IE 7E 


•1271 




LD 


A.iHL) 






43IF 23 


• •281 




INC 


■L 






4311 222P43 


• •291 




LD 


( STORE 1 ,HI 






IJ13 CS 


88389 




RET 










6*3*5 


till 


CHANGE NEXT CALL TO 4 3DSH 


FOR TRS-DOS tit 


4314 CDE3I3 


• 1311 


SCAN 


CALL 


• 3E3H 




;SCAN KEYS 


4317 PS 


• 1321 




PUSH 


AP 




;SAVE A 


4311 FE7B 


•13)1 




CP 


7BH 




.-CHECK FOR ABOVE Z 


431A 3111 


1*34) 




JR 


NC.FIN 




:RET IP TOO HI 


431C D«*l 


88358 




SUB 


61H 






431E 38ID 


•1348 




JR 


C.FIR 








•1)7) 


• 61 


CALCULATE 


WORD TO DISPLAY 


868 


432* 6F 


•1)11 




LO 


L,» 




;BX CONTAINS 


4)21 2681 


• •391 




LD 


N.I 




•-25 


432) 21 


• •••• 




ADO 


HI..HL 




i MULTIPLY HL 


4)24 2» 


••411 




ADD 


HL.HL 




I BY 


4325 29 


•14 21 




ADD 


HL.HL 




• 


432* 11334) 


114)1 




LD 


BC,T*L 






4329 19 


11441 




ADD 


HL.BC 




; (HL)->>WORD 


4)2A rl 


• 1451 




POP 


AP 




;GET A AGAIN 


432B 18D7 


1(461 




JR 


WRITE 






4320 Fl 


1*471 


FIN 


POP 


AP 




iGET A 


432E C9 


• 1481 




RET 








432P 3843 


• •491 


STORE DEPW 


TBL* 7 








98588 


1»H 


TABLE OP 


SHIFT ENTRY 


KEYS 


• 8* 


4331 41 


HSU 


TBL 


DEFH 


•AUTO ' 




;A 


4))* fill 


• •521 




Dirw 


| 






4538 ti 


81531 




DEFB 


§ 






4)3* S) 


••541 




DEFR 


'SAVE" 




;B 


4))E •*•• 


• 8558 




DEFW. 


| 






4)4f •• 


•1568 




Dtre 


6J 






4)41 52 


•1571 




CEPR 


'HIGHTS! ' 




:C 


4)4i fl 


81581 




aire 


• 






4)49 44 


115*1 




DEPH 


' DELETE ' 




■■ 


4351 II 


•KM 




DEPB 


• 






4351 45 


88618 




DEPH 


■EOIT • 




;E 


4)5* fill 


88628 




DEFW 


• 






*)S« tl 


0*6 31 




QEFB 


3 






4)59 46 


• 8641 




DEPN 


'FOR ' 




;t 


43SD III* 


116 5 8 




DEPW 


I 






43SF (fit 


1*661 




DEPH 


8 






436) 47 


••678 




DEFH 


•GOTO ' 




|S 


4)66 ••*• 


88688 




DEPW 


8 






4)te •• 


••698 




DEFB 


• 






43*9 47 


88718 




DEPH 


'GO SUB • 




;H 


4)«P llll 


• •7)1 




DEPW 


■ 






4J71 49 


68728 




OEFH 


•INPUT ' 




ii 


4)77 •••• 


88738 




DEPV 


( 






4)79 49 


••74* 




DEFR 


■INKEYS" 




>J 


4)7P llll 


••7 5* 




DEPW 


• 






4)11 43 


88761 




DEFR 


■chrs: ■ 




rl 


4384 III! 


• •77* 




Mm 


I 






4)11 ii 


• •781 




DEFB 


I 






4)19 4C 


• 17 9* 




DEFH 


'LIST " 




.j. 


43BE llll 


• •(•• 




DEPW 


1 






4391 II 


• ••1* 




DEFB 


■ 






4)91 54 


• ••2) 




DEFR 


'TINES' 




;N 


4)96 II 


815839 




DEFB 


9 






4397 III! 


88848 




DEFH 


9 






4399 4E 


88*58 




DEI'K 


'NEXT ' 




|N 


43 9E till 


81*68 




DEPW 


9 






DAI If 


•*878 




DEPB 


* 






4)A1 4P 


6*888 




DEFR 


•OOT254. ' 




jO 


4)A8 II 


•**9* 




DEPB 


8 






43A9 St 


8*9*8 




DEFR 


•PORE ' 




*p 


4)AE ftft 


(•91* 




DEPW 


t 






4)BI II 


•89 21 




DEFB 


• 






4)11 52 


88938 




DEFR 


■RETURN ' 




:0 


4)B8 II 


81946 




DEFB 


I 






4)B9 52 


••95* 




DEFR 


'RUN ' 




.^ 


43BD ID 


••*«* 




DEFB 


13 




J ENTER KEY 


4)8E III! 


••97* 




DEFK 


I 






4)CI II 


•8986 




DEFB 


• 






4)C1 53 


99998 




DEFH 


'SYSTFJC 




;S 


43C7 ID 


ait** 




DEFB 


13 




; ENTER KEY 


43C8 II 


*i*i* 




DEFB 









43C9 21 


81*2* 




DEFR 


' THEN ' 




iT 


43CP Ittl 


• 1*3* 




DEPW 


8 






431)1 51 


• 1*48 




DEFR 


'PEEK! • 






43D6 Bill 


01*5* 




DEFW 









43DB II 


81868 




DEEP. 


8 






43D* 4C 


• 1*74 




DEFR 








43DE aitl 


81888 




DEFW 






Program continues 



Program continued 



43EI II 


• 1*9* 




DEFB 


e 




4)E1 45 


• 11** 




DEFR 


' ELSE ' r 


H 


43E6 •••• 


• 111* 




DEFW 


• 




4)E* a* 


• 112* 




DEFB 


8 




43E9 4D 


8113* 




DECK 


'HIDSC 


X 


43EE 8*8* 


8114* 




DEPW 


8 




43F* •• 


• 115* 




DEFB 


9 




43F1 4E 


• 11(* 




DEPH 


'HAM ' 1 


T 


4)F6 *D 


• 117* 




DEFB 


13 




4)f7 •••• 


•lit* 




DEFW 


• 




4)P9 4C 


• 119* 




DEFR 


' LEPTS v ' 1 


| 


4)PP •■(* 


1128* 




DEFW 


6 






• 121* 


•6 6 DISPLAY At 


L SHIFT ENTRY KEYS 


III 


44*1 CDC9I1 


• 122* 


3ISPLY 


CALL 


61C9H | 


CLS 


4414 MID 


• 123* 




LO 


B.13 | 


26 LETTERS/ 2 COL. 


441* 3E41 


61246 




LO 


A, 65 




4411 23)143 


8125* 




LD 


HL.TBL | 


HL POINTS TO SENTRY KEYS 


44*1 C5 


• 124* 


LP5 


PUSH 


BC | 


SAVE COUNTER 


44*C F5 


• 127* 




PUSH 


AF 




44*D *E*2 


*i2i* 




LD 


C,2 




44*P CD5844 


8129* 


LP 4 


CALL 


SCR 




4412 3E2* 


B: 333 




LD 


A, 32 




4414 CDS844 


•13;* 




CALL 


SCR 




4417 3E3D 


61328 




LD 


A, JDK 


= 


441* CD5844 


*133* 




CALL 


SCR 




441C 3E2* 


• 134* 




LO 


A, 32 




441E CD5844 


• 1)5* 




CALL 


SCR 




4421 4688 


• 1)6* 




LD 


B, 8 


SET COUNT TOR RAX. 


442) 7E 


• 1)7* 


-PI 


LD 


A,(HL! 


NUNBER OP LETTERS 


4424 FE86 


• 1)** 




CP 


1 


•1 PER WORD 


442* 218c 


• 1)9* 




JR 


Z.LP2 


AND DISPLAY WORD 


442* FE1D 


• 141* 




CP 


13 


CHECK FDR v ENTER-- KEY 


442A CC5E44 


• 141* 




CALL 


Z.CHSG 


CHANGE TO JP ARROW 


442D CDSB44 


• 142* 




CALL 


SCR 




44)* 2) 


• 14)* 




INC 


HL 




44)1 *5 


• 144* 




DEC 


B 


DEC. WORD COUNTER 


4432 1IEF 


• 145* 




JR 


LP1 




44)4 )E2« 


• 146* 


LP2 


LD 


A, 32 




44)4 23 


• 147* 




INC 


HL 




4437 CD5B44 


• 14S* 




CALL 


SCK 




443A 1»P8 


11496 




DJN1 


LT2 




443C *6«F 


31538 


CONT 


LD 


B,15 


PUT 15 SPACES 


443E 3E2* 


• 151* 


LP 3 


LD 


A, 32 


BETWEEN EACH 


444* CD5S44 


• 152* 




CALL 


SCR 


WORD 


4443 1IP9 


• 153* 




DJNI 


LP 3 




4445 Fl 


• 154* 




POP 


AT 


NEXT LETTER 


444* 3C 


• 155* 




ISC 


A 


A«A«1 


4447 PS 


• 156* 




PL'SH 


AT 


SAVE LETTER 


4441 ID 


61578 




DEC 


C 




444* 2*C4 


• 15*1 




JR 


N1.LP4 




444B 3EID 


• 159* 




LO 


A, 13 


ENTER KEY 


444D CDS844 


81686 




CALL 


SCR 


GOTO NEXT LINE 


4451 PI 


1161* 




POP 


AF 




4 451 CI 


• 1*2* 




POP 


DC 


GET COUNT 


4452 *5 


• 1*)* 




DEC 


B 




445) CA72** 


• 1641 




JP 


Z,72H 


RETURN TO BASIC IF DONE 


4456 1*B3 


81654 




JR 


LPS 






61668 


lt*l666IMIIIMMMI8«M8lllll466686l6 


44S8 M 


t:*7* 


SCR 


EXX 






4459 CD3388 


• 1(8* 




CALL 


33H 


DISPLAY TO SCREEN 


44SC D9 


• 169* 




EXX 






44SD C9 


117*1 




RET 






445E 3E5B 


81716 


CHNT. 


LO 


A.SBH 


UP ARROW POR <ENTER> 


44*1 C9 


• 172* 




RET 








• 17)* 


I II »l 1 1 1 1 1 


44*1 76 


■ 174* 


PRINT 


LD 


A.iBL) 


PRINT HES5ACE 


44*2 FEII 


• 175* 




CP 


6 


POINTED TO BY HL 


44(4 ca 


•176* 




RET 


J 


TO THE SCREEN 


44*5 12 


• 177* 




LD 


<DE),A 


NESSAGE NL'ST 


44*4 23 


• 17** 




IK 


HL 


END IN • 


44*7 1) 


• 179* 




IRC 


DE 




44ft 18F7 


• 16*8 




JR 


PRINT 






61*1* 


ill CHANCE SHIFT KEYS TO DESIRED 


7 LETTER ENTRY II 


44* A CDC 511 


• 1*2* 


SENTRY 


CALL 


81C9H 




444D 11II3D 


11838 




LD 


DE.3DMK 


PRINT NESS 


447* 21CE44 


32649 




LD 


HL.HESS1 


TO SCREEN 


4473 C06144 


11*5* 




CALL 


PRINT 




4476 11CI3D 


81861 




L0 


OE.3DC8H 




4479 213845 


1117* 




LD 


HL.RESS2 




447C CD6144 


• 186* 




CALL 


PRINT 




447P 11883E 


• 1*9* 




LD 


DE.3EBIN 


NEXT LINE 


44*2 DS 


•IN* 




PUSH 


DE 


SAVE SCREEN PTR. 


441) CD 4 91 8 


• 1*1* 




CALL 


49H 


GET CHAR. IRON EET SCAN) 


4484 Dl 


• 1*21 




POP 


DE 


GET SCREEN PTR. 


44*7 FEII 


• 19)1 




CP 


1 




44** CA414 4 


■ 1941 




JP 


Z.DISPLY 




446C 12 


• 1*5* 




LD 


IDE] ,A 


PUT LC7.1ER lb SCREE* 


4460 1) 


• 19** 




IRC 


DE 




44IE 1) 


• 1971 




INC 


DE 


HOVE OVER FOR CND. 


44JF D*41 


I19M 




SUB 


111 


SOB. LETTER A 


44*1 87 


• 199* 




RLCA 




MULTIPLY 


44*2 87 


12**1 




RLCA 




BY 


44*3 87 


• 2*1* 




RLCA 




a 


4494 213143 


62*2* 




LO 


RL ,TBL 


START OP WORDS 


4497 ID 


• 283* 




ADC 


A,L 




449* 3*11 


• 2*48 




JR 


NC, STILL 




449A 24 


6285* 




INC 


H 




44*1 (P 


6266* 


STILL 


LD 


L.A. 




449C 4P 


82678 




LD 


C,A 


STORE A 


449D MI7 


82168 




LD 


B,7 


RAX. LENGTH 


44»P D» 


• 2**1 


CONT IN 


EXX 






44AI CD49II 


• 21** 




CALL 


49H 


GET CHAR. 


44A) D9 


• 211* 




EXX 






44A4 FEU 


• 212* 




■:? 


1 




44A4 CAC944 


(21)* 




JP 


t.DOKE 


GO IF BREAK FEY PRESSED 


44A9 PEI* 


• 214* 




CP 


ii 


BACK ARROW 


44AB 2115 


• 215* 




JR 


NZ.JMP2 


GO IF OK. 


44AD 79 


*21*( 




LD 


A.C 




44AE AD 


8217* 




XUR 


L 


CHECK A AGAINST L 


44AP 2**A 


• 2168 




JR 


Z.JNPI 


GO IF SANE 


44*1 IB 


92198 




DEC 


DE 




44*2 2B 


I22B* 




DEC 


HL 


PERFORM BACK SPACE- 


44B3 3E2* 


82213 




LD 


A, 32 


SPACE 


44*5 )*•• 


8222a 




LD 


(HL),8 




44B7 12 


822)8 




LD 


IDE| ,A 




44** *4 


• 224* 




1HC 


B 


PICK UP COUNT 


44*9 1*E4 


■ 225* 




JR 


CONT IN 




44** 3E2I 


• 226* 


JRP1 


LD 


A, 32 


•IF CO'JNT-* 


44*0 12 


I227J 




LD 


(de: ,a 




44BE )6II 


■ 228* 




LD 


(HI.! ,1 




44C* 18DD 


6229* 




JR 


CONT IN 




44C2 77 


• 2)** 


JHP2 


to 


!HLj .A 


•PUT NEW 


44C3 12 


• 2)1* 




;.o 


■DEI ,A 


• WORD IN 


44C4 1) 


• 232* 




!NC 


DE 


MEMORY 


44C5 23 


• 23)* 




ISC 


HL 




44C6 85 


• 2)4* 




DEC 


B 


; CHECK COUNT 


44C7 28D6 


• 235* 




JR 


N2.CONT1N 




44C9 36*8 


8236* 


DONE 


LD 


(HL),« 




44CB C3*144 


• 237* 




JP 


DISPLY 






8238* 


;IIIIHHMIIIIItltlt!IIIIIMIIIIII 


44CE 2A 


• 239* 


RES SI 


Km 


'•« ENTER A LETTER AND THEN YOUR CORMAHD. '• 


E ENTRIES. ' 












4337 *« 


62498 




OEFB 


* 




453* 2* 


• 241* 


HESS2 


OF FN 


' •■ COFT8tX438T A 


r».'.L i»B» BY JIM RASTIN »•■ 


45*1 1* 


82428 




Z.LFB 


t 




45*2 666? 


62438 




DIE. 


} 




45(4 l**8 


82446 


END 


orrw 


I 




42E9 


• 245* 




E-. : 


BEGIN 




(•••• TOTAL 


ERRORS 
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By Waldron P. Hodsdon 

Hmmmm. Looks like another "Space Invaders" type game. 
Nice neat ranks of aliens poised over your defensive base 
. . . but WATCH OUT! Here they come, swooping down 
with their bombs and Kamakazi like dives. There are in- 
dividual attackers plus group flights — all intent on de 
stroying your three bases before you destroy them. 

Full sound effects add further excitement to this machine 
language game. The action is fast and furious enough to 
keep you on the edge of your seat for hours on end. 
ALIEN ARMADA allows up to two players and has three 
levels of difficulty from beginner to expert. All for only 
$14.95 ( 16K tape) or $18.95 ( 32K disk) . 

f MAIL ORDERS include $2 00 snipping & handling (0 C r««dtnts add 6% sales tarn 
CHARGE CARD CUSTOMERS. Can (202) 544-6674 tor lasles! service 



y 



THE LIBERTY SOFTWARE OJ 

635 Independence Avenue, S.E. 
61 Washington, D.C. 20003 

(202) 544-6674 




\What 
makes your 

CENTRONICS 

737 or 739 

the better buy... 

the new ETI 

ETI's own microprocessor intelligence 

can put all the power of your 737 or 739 Printer 

at your fingertips... 

ETI's pioneering design (patents pending) allows you to cantrol all 

thi aptieas of this powerful printer with sin pi i cammaads right 

from Basic or the hody of your wordprocessing text 

Provides amiMam priatiaa, spsiri with mainframe-like dedicated 

peripheral control and programmability. 

Canpatlals with most popular wordprocessing packages and 

microcomputer hardware 

Features: 

• access to all six fonts of the 737 printer & graphics on 739 

• true proportional spacing with justification 

• superscript, subscript, underlining 

• user definable spacing, line centering, form feed 

• UPPER/lowercase support also for UPPER-only systems 

• optional use of BASIC as a simple but flexible wordprocessor 

• no additional cables— Centronics- like edge-card connector 
ETI-A:$147 ETI-T: $147 ETI-U:$157 

(Apple* II +) fTRS-80' Mod. I.ll.lll) (all others) 
order now directly from us (check, MO, Visa, MC) 
or your local printer dealer 

iN J. residents please add 5% lax) 

micrOdome 



nasi*' charge 



CORPORATION 

Denville, New Jersey 07834 
PO. Box 392 (201)627-8554 





''Mwmmmmm m 




SCRIPLUS 



Scriplus is a modification to Scripsit' which enables 
you to take advantage of the special functions, 
features, and print formats of your printer while your 
document is being printed. Allows you to: 



change expanded print 
change no. of characters per inch 
or underline in mid-line! 



All in accordance with the capabilities of your printer 
You can change your print size at will! Features: 

1) The user can send commands to the printer to 
activate special formats 

2) Scriplus will not crash programs protected in high 
memory. 

3) "END" returns to DOS READY instead of re- 
booting. 

4) The initial line-feed is changed to a carriage return 
to empty the text buffer. 

5) The user can get an ALPHABETIZED directory 
from within scriplus. 

6) Optionally select automatic line feed after carriage 
return. 

7) Supports custom printer drivers (not included) 

8) Modifies Scripsit/LC or /UC. (MOD I) 

9) Works with MOD I and MOD III! (Including MOD III 
3.1 Scripsit!) 

10) Specifically written for the MX-80, but will work 
on ANY Printer that accepts CHR$ codes for 
control. 



Tape or disk — s 24.95 



(specify) 



— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY. SUITE 104 ■■■■ 
DALLAS, TEXAS 75229 

PHONE (214) 484-2976 aBBBBBBBl 

i*sio»s«.»«i»« MICRONET 70130,203 ^2? Pn««Do«iwincw« 

liriMufttotlaiMlvCap fritf* 



*■ See List ot Advertisers on page 418 
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AMERICAN 



118 SO. MILL ST • PRYOR, OK 74*61 
PHONE (918) 825-4844 



ALL LISTED PRICES ARE CASH DISCOUNTED WE ACCEPT MC. VISA AND COD iREOUIRES CERTIFIED CHECK CASHIER'S CHECK OR 
CASH i FOR CHARGE ORDERS. PLEASE ADD 3°o FOR COD SERVICE PLEASE ADD 5% 
OKLAHOMA RESIDE N TS PLEASE A0O4% SALES TAX 

72K EXPANSION INTERFACES 



• 526 



SPECIAL Ol i ! KIM, 

Due t<> a very special purchase. American 
rtess Computet 5 is able to offer a limited 
number ol Radio Shack' Expansion Inter 
it the low 

i Business Computers guarantees 

Expansion Intel Brand New — 

with in perfect 

■ 



$555 



95 




HARD 



DISK DRIVES., 

> MECABYTES FIXED 

> MECABYTES REMOVABLE 
STORAGE FOR TRS-80 MOD II 



Call or write to American Small Business 
Computers ana let us show you how we can 
give you almost unlimited disk storage on your 
TRS-80 MOD M American Business Com- 
puters features both Cameo and Corvus Disk 
Subsystems with associated software Dealer 
Inquiries Invited. 



OTHER STUFF & ODDS - AND — ENDS 



PAPI R FOR YOUR PRINTER "528 
{ ) 1 2 \ 11 rear off perforations 

and you have ai 8 1 2 x 1 1 "cut sheet" 
3200 sheets ot 15 pound pap< I I W ^"> 



VERBATIM .« 
DATALIFE DISKETTES 

We feel this is the BEST Diskette 

on the market! 

TRS-80 MOD 1 - 29 95 

TRS 80 MOD 11 - 49 95 BOX OF 10 



SOFTWARE 

• 562 
TRS-80COLOR COMPUTER' GAMES 
PACKET MAN 24.95 

METEROIDS 21.95 

COLOR SPACE INVADERS . 21.95 

GAME OF LIFE 14.95 

LUNAR LANDER 14.95 

OTHER SOFTWARE FOR THE TRS-80 
ADVENTURE (DISK VERSION) 

SPECIAL •'•19.95 

OLYMPIC DECATHLON 

(DISK VERSION) 23.00 

NEWDOS 80 (VERSION 2 0) 

MOD I 139.95 

MOD III .139.95 



DISGUSTING!! 



That 's what we think 
ahout the price of 
most good letter 
Quality" Printers Our 
Starwrtter is Bidirec 
i onal and out "specs 
the others - hands 
down 

$1450°°. 



ik__ -==311 






V 



£ 



918-825-4844 

RETAIL STORE-SOUTHWOOD SHOPPING CTR-PRYOR. OK 



ATTENTION: 

CORVUS OWNERS 

American Business Computers NOW 
a fully compatible TRSDOS* 
operating Our System, called 

( ORDOS runsall 10 MB. Revision B 
Corvus drives. The Program in this 
package contains a Master Program 
which will convert a user's operating 
m disk (Version 2.0) to an en 
hanced system capable of the fol- 
lowing 

Completely transparent use of 
the Corvus Hand Disk Drive 
— Complete compatibility with 

existing programs 
- All utilities (except Format and 
Backup, which should not be 
used) will operate normally 

Price $300 00 with manual 

-DEALER INQUIRIES INVITED- 

CORDOS Author Andy Frederickson 

"TM of Tandy Corporation 

"TM of Corvus Systems 



SMALL BUSINESS 



COMPUTERS 



master charge 



118 SO. MILL ST. • PRYOR. OK 74761 • (918) 829-4844 



*TM TANDY CORF 



SUPERPRINTER 

THE EPSON 

MX-80 



^520 




This is the ne* Epson MX-80 Oot matrix printer It does |ust about everything you could 
ask a printer to do-quickly, quietly, reliably In tact, tor OEM installations, the MX-80 may 
be trie smgie best, an -around primer you can buy But that s not the best reason to buy it 

The MX-80 prints bidirectionaiiy at 80 CPS In a user-defined choice ot 40 80. 66 or 132 
columns. And if that's not fasl enough, its logical seeking (unction minimizes print head 
iravei time The MX-BC prints 96 ASCII 64 graphic and eight international characters with a 
tack-sharp 9*9 matrix For a long time Epson printers are known for reliability and the 
MX-80 is no exception But that s not the best reason to buy it. either 

The prmt head has a lifi expectancy of up to 100 x 10 characters . and when it wears out. 
just throw it away A new one costs less than $30 and the only tool you need to change it is 
attached to the end o' your arm The MX-80 is compact, weighs only 12 lbs , and the whole 
unit, including the two stepper motors controlling carnage and paper feeding functions, is 
precisely controlled by an internal microprocessor But even that isn't why you should 
specify the MX-80 

The best reason is this because Epson 
makes more printers than anyone else in IF YOU BUY AN MX-80 AND DON'T 
the world, we can afford to sell each one CHECK OUR PRICE — YOU PAID TOO 
lor a little less MUCH 1 

AW...WHAT THE HECK. 

RAM Memory Chips for the TRS-80 Apple and others 



it is the policy ot American 
Business Computers to otfer 
merchandise at the lowest 
price possible. Several 

months back, we began se - 
mg RAM Memory Chips for 
the TRS-80 tor $45 00 
per set Someone else sold 
chips for $44 00 We sold 
them for $38 00 They sold 
them for $37 95 So we say 
"AW WHAT THE HECK'* 
Let's see the other guys 
beat this price 



$19 



95 



PER 16K SET 



These chips are brand new 
'4116 s" These 200 nano- 
second chips are fully 
compatible with ail TRS-80 
products Instructions 'or 

insertion are included, how- 
ever the dip shunts required 
for converting a 4K Model I 
lo a 16K Model i are noi 
included at this low price 



OKIDATA MICROLINE 80 



PRINTER - $599 



00 



• 522 



The Microime is bunt on a rugged cast alumi- 
num base to withstand the rigors of continuous 
business use it is driven by two motors and 
will run ail day with no duty cycle limitations 
Microime printers use a dense 9x7 dot pattern 
to produce cnsp. dean copies, first copy to last 
The seven pins in the head are "fired" using 
energy stored in tension members This tech- 
nology permits the use of short, low mass pins 
made with an extremely hard alloy The head 
produces less heat, thereby extending its lite 

-^ THE REST OF THE 

FAMILY ! 

OKIDATA MICROLINE 82A — The same as the 
Microime 80 but prints at 120 CPS and has low- 
er case descenders $599 

OKIDATA MICROLINE 63A — The wide car- 
nage big brother to the microime 80 and 82A 
Features both RS 232 and parallel interlaces 
120 CPS bidirectional printing, 9 wire print head 
and adiustabie forms length An excellent 
printer for only $899! 



The EPSON MX-70-SC.li 
The EPSON MX-80 FT-$ Call 

J T ne MX-100 -$C»H 

lALL OTHER EPSON OPTIONS 



IF YOU BUY ANY EPSON 
PRODUCT AND DON T 
CHECK OUR PRICE - 
YOU PAIDT O O MUCH!!! 



Call 918-825-4844 for prices. 



*** + RETROFIT YOUR * 
MX-80 TO AN MX-80FT 

ADD A PLATEN TO YOUR MX-80 
TO ALLOW USE OF LETTER- 
HEADS OR ROLL PAPER $69.95 



DIRT CHEAP ...$265 



But Highly Reliable Yes, our Mini Disk Drives have an estimated 
8000 Power-On Hours Mean Time Between Failure (That's 8 
Hours A Day. 5 Days A Week, for 3 85 YEARS) Our drives also 
feature a lead screw head positioner - not a cheap band-type 
positioner. If you purchase a Mini Disk Drive with a band-type 
positioner, you are buying an INFERIOR PRODUCT! If you have 
any doubts about our drives, our ONE YEAR Warranty should 
convince you that we know this unit is the best drive at the best 
price on the American market This is one example where you can 
pay less and get more -tm Tandy corp 



'TRS-80 MODEL I VERSION 
Complete with Power Supply A Cabinet 



TEAC DRIVES 



• NOTICE' 

TH»S 






7 



• 525 






918-825-4844 




GENERAL 



Stuff variables and $ in USR calls. 



USR Usery 



David H. Freese, Jr. 

Clermont Computer 

Consultants 

RD #7, Box 316 

Cape May Court House, NJ 

08210 



The TRS-80 is perhaps one of 
the most powerful com- 
puters in the under $1,000 
category. It owes its success to 
good hardware design, but 
more importantly to the Basic 
interpreter that Microsoft wrote 
for Radio Shack. The Level II 
version of the TRS-80 can pro- 



vide hours of intrigue and 
fascination to even a profes- 
sional computer programmer. 

Many owners of the TRS-80 
have overcome its one major 
hardware shortcoming — no 
lowercase graphics— with a 
simple and effective hardware 
modification. When comple- 
mented with software patches 
to the keyboard and video 
drivers this modification opens 
the door to word processing 
and other potential uses of the 
computer. 

There will come a time when 
playing the latest store-bought 
game and enduring the speed 
limitations of the interpreter 
does not completely satisfy 
you. More than likely you will 
then begin to explore the real 



M 


DEFINT ft-Z 














20 


input 


-START IMC 


LOCATION 


OF 


SUBROUTINE- 


IS 


36 


S**INT<SS256)i 


SL-S 


-296»SHS 


POKE 16926 


SLt POKE 16527. SH 


40 


REflD 


DJ IF D-- 


THEN 60 










30 


POKE 


S.Ot S-S+ 


: GOTO 40 








60 


INPUT 


"STRING" ;S» 












70 


PRINT 


USR<S»>i 


PRINT l GOTO 


60 






00 


' 
















140 


DOTfl 


90,179.64 


1* 








LD 


fl. (40RFH> 


110 


obta 


294,3 


1* 








CP 


3 


120 


OflTfl 


194,74.30 


! ' 








JP 


HZ. 1E4RH 


130 


OflTfl 


42,33,65 




* 








LD 


HL,<4I21H> 


140 


DflTB 


70 




* 








LD 


0. <HL> 


190 


OflTfl 


120 




* 








LD 


fl.0 


160 


OflTfl 


183 




* 








OR 


fl 


170 


OflTA 


208 




* 








BET 


Z 


100 


DATA 


35 




* 








INC 


ML 


190 


DATA 


94 




* 








LD 


E,<HL) 


200 


DATA 


35 


1 ' 








INC 


ML 


218 


DATA 


86 




* 








LD 


D, <HL> 


220 


OflTfl 


26 




* 




FETCH 


LD 


fl, <HL> 


230 


DATA 


294.97 




* 








CP 


61H 


240 


DATA 


96.6 




' 








JR 


CSflUE 


290 


OflTfl 


294,123 




' 








CP 


70H 


268 


OflTfl 


40,2 




* 








JR 


NC. SflUE 


270 


DATA 


214,32 




* 








SUB 


20H 


200 


OflTfl 


119 




* 




SflUE 


LD 


<DC>,fl 


290 


DHTA 


19 




1* 








INC 


DC 


300 


OflTfl 


16,241 




1* 








DJNZ 


FETCH 


310 


OflTfl 


201 




1 ' 








RET 




320 


OflTfl 


-1 


: ' 








END 




330 


END 


















Program Listing 1. 


Relocatable Basic Version. 



potential of your TRS-80. Your 
mind will turn to such things as 
environmental control of your 
home, Morse Code and/or radio 
teletype transceiving, music 
generation including multi- 
voice orchestrations, and 
perhaps high-speed arithmetic 
processing peripherals. 

All of these applications 
imply the use of controlled in- 
terfaces to the computer. Also 
implied, but not necessarily re- 
quired, is the use of machine 
language programs to drive the 
peripheral device. 



The USR Function 

The Basic instruction man- 
ual provides sufficient informa- 
tion on the USR function to 
allow rudimentary use of this 
Basic call to a machine lan- 
guage subroutine. Let me first 
outline the use of the USR func- 
tion and then describe a way of 
extending its serviceability. 

In Level II Basic there is only 
one allowable USR call. It can 
appear in your programs as: 
100X = USR(N). The starting ad- 
dress of the subroutine called 
by the USR function is pointed 
to by the two-byte vector 
located at 16526, 16527 decimal 
or 408E, 408F hexadecimal. For 
example, if your machine lan- 
guage subroutine began at 
32000 decimal, 7D00 hex then 
you could load the USR vector 
with: 10 POKE 16526 0: POKE 
16527,125 where 125decimal = 
7D hexadecimal. 

The actual subroutine can be 



placed in memory by POKEing 
it in using a Basic program or it 
can be loaded using the System 
call in the executive mode. If 
the System load is to be used, 
then the machine language pro- 
gram must be prepared using 
an editor/assembler or ma- 
chine language monitor. I rec- 
ommend the Radio Shack Edi- 
tor/Assembler, Radio Shack 
T-Bug (machine code monitor) 
and the Small System Software 
RSM (machine language moni- 
tor) for this use. 

In addition to the above, you 
have to designate sufficient 
memory at the top of random 
access memory for the 
machine language programs. 
This is done during the Memory 
Size query interchange during a 
cold startup. Failure to set 
aside sufficient memory will 
result in the Basic Interpreter 
overwriting the machine lan- 
guage program with string data. 

The Basic manual states that 
the parameter (N) that is 
passed to the subroutine must 
be an integer between - 32768 
and +32767. The manual im- 
plies that it is not possible to 
transfer other types of para- 
meters without the use of PEEK 
and POKE statements to tem- 
porary locations that both 
Basic and the machine lan- 
guage programs access. This is 
a self-imposed limitation and it 
is very easy to write machine 
language subroutines that sup- 
port the Basic calling program 
with integer, single, double and 
string operators. The interpreter 
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DEFINT A-Z 










20 


INPUT "STARTING LOCATION" JS 






30 


&*SSZS6t SL"S- 


256-SH 








40 


PfJKE 16526, SLI 


POKE 16527, SH 






50 


READ Di IF 0»- 


T>«IN 70 






60 


POKE S.Di S«S+ 


8 GOTO 


50 






70 


SH-S^256« SL-S- 


256*SH 
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POKE S-27,SL» POKE S-26.SH 1 ' 


tak* cor* of abtolut* »**••*£ f«ftr«nct 


90 


INPUT -EKTER STRING" JS» 






100 


PRINT U5R<S*>: 


PRINT« 


GOTO 90 
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DflTR 33- 175,64 




CAPII 


LD 


HL, <40flFH> 


210 


DflTfl 126 






LD 


fl-CHL) 


220 


DATA 254,3 






CP 


3 


230 


DATA 194,74,30 






JP 


NZ. 1E4RH 


240 


DRTA 42,33,65 


I ' 




LD 


HL,<4121H) 
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DflTfl 70 






LD 


B, <HL> 


268 


DATA 120 






LD 


R,B 


270 


DATA 183 






OR 


R 


280 


DflTR 200 






RET 


Z 


290 


DATA 35 






INC 


HL 


300 


DATA 94 






LD 


E,<HL> 


310 


DATA 35 






INC 


NL 


320 


DflTR 86 






LD 


D. <HL> 


330 


DflTR 33-93,117 






LD 


HL.BUflRP 


340 


DflTR 112 






LD 


<NL>,B 


350 


DflTH 34,33,65 






LD 


<4121H).HL 


360 


DRTfl 35 


c * 




INC 


HL 


370 


DBTH 35 






INC 


HL 


380 


DflTH 35 






INC 


HL 


390 


DRTfl 26 


: ' 


FETCN 


LD 


fl- <DE> 


400 


DflTfl 254,97 






CP 


61H 


410 


DflTR 56.6 


: ' 




JR 


csnuE 
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DflTfl 254,123 






CP 


7BH 
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DflTfl 48,2 






JR 


NC.SflUE 


440 


DflTfl 214,32 


l* 




sue 


20H 
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DRTfl 119 


t ' 


sflue 


LD 


(HL>,A 


460 


DflTfl 19 


I ' 




INC 


DE 


470 


DflTfl 39 


I ' 




INC 


HL 


400 


DflTfl 16,240 


1' 




DJHZ 


FETCH 


490 


DATA 201 


f 




RET 
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DflTfl 


1 ' 


BMP 


DEFB 





510 


DflTfl -1 


I' 




DEFW 


BUF 


320 


END 


1' 


feW 


DEFB 


• 




Program Listing 1a 


Relocatable Assembly Level Version. 



uses a block of memory to either 
pass the parameter itself, or a 
pointer to the location of the 
parameter. 

These locations are not only 
used for the USR function, but 
for all operations requiring that 
a value be operated on or 
passed to another variable. 
These locations are commonly 
referred to as the accumulator 
but have nothing to do directly 
with the accumulator register in 
the Z80 chip itself. 

The Accumulator 

Table 1 shows the location of 
the accumulator for integer, 
single and double-precision 
variables. When a string 
variable is being operated on by 
the interpreter then the ac- 
cumulator is used to transfer 
the variable pointer address 
between routines. In addition 
to the accumulator contents, 
the interpreter uses the loca- 
tion 40AF as a type flag 
register. The contents of the 
type flag register indicate the 
type of data to be found in the 
accumulator. 

The USR parameter N can 
then be a single, double, string 
or integer variable. A simple 
way of demonstrating this is to 
create a do-nothing program 



and then test the USR call with 
the four variable types. Try 
loading the following program: 

100 POKE 16526,0: POKE 16527,125 
110 POKE 32000 201 
120 END 

This creates a return at loca- 
tion 32000 and initializes the 
USR vector to that location. The 
USR call now does nothing, but 
is operative. Now try executing 
the following direct state- 
ments: 

PRINT USR(1) 
PRINT USR(3.14159) 
PRINT USRC'HI THERE") 
PRINT USR(1 23456789.98765) 

In each of the above state- 
ments the interpreter correctly 
displays the USR parameter. 
Now try the following: 

A% = USR(1) 

B = USRI4.2] 

C# = USR<1.23450-8) 

D$ = USRCABC") 

E = USRCDEF") 

The first four statements ex- 
ecute properly since the 
variable type on the left of the 
equal sign is the same as the 
variable type contained within 
the USR function. The last 
statement will not execute and 
the interpreter will return a type 



mismatch error and is returned 
when an attempt is made to 
assign a non-string variable to 
a string or vice-versa. 

Application 

Now that we know that the in- 
terpreter does not disallow the 
use of any valid variable in the 



USR call, let's look at a specific 
application. Nearly all Basic 
language programmers use the 
string variable ability of the 
TRS-80. Have you ever written a 
program line such as: 150 IN- 
PUT"DO AGAIN, Y OR N";A$, 
and then watched as your 
favorite program tester 
bombed the program by press- 
ing shift and y simultaneously 
only to receive the wrong 
response? Foiled again by the 
lack of up per/ lowercase! 

The dilemma is that the 
TRS-80 keyboard driver 
recognizes the difference be- 
tween shifted and unshifted 
alphabetic characters. The 
video driver converts all of 
these to uppercase characters 
and you cannot tell which has 
been entered. This problem can 
be overcome by using a 
machine language subroutine 
that converts a string to all up- 
percase characters. This ability 
is provided by many Basic inter- 
preters and is usually called by 
the operator CAP(S$). 

Program Listing 1 is a Basic 
program that loads a machine 
language subroutine in mem- 
ory that performs the CAP func- 
tion. This subroutine converts a 
string of ASCII characters from 
a mixture of upper/lowercase to 
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Program Listing 2. 
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all uppercase. The resulting 
string is returned in the same 
place as the original. No 
parameters relating to the 
string are changed. 



Operation of this subroutine 
is quite simple. The contents of 
the type flag register (40AF) are 
examined to test for a string 
parameter (lines 100-120). If the 







Location of Variables Passed by USR 


Address 


Integer 


Single 


Double 


String 
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xxx 


XXX 
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xxx 


411E 




XXX 
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-- 


xxx 


411F 
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Table 1 










Note 


xxx indicates unre 
LSBm Is the Least 
of the mantissa 
MSBm is the most 
of the mantissa 


ated data 
significant 

significant 


byte 
byte 










-- indicates intermediate va'ues o' 










the mantissa 














EXP is the value o 


the exponent 

















parameter is not a string, then a 
jump to the function call error 
message (JP NZ.1E4A) is ex- 
ecuted. The location of the 
string variable pointer is next 
loaded into the HL register pair. 
The string length is put in 
register B, and the address of 
the first character in the string 
is put in the DE register pair 
(lines 130-210). Lowercase 
ASCII values are converted to 
uppercase values, and upper- 
case, control and graphic 
characters are left unchanged 
(lines 220-300). This is repeated 
for all characters in the string. 

This subroutine illustrates 
the principles involved in exten- 
ding the USR call to include 
string parameters. It is not yet 
useful enough to place in a 
library of favorite programs. We 
may not want the original string 
to be modified and/or we may 
want to create a new string 
whose elements are the upper- 
case (or lowercase) equivalents 
of the original string. 

Program Listing 2 provides 
just such a program. This 



subroutine differs from the first 
in that a separate block of 256 
bytes is set aside for the con- 
verted string. When the return 
is made to the interpreter from 
the USR function the address 
of the variable pointer in loca- 
tions 4121 and 4122 Hex now 
point to that block of memory. 
This subroutine allows a pro- 
gram statement of the follow- 
ing type: 

200 AS = "ABCDEF": INPUT BS 

210 IF AS = USR(BS) THEN PRINT 

OK - ' 

The string B$ is not altered 
by the USR call, and the test is 
satisfied even if the shift key 
had been held down during the 
entry of B$. The CAP function 
becomes very useful when a 
long list of string data is being 
searched for a match against 
new input. Mailing lists and in- 
ventories are string lists that 
typically contain mixed up- 
per/lowercase entries. Add this 
USR function to programs of 
this type and save yourself 
some heartburn. ■ 



MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS MISOSYSMISOSYS MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS S 
CA 



CA 

>• 
ca 
o 
CA 

5 
CA 

>- 
CA 

8 

CA 

>■ 
CA 
O 
CA 

1 
CA 

> 

O 

(A 



EDflS 3.5 



EDAS is a sophisticated Editor 
and Assembler for TRS-80 I & III 

• All text may be input in upper or 
lower case. 

. Assemble directly from one or 
more disk files via *GET 

• Assemble to disk or memory 

• Binary, octal, decimal, hex, and 
string constants: Multiple con- 
stants may be input on a single 
line 

. CMDFILE utility included. 

• Conditional assembly support. 

• Cross-Reference utility. 

. DOS functions DIR, FREE, KILL, 
and LIST are supported. 

• 14-character labels including 
special chars. "@". "$"."."."?". 

• Editor includes block move, 
global change, renumber, find 

. EDTASM & M-80 source files 
can be read or written 

• Expression evaluator supports 
+, -, *, /, MOD plus logical AND, 
OR, and XOR. 

. Paged & titled listings with page 
numbers and date/time. 

. PAGE. TITLE, SUBTTL. SPACE, 
& COM pseudo-ops supported. 

• Set memory size, page prompt, 
JCL execution. Abort option. 

. EDAS is supported with TRSDOS 
compatible DOSs (LDOS, VTOS). 
. Price is $79.00 + $4.00. S&H. 
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LDOS.Version 5.1 is the Ultimate in Operating 
Systems for the TRS-80 Models I and III. 
MISOSYS is your East Coast Headquarters 
for LDOS, the documented system 1 Version 
5.1 is priced at $169.00 + $5 00 S&H per 
system. Deduct $50 if ordering both. 

LDL1S 5.1 
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CSMBLR 

Complement your assembly language tools with this 
Z-80 disassembler which produces screen, printer, 
cassette, or disk file output. A two pass process 
provides SYMBOLS for 1 6-bit address and 8-bit rel- 
ative references EQUates& ORG are generated. 
Read SYSTEM programs & display load address 
range. $20 (DSMBLR I for non-disk use is $1 5). 

EDAS, CMDFILE DSMBLR Specify Mod I or I II. Add 
$1 S&H+$,50 per program. VA residents add 4%. 




MISOSYS - Dept MU 3 

5904 Edgehill Drive, 

Alexandria, Virginia 22303 

703-960-2998 MicroNET 70140,31 

Dealers Inquiry Invited ^ 221 




DISKMQD 

Turn your Editor Assembler into 
a disk package. This 32 K patch 
modifies EDTASM for DOS op- 
eration. Features? Add full disk 
I/O. block move, global change. 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, & FREE. Upgrade your 
EDTASM! $20. 

THE B00KS 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is inc'ud- 
ed. Volume II tells you every- 
thing you wanted to know about 
the level II I/O— printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKS will save 
you hours of assembler pro- 
gramming Each volume is priced 
at $ 1 4.95 or buy both for $24.95. 
Add $1.50 S&H per book. 
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Hew to Buy or Sell 

Computer Equipment 

and Software 



and come out a winner 




Begin your search In the in- 
dex of Computer Shopper's 
bargain filled pages. Locate 
the category and page 
number of items that 
interest you 




► 



As you outgrow your 
system or want to trade up 
(most dealers won't take 
trade-ins), use Computer 
Shopper ads to sell your 
items to 20.000 readers na- 
tionwide for the low cost of 
10 C3nts per word 




Congratulations, you're a winner whether you buy, sell 
or trade in the computer marketplace by subscribing 
and using Computer Shopper s action yellow pages. 
And for your first bargain, take advantage of a FREE 
issue of Computer Shopper as a "Special Get 
Acquainted Offer." 

Act today and receive your first issue free in addition 
to the $10, one year/12 issue regular subscription. 
Of course, if you are not 100% satisfied, you may 
cancel and still keep the free issue just for trying 
Computer Shopper 

BONUS : New subscribers are entitled to a complimen- 
tary classified ad. Use it for pre-owned equipment or 
software or as a want-to-buy ad. Just print or type your 
ad on a plain piece of paper and send it along with 
your subscription. Your phone will probably start ringing 
before you receive your first issue 

For MasterCard and VISA Subscriptions only, 
CALL TOLL FREE 1-800-32 7-9920 



For MasterCard and VISA Classified Ad orders only, 
CALL TOLL FREE 1-800-327-9926 



If you need help with any 
computer related problem 
whether it's an interface 
problem or advice on the 
right peripheral for a home- 
brew system, use the free 
HELP column especially 
designed for that purpose 



WfZA 



< 



You have the convenience 
of shopping nationwide 
without ever leaving your 
home or office. And if you 
buy out of state you'll save 
on sales tax 




Computer Shopper's easy- 
to-read format makes your 
search quick and simple 
with classifications at the 
top of each column m bold 
black headings 







Start or add to your com- 
puter system by finding 
money saving bargains in 
each month's issue from 
individuals who no longer 
need their personal equip- 
ment 




You've got your computer 
hardware, but what about 
the software 7 Use a Com- 
puter Shopper ad to find 
what you need Someone 
advertising in Computer 
Shopper probably has what 
you want. 




COmPUTSR 5HOPPSR „«a 

P.O. Box F138 • Titusville, FL 32780 
TeleDhone 305-269-3211 



APPLICATION 



LOAD 80 



Use your computer to track the inflating cost of life. 



Procedures Pricing 



Wynne Keller 
Downeast Digital 
RD 1 Box 507 
Solon, ME 04979 



Changing prices are a prob- 
lem for more than the 
pocketbook. They create a 
bookkeeping chore for people 
who need to stay aware of the 
current cost of their product or 
service. Procedures Pricing is 
designed to store pricing infor- 
mation and simplify the chore 
of cost determinations. It was 
written for the purchasing 
department of a hospital but is 
useful in many other applica- 
tions. 

The program stores the cost 
of items used in a procedure or 
product. For example, in a 
hospital each type of surgical 
operation has a supply list. The 
cost of those supplies deter- 
mines the hospital charges for 
the operating room. If the cost 
of any item increases, someone 
must check every procedure us- 
ing that item and alter the cost 
for the procedure. It is repeti- 
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tive work, ideally suited to the 
computer. With this program, 
the user would enter the item 
price increase once, and the 
computer adjusts the cost. 

But hospitals aren't the only 
purchasers that can benefit 
from this program— consider a 
craftsman selling jewelry. Using 
this program, he takes each 
design and enters all the items 
used in it. Then, whenever the 
price of any raw material 
changes, he can enter that 
change and adjust the prices of 
all his jewelry. 

At home, recipes may be con- 
sidered a procedure, and the 
quantity and cost of ingre- 
dients may be entered into the 
program. Then, when a pound of 
ground beef increases, the cost 
of all meals using ground beef 
can be adjusted. Using the pro- 
gram this way is more work 
than it is worth, unless you run a 
restaurant, but it shows the 
many possibilities. 

The Program 

The program requires a 32K 
Model I or III with disk. Data is 



read from random access files 
and search time can become a 
problem if many procedures 
are entered. The quantity a disk 
will hold depends on the 
number of items in each pro- 
cedure, but on a full disk search 
time might be as high as one 
minute. If your computer has 
double density, the search is 
much faster. No more than 50 
items may be included in any 
one procedure, and the total 
number of items allowed is 1 50. 
Model III users should note that 
the arrow keys are used as pag- 
ing command keys, but will 
print on the screen as a bracket 
for the up arrow and slash for 
the down arrow. 

There are four main menu 
choices in procedures pricing: 
Item file maintenance; pro- 
cedure file maintenance; 
printer; and End. 

Item File Maintenance 

The top of the screen during 
the item maintenance pro- 
cedure lists the control keys; up 
and down arrows for paging the 
screen forward or backward, A 



for adding items, D for deleting 
items, E for editing items and * 
for leaving this procedure. 

To begin, press A. The bot- 
tom line of the screen will show 
each item as you enter it. An 
item number must first be 
specified. It is easiest to start 
with one and work up, but up to 
four digits may be entered to 
reflect an inventory code, pro- 
vided each item has a unique 
number. Letters are not accept- 
able. Next the item description 
is entered, with the maximum 
length indicated by asterisks. 
Cost is the final entry, limited to 
six digits, including the 
decimal point. The item is then 
placed in the middle section of 
the screen and the last line of 
the screen will prompt the user 
with "Choice?" 

If an error was made, press 
the E key and the computer will 
request the number of the item 
you wish to change. The item 
will be displayed at the bottom 
of the screen, and new data 
may be typed. To leave the data 
unchanged, press Enter. 

If D is pressed, the item 



number must be specified; it 
will then be cleared from the 
screen. After each operation, 
some top-of-screen choice 
must be specified in order to 
continue. Thus, it is not pos- 
sible to say add and continue 
adding items one after another. 
A must be pressed before enter- 
ing each item. When the screen 
is full, no more material may be 
added until the down arrow key 
is used to clear the screen. To 
exit the section entirely and re- 
turn to the main menu, press 
the asterisk key. All data is 
automatically sorted by num- 
ber when the asterisk is 
pressed. 

Procedure File Maintenance 

It is helpful to have a printout 
of the items file before entering 
procedures. Do this by specify- 
ing main menu choice 3-Printer, 
then pressing I for items list. 

The procedures mainten- 
ance creates a file showing the 
name and quantity of items 
used in each procedure. Then it 
presents the total cost of the 
procedure. Main menu choice 2 
produces a screen with the 
same control keys used in the 
item maintenance section. 
After selecting any choice, the 
procedure number must be en- 
tered. If there are no pro- 
cedures on file, you may start 
with one and continue or use 
special numbers. After the 
number is specified, the com- 
puter searches to see if the pro- 
cedure already exists. If not, 
you are ready to add it. An error 
message is presented if you at- 
tempt to edit or delete a nonex- 
istent procedure. Note the let- 
ter A, D or E will remain in the 
far right-hand corner of the 
screen to remind you which 
mode is being used. 

Add 

The screen for a new pro- 
cedure will show field numbers 
on the far left. The field 
numbers are simply screen 
numbers. Adjacent to them will 
be the item numbers (assigned 
in the item maintenance sec- 
tion). 

To give the procedure a 
name, type - 1 and then type 
the name (limited to 20 



characters). Press Enter and 
the name will be printed near 
the top of the screen. 

To enter items for a pro- 
cedure, type the first field 
number, then enter the item 
number for an item used in the 
procedure, and the quantity 
used. The computer then enters 
the item's description and cost, 
cost times quantity and the 
total for this procedure. When 
the page is full, use the down 
arrow to proceed to the next 
page. To correct an error, 
retype the field number of the 
wrong item and change the 
Item number. To leave the add 
mode, press the asterisk key. 
(Note: Do not use the edit com- 
mand at the top of screen. It 
refers to editing the procedure 
as a whole and does not func- 
tion while the add mode is be- 
ing used.) 

Edit 

When E is pressed, the pro- 
cedure number is requested. If 
the procedure exists, it will be 
displayed and corrections can 
be made by typing the ap- 
propriate field number. Leave 
the edit mode with the Asterisk 
key. To correct prices, the pro- 
cedure is not edited, but only 
the item maintenance file. Prices 
for each procedure using that 
item are upgraded automatically. 

In the delete mode, the pro- 
cedure number is requested, 
then displayed if it exists. A 
question at the bottom of the 
screen asks if this is the correct 
procedure. If it is, answer Y and 
it will be flagged for deletion. A 
procedure flagged for deletion 
may still be recovered by 
editing it. A record flagged for 
deletion will not appear in 
printouts. 



Printer 

The printer menu provides 
several types of useful print- 
outs—lists of procedures, 
selected procedures or items 
on file— an especially helpful 
list when entering or editing 
procedures. 

After changes are made in 
item prices, the user will have 
an opportunity to obtain a print- 
out of only those procedures af- 
fected by the change. If this op- 



tion is not selected at the time 
it is offered, the computer does 
not retain the information and 
the list is no longer available. 

End 

This selection simply returns 
the computer to ready status. 
There is no need to save files as 
a separate command because 
each procedure is saved in- 
dividually when work on it is 
complete. 

Modifications 

This program is a framework. 



Many modifications may be 
needed for various applica- 
tions. The most important 
might be changing the quantity 
to allow decimal values so frac- 
tional amounts of an item could 
still be reflected in the total. 

One section has yet to be 
written: the routine deleting the 
records flagged to be deleted. 
As it is, deleted records will 
stay on the disk indefinitely. 
The only way to remove them is 
to edit a procedure you wish to 
delete and change it to 
something else. ■ 



Program Listing 



1 |PROCEDUR/BAS MOD 03/03/81 

3 ' DOWNEAST DIGITAL 

* ' SOLON, ME 14979 

5 ' 

25 ' - - VARIABLES LIST 

26 'IN( - ITEM! IDS( - ITEM DESC 



MICHAEL R. KELLER 



ICI{ - ITEM COST 



A - ASC/IHSTR 
P2S-USINC(PROC) 



H - WORK LEN 
PROC. DESCRIP. 



INITIALIZE 



27 'X, XI, X2, XT 4 I ■ COUNTERS 

28 'CU - CURSOR SI - FIELD SIZE 

29 "XP IPL- FLAGS PIS - USING! ITEM) 

30 ' RETURN FROM INKEYS 

31 'ES - STRING Ei-SNG PREC 

32 ' 

33 'PROCODES - PROCEDURE CODE I , DESCRIPS 

35 ' FIELD LABELS 

36 'NMS - PROCODES PDS- DESCRIPS ZS-ITEMt t QTY 

37 ' ZtS - TEMP. STORAGE ZS 

38 ' 

39 'IT{ - ITEM t (PROC) Q( . QTY (PROC) 

41 ' 

42 • 
SI ' 

51 CLEARS 

52 CLEAR MEM/2 

53 ON ERROR GOTO 10990 

54 DEFINT A-Z 

56 DIM IN(200), IDS1200), IC!(209), PS(200), IT(50), 0(50), CMS 
0) , PC (200) ,IP(50) , CDS (50) ,QYS(50) 

57 P1S-MIM % x Mlt.ff 

s»| P m"" M MM % * SSMM ,M $ 

59 CLOSE 

60 OPEN'I",2,'ITEMS" 

61 INPUTI2,XP 

62 FOR X-l TO XF 

64 INPUT42, IN(X), IDS(X), IC1(X) 

66 NEXT 

67 XX-XF 
6 8 CLOSE 

72 CLS:PRINT#448, "PLEASE ENTER TODAY'S DATE (MM/DD/YY) :«; 

74 SZ-8 : CU-488 

76 GOS'JB 100 

78 IP MIDS(ES,3,1)<>*/* OR MIDS(ES,6 ,1) <>•/* THEN 74 

80 DATES-ES : XC-1 

82 GOTO 1000 

1»9 ' — NUMERIC INKEYS — 

105 ES-" : E!-0 

119 H-LEN(ES) : PRINTiCU , ES; STRINGS ( SZ-H , 42) ^STRINGS (SZ-H , 24) , CH 
R $ ( 1 4 3 ) ; 

115 DDS-INKEYS 

120 IF DDS-" THEN 115 ELSE CD-ASC(DDS) 

125 IF CD-8 THEN IF H-9 THEN 118 ELSE ES-LEFTS ( ES ,H-1 ) : GOTO 11 

130 IF CD-13 THEN ES-ES+STRINGS (SZ-H , 32) : PRINTtCU+H," '}: EI-V 

AL(ES) I RETURN 

135 IF CD-42 THEN 145 

140 IF CD<58 AND CD>44 THEN 145 ELSE 115 

145 ES-ES+DDS : IF LEN(ES)*SZ THEN PRINTGCU , ES; " " I : E! -VAL( ES) : R 

ETURN 

150 GOTO 110 

200 ' INKEYS 

205 ES-" : E!-0 

210 H-LEN(ES) :PRINTeCU,ES;STRINGS(SZ-H,42) ; STRINGS (SZ-H , 24) ;CHRS 

(1*3); 

215 DDS-INKEYS 

220 IF DDS-" THEN 215 

225 CD-ASC(DDS) 

230 IF CD-8 THEN IF H-8 THEN 210 ELSE ES-LEFTSI ES.H-1 ) :GOTO 210 

235 IF CD-13 THEN PRINT?CU*H," " s : E$-ES*STRINGS (SZ-H , 32 ): RETURN 

237 IF CD-10 THEN ES-DDS : RETURN 

23 8 IF CD-91 THEN ES-DDS : RETURN 

240 ES-ES+DOS 

245 IF LBN(ES)-SZ THEN PRINT»CU ,ES; * *;.- RETURN 

250 GOTO 210 

311 ' CONVERT SUBROUTINE 

30 5 PROCODES -NMS 
319 DESCRIPS-PDS 
315 FOR X«l TO St 

Progrtm continues 
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RAM $18.99 



ONE YEAR GUARANTEE. INCLUDES RAM TEST AND INSTRUCTIONS 

Premium 16K high speed ram lor TRS-80 MODEL lll/l. and COLOR COMPUTER 
MODEL 1 owners add 2 00 (or 2 dip shunts 

COLOR COMPUTER SOFTWARE 

SUPER "COLOR" WRITER 

Ai last 1 ! Fast, lull featured, character oriented word processing tor the TRS-80TM 
COLOR COMPUTER and any printer FEATURES • 32K compatible • choice of 
display color • key beep • help command • words typed 4 words left • tab key • 
repeat key • word wrap around • block move • duplicate 4 delete • global search 4 
replace • quick paging • paragraph scrolling • line scrolling 

SPECIAL FEATURES automatic linking of cassette text files for handsoff 
continuous printing • unique movable window for viewing any part of the text. 

PRINT FEATURES send printer control codes, along with text, to printer • full use 
of printer s special features during normal printing • set margins, line length, line 
spacing, page length, and page spacing within the text for continuous printing • 
automatic centering • right justification • page numbers 4 titles. 
TAPE* $29.95 ROMPAK • $39.95 DISK $49.95 

'Tap* I/O only, not disk compatible. 

SUPER "COLOR" TERMINAL all the features of VIDEOTEXTM and more! Allows 
COLOR COMPUTER to communicate with computers like TRS-80 MODEL lll/l & 
APPLE II etc services like COMPUSERVE via MODEM or RS232 DIRECT! Features 

• upload 4 download basic programs • print or save data to tape • half & full duplex 
TAPE $24.95 ROMPAK $34.95 DISK $44.95 

SUPER "COLOR" BUG examine 4 change memory contents in the color computer 

• step video display to any location including ROM • look at contents of 
ROMPACKS' • access high res graphics 4 create 4 debug machine language 
programs. TAPE AND DOCUMENTATION $19.95 Rom Pah $29.95 

SUPER "COLOR" SKETCHER turns the color computer into a drawing board 
Supports 32K ram • save and load graphics to tape ■ create basic graphics 
programs • print graphics to R S LPVll. R.S.LPVIII and EPSON MX-80 
TAPE AND DOCUMENTATION $24.95 ROM PAK $34.95 

GAMES 

MODEL III / 1 16K AND COLOR COMPUTER EXT/BAS. 

FEATURE QUALITY GRAPHICS AND SOUND! 

ADVENTURE 3-PAK TAPE $24.95 

This TRILOGY OF 3D FANTASY GAMES takes you to the WORLD UNDER THE 
CIMEEON MOON. Engage in ritual combat with tooamoath, narthokc monsters 
and skilled warriors Advance in rank with play experience. Then adventure through 
DAZMAR'S UNDERWORLD OF DOOM to the forbidden ruins of castle argaan. 
Search lor the eye of dazmar while avoiding the sorceror's intricate traps Survivors 
must then negotiate treacherous trails among the perilous peaks ol the ugrek 
moutams to the FORSAKEN GULTCH where the wicked idol awaits restoration. 

VEGAS 5 PAK TAPE $19.95 

The THRILLS OF A VEGAS CASINO at home Five action packed Vegas games for 
up to four players CASINO CRAPS «21 • ONE ARMED BANDIT • UP A DOWN THE 
RIVER • KENO Bank tracks players winnings from game to game • realistic cards 

• regulation tables • boards • authentic sounds • lively graphics • official rules in 
each game 

COMBAT 3 PAK TAPE $24.95 

Three action packed two player games featuring hlelike graphics and sound ol 
LASER FIRE CANNONS, and PHOTON TORPEDOES 

2-1-0 TANK COMBAT five terrains • the experienced arcade player can design 
combat scenario STELLAR BATTLE pilot a flex wing fighter at incredible speeds in 
enemy space taking out dorian tye fighters defending the imperial star fortress 
GALACTIC BLOCKADE maneuver your craft in a course that boxes your opponent 
but avoid cosmic debris and hostile space probes! 

MODEL lll/l SOFTWARE 

REQUIRES 16K MODEL III OR LEVEL II BASIC 
READ THIS! Add graphics to your programs in minutes or draw schematics, 
graphs, logos, pictures, etc with graphics and lettering 4 save them as 
subroutines or programs SUPER SKETCHER does more and works |ust like a text 
editor with graphics • image frames can be edited and animated on screen • 
generate, load 4 save graphics, basic subroutines 4 programs • includes EPSON 
MX-80. RS. LPVll 4 R.S.LPVIII graphics screen print driver and more 
TAPE (TAPE I/O) $14.95 DISK (DISK AND TAPE I/O) $19.95 

SUPER WRITER word processing that combines the best features of other good 
word processors and those of the SUPER COLOR WRITER including automatic 
tape of disk file linking and the movable window feature except B/W display See 
SUPER COLOR WRITER for detans' MODEL l/LU needs lower case mod 
MODEL lll/l TAPE A DOCUMENTATION $49.95 DISK $59.95 

AUTOMATIC MENU SYSTEM power up anc automenu takes over Execute 
programs and command files or LIST. LOAD enter DEBUG. BASIC, or TRSDOS 
with single keystroke! Features options menu with library of commands 
MODEL III DISK A DOCUMENTATION $12.95 

CODES for THE ELECTRIC PENCIL enter printer control codes within text file to 
send to smart printers Includes drivers tor EPSON MX-80. CENTRONICS 737, MPI 
88 SERIES, and file to customize tor other printers TAPE $14.95 

DISK INVENTORY for the MODEL III manage your disk programs. A menu driven 
utility featuring sort 4 print by name, disk, program type, extension, etc. . 
MODEL III DISK $19.95 

TRS-80 is a Registered Trademark of Tandy Corp 



•480 



Master Charge, VISA and C O D 

accepted 

Allow additional 2 weeks tor 

personal checks 

When ordering specify computer type 

Add $3.00 shipping & handling 

MN Res. add 5°/. sales tax 



nELson 

S0FTUMK 

sfifcns 



P.O. Box 19096 
Minneapolis, Minn. 




612/827-4703 



Program continued 

317 IT(X)-CVI(CD$(X-1)) 

319 Q(X)-CVI(QYS(X-1)) 

329 IF IT(X)«8 THEN Xl-X : X-58 

321 NEXT X 

337 POR X-l TO Xl-1 

338 XL-1 : XH-XX 

339 IF IT(X)-IN(XL) THEN XM-XL:GOTO 343 ELSE IF IT(X)-IN(XH) 
THEN XM-XH : GOTO 343 

348 XM-INT((XH+XL)/2) : IF XM-XL OR XM-XH THEN 344 

341 IP IT(X) <IN(XM) THEN XH-XM : GOTO 348 

342 IF IT(X)>IN(XM) THEN XL-XM : GOTO 348 

343 IP(X)-XH 

344 NEXT X 

345 X-l s Xl-1 : CI-B 

358 CI(X)-ICI(IP(X))*Q(X) 

355 Cl-CI+Cl(X) 

368 X-X+l 

365 IP CI (X-l) -8 THEN 375 

378 IF X<51 THEN 358 

375 RETURN 

**t ' PRINT SUBROUTINE 

485 Xl-66 

418 LPRIHTTAB<5) PROCODES;" ";DESCRIP$;" ■ ; : LPRINTTAB( 43) "TOT. 

- 'llLPRINTUSING * $$•*. #»• jCI ; : LPRINT" ".-DATES 

415 LPRINT" ■ 
417 LPRINTTAB(13)"ITEH#";" DESCRIPTION »|" COST 

";TAB(62)"QTY";" EXT" : Xl-Xl-3 

428 X-l 

425 IF IT(X)-8 THEN 455 

438 LPRINTTAB(IB)""; 

435 LPRINTUSINC P2S; X , IT(X) , IDS ( IP(X) ) , IC I ( IP(X) ) ,Q (X) ,C I (X 

448 X-X+l 

445 Xl-Xl-1 

458 IF X<51 THEN 425 

455 LPRINTSTRINGS (XI, 138)i •LPRINT" " : Xl-Xl-1 : IF Xl>8 THEN 4 

55 

468 RETURN 

588 ' PRINTER PAUSE 

585 P$-INKE¥$ 

518 IF PS." THEN 545 

515 PRINT8968,CHRS(38) ; "DO YOU WISH TO (C)ONTINUE OR (Q)UIT?"; 

528 CU-998 : SZ-1 

525 GOSUB 288 

538 IF E$-"C" THEN 545 

535 IF E$<>"Q" THEN 528 

548 XP-1 

545 RETURN 

688 ' OPEN FILE 

685 CLOSE 

618 OPEN"R",l,"PROCODE" 

615 RETURN 

658 ' FIELD PARTIAL REC. 

655 FIELD 1,8 AS NMS 
668 RETURN 

788 ' FIELD FULL REC. 

785 FIELD 1,8 AS NHS, 28 AS PD$ 

718 FOR X-B TO 49 

715 FIELD l,X*4+28 AS DUMMYS, 2 AS CD$(X), 2 AS QYS(X) 

728 NEXT X 

725 RETURN 

758 ' GET A RECORD 

755 GET 1,XR 
768 RETURN 

888 ' PUT A RECORD 

885 PUT 1,XR 
818 RETURN 

988 ' CLOSE FILE 

985 CLOSE : RETURN 

1888 ' ... kakj heuu * • * 

1885 CLS 

1818 PRINT*94,"MENU" 

1815 PRINT«148,"1 - ITEM FILE MAINT." 

1828 PRINTG212,"2 - PROCEDURE FILE MAINT." 

1825 PRINT*276,"3 - PRINTER" 

1838 PRINTM4B,"4 - END PROCESSING" 

1835 PRINT3534, "CHOICE"; 

1848 SZ-1 : CU-541 : GOSUB 188 

1845 IF EI <1 OR El>4 THEN 1848 

1847 IF El -2 THEN GOSUB 688 

1858 ON EI GOSUB 2988, 3889, 4898, 6888 

1855 GOTO 1888 

2888 ' * * * ITEM PILE MAINTENANCE * * * 

2885 X-1:X1-1:X2«1:FL«8:XF-8:XC-1 

2919 CLS:PRINTCHRS(91) ;" - LST PG : "jCHRS(92)j" . NXT PG : * - 

END : (A)DD : (D)EL : (E)DIT" 

2815 PRINT: PRINT" ITEM* DESCRIPTION COST" 

2929 PRINT 

2925 FOR X2-1 TO 19 

2939 PRINT«X2«64+192, USING Pl$; IN(X1) ,IDS(X1) ,IC1 (XI) 

2932 Xl-Xl+1 

2935 NEXT X2 

2949 PRINT«96B,CHR$(3B);"CHOICE :"; 

2845 SZ-1 : CU-969 

2858 GOSUB 288 : A-ASC(E$) 

2855 IF A-18 AND XK299 THEN 2925 

2969 IF A-91 AND Xl>28 THEN X1-X1-2B : GOTO 2825 

2865 IF E$-"D* THEN 2898 

2878 IF E$-"A* THEN 2148 

2875 IF E$-"E" THEN 224B 

2988 IF ES-"*" THEN 2348 

2985 GOTO 2949 

2999 ' DELETE 

2892 FL-1 

2995 PRINT«B96,"D";:PRINTB96B,CHR$(3B) ;"ITEK# :"; 

2198 SZ-4 i CU-966 

21(5 GOSUB 199 i IF El -9 THEN 2949 

2119 FOR X-Xl-19 TO Xl-1 

2115 IF INT(EI)-IN(X) THEN IN(X)-9 : IDS(X)-"" : ICl(X)-9 : X 

F-l 

2128 NEXT X 

2125 IF XF-8 THEN PRINTB972 , "NOT POUND"; : FOR Z-l TO 299:NEXTiP 

RINT8896," ";:GOTO 2949 

2138 Xl-Xl-19 : XF-8 .- PRINTg896," "; 

2135 GOTO 2825 

Program continues 
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on Software for TRS-80 



NEWDOS/80 Version 2.0 

The most sophisticated DOS ever pro- 
duced for the TRS-80" Models I and III. It 
provides the user with "MAINFRAME" 
power on a "MICRO" 

Some Features available are: 

• Jobstream Control Language 

• Mod I Mod HI Diskette mterchangability 

• Double Density Support on Model I 

• Pagenation of BASIC listings on the screen 

• Basic program single stepping 

• Dynamic variable manipulation 

• Multiple array sorts with BASIC CMD 

• Complete technical support provided 

All this plus much more for only 
$149.00 



UNIVERSAL TERMINAL 
PROGRAM 

UNITERM/80 



V. 



By Pete Roberts 
I The intelligent program that takes advantage I 
of the extended NEWDOS/80 commands is I 
here. Supports bo'h Model I & Model III withl 
user defined translation tables, and buffered I 
upload/download capabilities. UNI-TERM/80 1 
supports standard RS-232 or buss decoding I 
modems. Easy way to customize your initial- 1 
zation parameters 
For Model land III $89.00 1 



CHEXTEXT* 

Let your TRS-80* do the proofreading 
on your SCRtPSIT* text files" 

Features of this program include 

• Complete dictionary maintenance in- 
cluding the addition and deletion of 
words. 

• Menu driven for ease of operation. 

• Spelling Checker 

• FREE expanded dictionaries avail- 
able, depending on your drive 
storage capabilities. 

NEW LOWER PRICE $59.95 



THE MICRO CLINIC 

by Dave Stambaugh 
"An ounce of prevention is 
Routine system checkout will help 
prevent that dreaded loss of data, a 
thorough system checkout includes 
both Memory and Disk diagnostics. The 
Micro Clinic offers the most exhaustive 
set of routines known of for the Model I 
or III Don't take chances with your data, 
a routine system checkout is your best 
friend. 

worth a pound of cure." 



Model I version 
Model III version 



$24.95 
$29.95 



ENHBAS 

(Enhanced Basic) 

By Philip A. Oliver 
Manufacturer ■ The Cornsotl Group 

[Adds 50 new functions, statements & com- 
mands to TRS-80 Mod. I & III 

j Examples. 

WHILE'WEND 

3 GRAPHIC COMMANDS 

SEARCH 

WINKEY $ lauto loopsi 

AND MUCH MORE 
I See 'eviews m Nov BYTE & Nov. Dec. 80 US| 
S59.95 



Assorted Items of interest | 


Lazy Writer .Mod 1 disk) 


$125.00 


Lazy Writer iMod 111 disk) 


$175.00 


Meal Master (Mod I & III disk) 


S 24.95 


Scarfman (disk) 


. $ 19.95 


(tape) .... 


$ 15.95 


Flextext 1 (mod 1 & III disk).. 


$ 29.95 


Flextext II (mod II disk) 


$ 29.00 


Big five games (mod I & mi 




disk 


$ 19.95 


tape . . . 


$ 15.95 


NEW! AVAILABLE NOW 


FLEXTEXT/80 (for MX-80 P 


rinters) 


Requ ires Graftrax 


.$ 34.95 


Catalog you* directories 




FILE DISC'80 .... 


. . S29 95 | 



SU PER SPECIAL- ONE MONTH ONLY -50% OFF ON MTC's MOD I DATA MANAGEMENT SOFTWARE 

MTC AIDS III 



The best ol Meta Technologies family ol data management systems This easy 
to use svstem a"ows even a no^i^p TRS-80 jser to create data files custom 
■.on'iyu'ed 'or man, applications ''om us;s fo' -nailing and cataloging ;o 
imaocia 'epo'tmg and time schedjimg Easy to customize withojt program- 
ming it is complete with features lor adding deleting soaing jpdating and 
prmtmg The'ie> tn'-ty will make it one of your mos' usefu' software pu'Chases 
MODEL I Reg. Price $69.95 Sal* Price $35.00 

MTC CALCS-IV 

• More Computations • Save Report Formats on Disk 

• Faster, and more 1 

MTC CALCS Reg. Price $39.95 Sale Price $20.00 



MTC MERGE- III 

Combines jd to MAIDS data files into a smg'e f'l e Duplicates may optonaiiy 
be purged ano sorted orderof reccds is maintained Machine code 'o' speed 
manes this usetu if iarge data f iies are 'o oe created f, om smaller ones 
MOOELI Reg. Price $19.95 Sale Price $10.00 

APPARAT SPECIAL AIDS - III SYSTEM 

AIDS • III + CALCS IV + MERGE - III 
SAVE**Buy all three at one low price 

Model I Reg Price ....$128.85 Sale Price $64.45 

LIMITED QUANTITIES 

AIDS III, CALC IV. & MERGE III are trademarks of Meta Technologies. 



MISCELLANEOUS SUPPLIES 

DISKETTES 

Double density, sott sectored, replacement guaranteed. Spmdie/Hub 
protected i5'«'"onry| 

Verbatim Datalife 5V 40 track $24 95 

Apparats No Name 5V 40 track $2195 

Verbatim Datalife 8" model II $39 95 

PAPER 

8''»"x1 1" blank white, tractor feed paper, full box $24.95 

8'Vx1 1 ' blank white, tractor feed paper, half box $14.95 

1 4Vj"xi 1" green bar, tractor feed paper, full box $34.95 

3'Vx15/16" tractor feed mailing labels $19.95 

OTHER 
(NEW LOW PRICES) 

5' «"' plastic library case $ 195 

8" plastic library case $ 4 95 

SV Flip-sort $21.95 

8" Flip-sort $31.95 

1 6K memory kits $19 95 



Apparatlnc: 



UNPRECEDENTED 90% DISCOUNT SALE 

On MODEL II Commercial Grade Buainaaa Software 

(LIMITED Quantities Aval labia) 



TITLE 


LIST PRICE 


SALE PRICE 


General Ledger 


$300.00 


$30.00 


Accounts Receivable 


$300.00 


$30.00 


Accounts Payable 


$300.00 


$30.00 


Inventory 


$300.00 


$30.00 


Order Entry Processing 


$300 00 


$30.00 


Sales Analysis 


$300.00 


$30.00 


Word Processing 


$400.00 


$40.00 



•AH systems include extensive situation oriented documentation, but is 
supplied on diskette only 

'Above software sold as is and require a minimum of 64K and two 
drives 

(Sorry, but at these reAcuiously low prices our usual software 
support will not apply) 

ADD $3.00 for postage and handling for these items. 



On-going Support for Microcomputers' 



4401 S Tamarac Pkwy • Denver CO 80237 • (303) 741-1778 • (800) 525-7674 

Scipsit & TRS-80 are a registered trademark of Tandy Corporation 
Freight FOB Denver call for shipping charges Foreign Orders shipped Air Freight 



* See L/*f ol Advertisers on page 4 1B 
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COMSOFT 

K E 




TSHARE 2.0 
MULTI-USER SYSTEM 

for the 

MODELS I & 



TRS-80^ 



® 



Powerful addition to NEWDOS80* expands the capacity of a 

single TRS-80 to service TWO active users with full access to 

Newdos80. 

Users operate independently with joint access to disk and up to 

two printers. 

Execute BASIC or ASSEMBLY language (above 7740 Hex). 

2nd user communicates via a TERMINAL, modem, or second 

computer acting as a terminal. 

NEW BUILT-IN FUNCTIONS 

• Communicate between users 

• Execute two programs concurrently 

• Joint execution of single source 
program with separate data areas 

• Open same file by two users 

• Multi-user MINI-DOS 

Requires 32K model I or III with one disk drive and a serial port 

interface (software drivers built-in for RS-232* , HUH-8100* , 

TRS232*.andMPR-232* interfaces) 

SIMPLEX mode for non serial-port users. Requires only expansion 

interface or TRS232 with printer to act as second "screen". 

Jobs share TRS-80 keyboard under user control. 

CONFIGURE utility makes it easy to partition memory between 

users and select I/O modes. 

TSHARE 2.0 for NEWDOS80 $ 99 

Please specify model I or III (Model in available Sep i, i98i| 
TSHARE 1.3 for TRSDOS 2.3/NEWDOS 2.1 $ 89 

TSHARE 2.0 + MPR-232 interface (for non RS 232 users) . . $199 

$ 1 Upgrade privilege for TSHARE 1 .3 licensees 



DDM5 



$79 
MODELS I A III 



MULTI-FEATURE DATA MANAGER 



Up to 20 user defined fields. 

Files extend across multiple 

diskettes. 

Supports up to four drives. 

Automatic single drive disk 

mount requests. 



Four data types and compu- 
tational fields. 

Flexible REPORT GENERATOR. 
Fast assembly language sorts. 
MULTI-FIELD sorts & searches. 
Keyed access on any sorted field. 
Indexed relations between files. 



VIEW 



$19.95 C STOCK 



$49 



A SCREEN FORMATER 
FOR DBM5 

Full CURSOR control 

Protected fields 

User form DESIGN 

File data entry, inquiry, 

4. edit 

Elegant & professional look 



DISK DATA BASE * 

ANALYSIS TOOL 

FOR STOCKS t OPTIONS 

i Regression analysis 

Charts 

Portfolio selection 
1 Risk management 



SERIAL I/O 
MPR-232 



A serial port interface designed to properly connect to TRS.-80 
with or without an expansion interface. 

• Glitch free operation 

• Connects with card edge connector 

• Uses TRS-80 power supply 

• All parameters switch selectable 

• Baud ratee 50 to 19200 
Manufactured by: 
Micro Projects Engineering Co. 
Culver City, CA 

$119 (ASSEMBLED & TESTED) 



TO ORDER 



CcmScf t 



TRS-80 tm 

Radio Shack/Tandy Corp 
NEWDOS tm Apparat. Inc. 
TRS232 tm Small System 

Software 
HUH tm California Computer Systems 



1 569 Westwood Blvd. 

Suite B 

W. Los Angeles, CA 90024 

. 213*494369 



Program continued 

2141 I ADD ITEM 

2142 FL-1 

2145 FORX-X1-10 TO Xl-1 

2150 IP IN(X)-0 THEN XF-X : X-Xl 

2155 NEXT 

2161 IF XP-0 THEN PRINT«96B,'THIS PAGE IS FULL! *| : FORZ-1TO200 :NE 

XT:PRINT*896," "i:GOTO IM 

2165 PRINTl»960,CHRSi3B) ;"ITEMI :"i 

2178 SZ-4 : CU-966 

2175 GOSUB Iff 

2181 IF El«0 THEN XF-0 : GOTO 2I4t 

2182 IN(XF) -IOT(El) 
2185 PRINTB972,*DESC :"; 
2190 SZ-20 : CU-979 

2195 GOSUB 200 : IDS(XF)-ES 

2200 IF ES-STRINGS<20,32) THEN 2185 

2205 PRINT?1000,'COST :*; 

2210 SZ-6 : CU-1006 

2215 GOSUB 100 

2220 ICHXF1-E1 

2225 XF-0 : Xl-Xl-10 

2230 PRINT$960,CHR$(30) , : PRINTJ896,' "; 

2235 GOTO 2025 

2240 ' EDIT 

2242 FL=1 

2245 PRINT*960,CHR$(30) ;'ITEM t ■ ; : PRINT«896 , "E" J 

2250 CU-966 : SZ-4 

2255 GOSUB100 

2260 IF EI-0 THEN PRINTP896," " ; : GOTO 2040 

2265 FOR X- Xl-10 TO Xl-1 

2270 IF El-IN(X) THEN XF-X: X-Xl 

227 5 NEXT X 

2280 IF XF-0 THEN PRINT«972 , "NOT FOUND";: FOR X-l TO 200:NEXT|PR 

INTSB96," ■:GOTO2040 

2285 PRINT8972,*DESC:*: 

2290 CU-979 : SZ-20 

2295 GOSUB 200 

2300 IF E$OSTRINGS(20,32)THEN IDS(XF)-ES 

2315 PRINT01000,"COST ;•, 

2310 CU-1006 : SZ-6 

2315 GOSUB100 

2320 IF EIO0 THEN IC1(XF)-EI : PC-1 : PC (XC) -IN(XF) : XC-XC + 1 

2325 PRINTJ896,CHR$(31) ; 

2330 Xl-Xl-10: XP-0 

2335 GOTO2025 

2340 ' END 

2342 IF FL»0 THEN 2430 

2345 FOR X-200 TO 1 STEP-1 

2350 IF IN(X)<>» AND FLO0 THEN XF-X : FL-0 : X»l 

2355 NEXT 

2360 X-l 

2365 IF IN(X)O0 THEN 2400 

2370 F0RX2-X TO XF 

2375 IN(X)»IN(X + 1) 

2380 ID$(X)-ID$(X*1) 

2385 ICI(X)-ICI (X+l) 

2390 NEXT X2 

2395 XF-XP-1 

2400 IF X<XF THEN X-X+l : GOTO 2365 

2402 GOSUB 2S00 

2405 OPEN "0", 2, "ITEMS" 

2417 PRINTJ2, XF 

2410 FOR X-l TO XF 

2415 PRINT#2,IN(X) ;CHRS(34) ; IDS(X) iCHRS (34) ; IC1 (X) 

2420 NEXT 

2422 XX-XF 

2425 CLOSE 2 

2427 XC-XC-1 

2430 RETURN 

2500 ' 



IF XOl THEN GOSUB 5001 



250S 

2510 

2515 

2520 

2525 

2530 

2535 

+ 1) 

2540 

2545 

2550 

2555 



1 ITEM SORT SUBROUTINE - - - 

CLS : PRINT«400, "SORTING" 
POR X»l TO XP-1 
F"0 

FOR XD»1 TO XF-X 

IF IN(XD*1)>-IN(XD) THEN 2550 
TN»IN(XD) :TD$-ID$(XD) iTCI-ICl (XD) 
IN(XD)-IN(XD*1) :ID$(XD)-ID$(XD+1) :ICI (XD)-ICI (XD 



(A 



IN (XD+1 ) «TN ! IDS (XD+1 ) -TDS : IC 1 (XD+1 ) -TC I 
P-l 
NEXT XD 

IF F-0 THEN X-XF-1 
2560 NEXT X 
2565 RETURN 
2999 ' 
3iM ' • • • PROCEDURE FILE MAINT • • * 

3006 FL-0:KS- ,, :PROCODES-"*:DESCRIPS-"":CI-0 

3007 FOR X-l TO 50 

3008 IT(X)-0:Q(X)-0:IP(X)-0:CI(X)-0 

3009 NEXT 
3015 CLS 

3020 PRINTM,CHRS(91) j "-BKWRD : " ;CHRS (92) , "-FRWRD : *-END 
)DD : (D)EL : (E)DIT"> 
3025 CU-62:SZ-1 
3030 GOSUB200 

3035 IF ES-"«" THEN GOSUB 900 : RETURN 
3040 A-INSTR(1,"ADE",ES) 
3045 IF A-0 THEN 3030 
3050 PR I NT #6 4, "PROCEDURE I"; 
3055 CU-76:SZ-7 
3060 GOSUB100 

3065 RC-0 

3066 PROCODE$-E$ 

3067 GOSUB 650 

3068 XR-1 : IF LOF(l) 

3069 GOSUB 750 

3070 IF PR0C0DE$-LEFT$(NMS,7 
3075 

3071 IF XR-LOF(l) THEN RC-4 

3072 XR-XR+1 

3073 GOTO 3069 

3075 IF RIGHTS(NM$,1)-"** THEN RC-1 

3080 IF RC-4 AND A-l THEN GOSUB 700 : GOTO 3170 

3085 IF RC-0 OR RC-1 THEN IF A-l THEN A-3 : GOTO 3120 ELSE 3120 

3095 FOR X-l TO 5: PRINTM6I , "•** PROCEDURE NOT ON FILE •«••/ 

3100 FOR XT-1 TO 100:NEXT XT 

Program continues 



1 THEN RC" 



GOTO 31 



THEN GOSUB 700 :GOSUB 751 
GOTO 3080 



GOTO 
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Program continued 

3185 PRIHT#44B,CHR$(3«) j 
3107 FOR XT-1 TO 111 t NEXT XT 
3111 NEXTX 
3115 GOT03B25 

3128 ' CONVERT 

3125 GOSUB 788 s GOSUB 3M 

3167 ■ DISPLAY 

3170 X-1:X1-1:X2-1 

317S PRI HT|1 28 ," PROCEDURE : "iDESCRIPS; rPRINT«75,*TOT-*; t PRINT 

USING *$$##. II-jCI 

3161 PRINT8192,* ITER I DESCRIPTION COST 

QTY EXT ". 
3185 POR X2-1 TO If 

3198 PRINT0X2*64*192, USING P2$;X1,IT(X1) ,IDS(IP(X1) ) ,ICI (IP(X 
1)).0(X1),C!<X1)» 
3195 Xl-Xl+1 
3288 NEXT X2 

3282 IF A-2 AND RC-8 THEN GOSUB 3588 : GOTO 3888 

3285 IF RC-1 THEN PRIHT8986 . '*** THIS RECORD IS FLAGGED POR DELE 
TION **•■• 

3287 ' FIELD ENTRT 

3218 PRINT896I,* FIELD!*; 

3215 CU-968:St-2 

3228 GOSUB200 

3225 IF E$-*» ' OR E$»* ** THEN IF FL-1 THEN GOSUB 3388 :GOTO 38 

88 ELSE 3888 

3238 B-ASC(ES) 

3235 IF E-18 AND XK58 THEN 3185 

3248 IF E-91 ANO Xl>28 THEN Xl-Xl-20: GOTO 31B5 

3245 FL-1 i E1-VAL(E$) 

J246 IF (A»l OR A»3) AND EJ>1 THEN IF IT(B!-1)=0 AND E1>1 THEN 3 

218 

3247 IF El>58 THEN 3215 

32S8 IF E!>8 THEN 3285 ELSE IF E!-0 THEN 3215 

3255 PRINT8968, 'PROCEDURE t"; 

3268 SZ-20:CU-979 

3265 GOSUB 288 

3278 PRINTC96S ,CHRS ( 38 ) i 

327S DBSCRIP$»ES 

3288 PRINT#141,STRINGS(28,32) jxPRINT#141,E$;:GOT03218 
3285 IF Et> Xl-1 OR EK1 THEN 3218 ELSE XE-CINT(El) 
3298 PRINT«97S,*ITEMIi "» 

3295 SX=4:CU-982 

3388 COSUB1B8 

3385 IT(XE)-E1 

3318 PRINT#99B,'QTYs "j 

3315 S2-3! CU-996 

3321 GOSUB10I 

3325 Q{XE)-EI 

3338 X2-VAL ( RIGHTS (STRS(XE) ,1)> 

3335 IF X2-8 THEN X2-U 

3336 FOR X3-1 TO 208 

3337 IF IT<XB)-IN(X3) THEN IP(XE)-X3 ; X3 - 288 

3338 IF IN(X3)-8 THEN X3-200 

3339 NEXT X3 

3349 CJ{XB)-ICI(IP(XB))*Q(XE) 

3342 Ci-8 

3345 POR X-l TO 51 

3355 Cl-Cl+CIU) 

3368 NEXT X 

3365 PRINT«175,"TOT. »•, jPRINTUSING* $$•».*»•; rC! . 

3378 PRINT«X2*64+192,CRR$(3S)MPRINTUSING P2$jXB; IN(IP(XE) ) »IDS( 

IP(XE)) iICI (IP(XB) ) |0(XE) «CI (XB) ) 

3375 PRINTI968,CHR$(3I)ijGOTO 3218 

3388 ' RECORD 

3385 IF A«l THEN XR»L0F(1)*1 

3387 IF RIGHT* <PROCODB$,l)-**" AND A=3 THEN KIDS (PROCODES, 8,1)-* 

3398 LSET NMS-PROCODES 

3395 LSET PD$-DESCRIPS 

3488 POR X-l TO 56 

3485 LSET CD$( X-l) «HXI$(IT(X)) 

3418 LSET QY$(X-1) •KKIS(Q(X)) 

341S NEXT X 

343S GOSUB 860 

3450 RETURN 

3500 • DELETE PROCEDURE 

3502 PRINT6896, * IS THIS THE PROCEDURE TO DELETE ? * 

3S05 CU-956 i SI*1 

3519 GOSUB 200 

3515 IP EJO-T' THEN 35S0 

3520 HID$(PROCOD£$,8,l)-'** i Xl-1 
3522 GOSUB 3388 

3525 PRINT8896,CHR$(36)| 

3536 FOR X-l TO 166 : NEXT 

353S PRINT891B," • * PROCEDURE DELETED * •*» 

3546 FOR X-l TO 166 » NEXT 

3545 IF XK5 THEN Xl-Xl+1 t GOTO 3525 

3558 RETURN 

4000 • »•« PRINT *** 

4005 CLS 

4016 PRINT820, 'PROCEDURE PRINTOUT' 

4015 PRINT* • » END i A - PRINT ALL : I = ITEMS 

EDURES "; 

4020 SI=1:CU=126 

4025 GOSUB200 

4030 IF ES-"*' THEN RETURN 

4635 IF ES-'S* THEN 4125 

4637 IF E$-"I* THEN 4225 

4646 IP ESO'A" THEN 4826 

4645 ' PRINT ALL 

4856 IF PEEKU4312K127 THEN 4875 



S = SELECT PROC 



4855 PRINT«4B8," 
4860 SZ-ltCU-440 
4865 GOSUB2B8 
4876 GOT0485B 
4875 GOSUB 680 



PLEASE PREPARE PRINTER***' 



GOSUB 796 : XR-1 



4888 IF LOP(l)<XR THEN 4115 

4885 GOSUB 756 : IP RICHTS(NH$,1) . 

4890 GOSUB 300 

4095 GOSUB 400 

4100 GOSUB 500 

*1«S XR « XR+1 

4118 GOTO 4080 



IF XP-1 THEN XP-8 : GOTO 4115 



Program continues 




Dough flo (do 'flo) n. [Colloq] a highly inter- 
active business or home finance program, 
designed to instantly analyze where the hell 
all that money went. 



Ooughllo. It's a business program. H's a home lira 
your breath), "an expenditure oriented data base 
best ol all. it's aasy to use 

What tha hack does Doughflo do? Lois 



nee program. Ooughllo Is (now hold 
managamenl system." (Whew.) But 



Sec 

Ideal 

Is able to search. . 

checks, over any 

descriptions 



sis ol business o« home cash llow (Flo'') 
see with up to 26 user defined categories 
ol home and business expenses lor tax. Social 



taxes 

ce hard copy ol any number ol items and 
. categories, amounts, vendors or 



Be your own business analyst' Virtually obsoletes a bookkeeper, because your com 
puter does the work lor you. Use Ooughllo to... 

• Instantly retrieve up to 450 records at a time without lime consuming disk 
access 

• Easily generate detailed reports ol all expenditures 

• Satisly your boss. wile, (husband''), or yoursell that you know how wisely 
(or loolishly) money is being spent 

Exceedingly simple to use (we tested it on simple people!), now there is no excuse 
not to know where the hell you lost all that money, whether it was last year or last 
month. Best ot all. maybe now you'll be able to save some of that dough tor the 
future! Requires 32K and one or more disk drives. Specify Model I or III. At only 
S39.95 postpaid, it's a steal sure to save you money! 



P.O. BOX 597 FORESTVILLE. CA 95436 
24 hr. phone (707) 887-7237 £3 ^ 



PERFECT 
CLOAD 



TIME"* 

ALPHANETICS TRS-SO TAPE DIGITIZER 

' t rom a re»ie m in l he September Oclobe' IftaO Elementary Electronics. Reprint* available upon request 

At last there Is a cure lor TRS-80 tape cloading blues For over three years. Alphanetlcs 
has been selling the TRS-60 Tape Digitizer, a proven hardware solution lor your software 
problems. No longer need you juggle the recorder's volume control endlessly, trying lor 
a perfect cload of a pre-recorded program. Just pop the tape into the cassette recorder, 
process the signal through our digitizer, and you're ready to RUN a perfect load! 

Just check out the Tape Digitizer's features.. 

independent of volume control 
setting, 
lows copying system and normal tapes without using 
akes a perfect digital copy ol any tape, without ■ 
moving hum. noise, and cures minor dropouts 
■esette switch allows manual control ol cassette recorder, 
computer control. 

lood Data'' indicator easily enables setting proper volume, doubles as 
tape monitor. 

C powered — no batteries to replace 
rjused in a sturdy, attractive metal case 
ampietely compatible with level I * II. also LOW speed Moi 

le to the Alphanetlcs Tape Digitizer and feed your com 
the TRS 80 gave your tape. Get rid o I your tape bugs 



u-' See List ot Advertisers on page 413 




"Simply the Best" 

Service 
Technologies 

Centronics Printer Sale 

Completely Refurbished, 30 Day Warranty 

Model # 

101 165 c.p.s.. 132 print positions. 5 x 7 dot matrix, 

areal work horse only $449.00 

101 A Same as above with the added features of 9 x 7 
dot matrix and USASCII 95 character 

only $549.00 

101 AL Added Bells and Whistles. All the features of the 
101 line plus LSI only $749.00 

102A 330 c.p.s., 125 L.P.M. bi-directional print 9 x 7 dot 
matrix only $949.00 

"306 The best of Centronics line at the best price, 

compact, 120 characters per second. 5x7. VFU. 
top of form and more only $689.00 

Quietizer covers available for this model only 

only $ 89.00 

501 120 c.p.s., 30 L.P.M. at 132 character lines, 150 

L.P.M. at 30 character lines, 5x7 dot matrix. 
sprocket feed, motor control only $649.00 

503 120 c.p.s., sister to the 501 with bidirectional 

print at twice the speed only $749.00 

• Print stands available for all models only $ 70.00 

• Paper catchers for all models only $18.00 



Options 



• Add lower case to most 
Centronics Printers only $89.00 

• Add Motor Control to your 
779 printer only $95.00 

Our Conversion Kit I gives most 
Centronics printers the ability 
to print in upper and lower 
case $89 00 

Our Conversion Kit II turns 
your motor on and oft auto- 
matically Increases the life of 
your printer $95 00 
Both kits require NO soldering, 
etch cuts, software mod. or 
interface. Easy Installation. 



Interfaces 

• Now use your Centronics 
Parallel Printer on any Computer 
with a serial Port. Available in 
four models all with switchable 
baud rates. 
Model 
CSP • 100 

No buffer only $175 00 

CSP - 200 

256 char buffer only $225 00 
CSP - 200X 

Xon/Xoff Protocol only $340.00 
CSP - 2000 

2048 char buffer only $395 00 

Many More Interfaces Available 




To order Call 603-883-5369 
Service Technologies 
32 Nightingale Rd. 
Nashua, N.H. 03062 




Visa and Master Charge accepted 
Inquiries Always Welcome 

Shipping and Handling Extra 



►^297 



Piogi 



ntmuea 



goto 4000 



-SELECTED PRINT- 
NEXT X 



IF XP-1 THEN XP-0 : GOTO 4115 



GOTO 4 0(1 



-SELECTED PRINT- 
NEXT X 



4115 GOSUB 900 

4125 '-- 

4127 FOR X-l TO 40 : PSIX)' 

4130 CLS 

4135 PRINT-ENTER PROCEDURE I IS) TO PRINT (MAX-40): ENT 

END"; 

4140 CU-128:X2-l:SZ-7 

4145 GOSUB100 

4150 IF LEFTS(ES,1)-"*" THEN 4175 

4155 P$(X2)-ES+" " 

4160 CU-CU+16 

4165 X2-X2+1 

4170 IF X2<41 THEN 4145 

4175 RC«0 

4180 GOSUB 600 : GOSUB 700 : XR-1 

4185 GOSUB 750 

4190 FOR X3 ■ 1 TO X2-1 

4195 IF P$(X3)»" OR PS(X3)ONKS THEN 4210 

4200 GOSUB 300 : GOSUB 400 : GOSUB 500 

4202 IF XP • 1 THEN XP - : GOTO 4220 

4205 PS(X3)-" : X3 - X2-1 

4210 NEXT X3 

4215 XR - XR+1 : IF LOF(l) >- XR THEN 4185 

4220 GOSUB 90 : GOTO 4000 

4225 ' PRINT ITEMS 

4229 L-S ■ X-l 

4230 LPRINTTABI IS) "O.R. PROCEDURE ITEMS"; 
4235 LPRINTTAB(60) DATES 
4240 LPRINT " 'iLPRINT' " 

4245 LPRINTTABI 5) "ITEM* DESCRIPTION 

4250 LPRINTTAB(5) STRINGS (60 ,45) ; : LPRINT* ' 
4255 IF L>50 THEN LPRINT STRINGS (67-L, 138) : L-2 : GOTO 
4260 IF INlXi-4 THEN 4000 

42C5 LPRINTTAB(S)";:LPRINTUSINGPlSiIN(X) (IDSIX) ;ICI(X) 
4270 L-L+l i X-x-1 
4275 GOTO 4255 
4080 IF LOF(l)<XR THEN 4115 

4085 GOSUB 750 : IF RIGHTS (NMS, 1 ) -■•• THEN 4105 
4090 GOSUB 300 
4095 GOSUB 400 
4100 GOSUB 500 
4105 XR - XR+1 
4110 GOTO 4080 
4115 GOSUB 900 

4125 ' 

4127 FOR X-l TO 40 
4130 CLS 

4135 PRINT-ENTER PROCEDURE t (S) TC PRINT (HAX-40): ENTER * TO 

END* i 

4140 CU-128:X2-l:SZ-7 

4145 GOSUB100 

4150 IF LEFTS(ES.l)-"*" THEN 4175 

4155 PS(X2)-ES+* " 

4160 CU-CU-16 

4165 X2-X2+1 

4170 IF X2<41 THEN 4145 

4175 RC-0 

4180 GOSUB 600 : GOSUB 700 : XR-1 

4185 GOSUB 750 

4190 FOR X3 - 1 TO X2-1 

4195 IF PS(X3)-"* OR PS(X3)ONMS THEN 4210 

4200 GOSUB 300 : GOSUB 400 : GOSUB 500 

4202 IF XP - 1 THEN XP - : GOTO 4220 

4205 P$(X3)"" : X3 - X2-1 

4210 NEXT X3 

4215 XR - XR+1 : IF LOF(l) >- XR THEN 4185 

4220 GOSUB 900 : GOTO 4000 

4225 ' PRINT ITEMS 

4229 L-5 : X-l 

4230 LPRINTTAB(15) *O.R. PROCEDURE ITEMS*; 
4235 LPRINTTABI 60) DATES 

4240 LPRINT * *:LPRINT* * 

4245 LPRINTTABI 5) "ITEM* DESCRIPTION COST* 

4250 LPRINTTABI 5) STRINGS (60 , 45) ; : LPRINT" " 

4255 IF L>50 THEN LPRINT STRI NGS (67-L,138) : L-2 : GOTO 4245 

4260 IF IN(X)-0 THEN 4000 

426 5 LPRINTTABI 5) "l : LPRINTUS1 NGP1 S; IN (X) ; IDS |X) ; IC 1 ( X) 

4270 L-L+l : X-X + l 

4275 GOTO 4255 

5000 ' ... print CHANGED PRICES • * ■ 

5005 CLS 

5010 PRINT'DO YOU WISH TO PRINT UPDATED PROCEDURE SHEETS (Y/N)?* 

5020 SZ-1 : CU-62 

5025 GOSUB 200 

5030 IF ESO'Y* AND ESo"N" THEN 5020 

5035 IF ES-*N* THEN 5125 

5040 IF PEEKI14312) >127 THEN PRINT?400 , "PRINTER NOT READY":GOTO 

5040 ELSE PRINTP400,CHRS(31) ; 

5045 GOSUB 600 : GOSUB 700 : XR-1 

5050 IF LOFUXXR THEN 5130 

5055 GOSUB 750 : IF RIGHTS (NMS, 1 )-"* " THEN 5120 

5085 GOSUB 300 

5090 FOR X-l TO 50 

5095 FOR Xl-1 TO XC 

5100 IF IT(X)-PC(X1)THEN GOSUB 400 : X-50 : XI -XC 

5105 IF IT(X)-0 THEN X-50 : Xl-XC 

5110 NEXT XI 

5115 NEXT X 

5117 GOSUB 500 

5118 IF XP-1 THEN XP-0 : GOTO 5130 
5120 XR - XR+1 : GOTO 5050 

5125 ■ 

5130 GOSUB 900 : RETURN 

6000 ' • * • END PROCESSING • • • 

6005 CLS 

6010 GOSUB 900 

6020 END 

10000 ' ERROR TRAP 

10001 IF ERR/2 + 1054 THEN 10005 

10002 IF ERLO60 THEN 10005 

10003 CLS:PRINT:PRINT"PRESS (C)TO CREATE 'ITEMS' FILE" : INPUT'PRE 
SS (E) TO END PROGRAM'jASrIPASO'E'ANDASO'C'THEN 10003 

10004 IF AS-"E-THEN END ELSE OPEN "O' ,1 , 'ITEMS' : RESUME 68 
11105 PRINT "ERROR t = '; ERR/2+1, • " LINE I'j ERL 

10010 INPUT 'PRESS <ENTER> TO CONTINUE" ;AAS : RESUME 
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INTRODUCING PMC-81 




A New "Workalike" Computer In The PMC-80 Family 



The PMC-81 is a disk oriented computer 
which maintains software compatibility 
with the disk-based Level II TRS-80* 
Model I computer as well as its sister 
PMC-80. 

The PMC-81 starts with 16K of memory, 
14K of ROM, utilizes a Z-80 micropro- 
cessor and contains a complete stand- 
ard keyboard, built-in amplifier and 
speaker for sound, cassette interface 
and video monitor interface. Like the 
PMC-80, the PMC-81 uses the same 
EXP-100 Expander to add 32K more 
memory and interfaces for mini floppy 
disks, printer, RS-232C and S-100 bus. 

As a workalike computer, the PMC-81 
offers some extras over the original TRS- 
80 Model I. First, the PMC computers 
are still in production and being sold as 



brand new units with software compati- 
bility to all previous Model Is. Second, 
we offer S-100 bus interface as an option 
in our Expander. Third, our PMC-81 has 
a user callable keyboard routine that 
provides upper and lower case charac- 
ters with an identifiable blinking cursor 
for each case plus automatic repeat for 
each key and a print screen command. 
Fourth, the PMC-81 has both a Host and 
a Dumb Terminal routine in the ROM 
which work with the optional RS-232C 
interface in the Expander to permit 
communication between two PMC-81s. 
The Dumb Terminal routine also may be 
used to communicate with timeshare 
networks or with bulletin boards. 

Best of all, the price for either the PMC- 
80 or PMC-81 is below the price of our 
competitors offering. 

"TRS-80 is a trademark of Tandy Corp 



^422 



Personal Micro Computers, Inc. 

475 Ellis Street, Mountain View, CA 94043 (415) 962-0220 



UTILITY 



Hand-holding software for neophyte operators. 



Ready— For the Model II? 



Jim J. Barbarello 
R.D. 1, Box 241 H 
Tennent Rd. 
English town, NJ 07726 



REM* 
REN* 
REM* 
REM* 
REM* 



The TRS-80 Model II is an 
amazing machine for some- 
one used to dealing with the 
limitations of a Model I cas- 
sette-based system. But this 
became a love/hate relationship 
for me after my most valued disk 
was destroyed. 

I discovered two important 
points about a disk system the 
hard way: 

• Never insert a new disk and 
forget to initialize. Unlike the 
Model I, the Model II will not 
know where it is and may write 
over your most prized programs 
or data files. 

• Never leave disks in the drives 
all day. 

This second point may seem 
obvious but nowhere in the 
Model II literature could I find 
any such warning. I was given 
this advice from the local Tandy 
Computer repair specialist. 

In setting up the Model II for a 
medium-sized office, I decided 
to use three main disks contain- 
ing the most commonly used 
programs. By naming the pro- 
grams with suitable acronyms, I 
hoped that the most inexperi- 
enced operator could step up to 
the machine and use it. This ap- 
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proach worked very well for a 
month or so. Then the computer 
broke down, or so I thought. The 
true culprit was uncovered by a 
visit of the area field service 
manager. 

The service manager put my 
machine through its paces. 
Nothing was wrong! After some 



discussion and a look at some 
of my disks, the answer was evi- 
dent. The disks had been physi- 
cally damaged. 

The Model I and Model II disk 
systems are significantly differ- 
ent. Model II disks are contin- 
uously spinning while in the 
drive and are constantly being 



"READY" PROGRAM 

TO ALLOW RUNNING OF PROGRAMS AND DISK INITIAL- 
IZATION BY OTHER ■''HAN EXPERIENCED OPERATORS... 
WRITTEN BY JIM LakBAFELLO - AUGUST 14,1988 



100 DEFSTR A:0N ERROR GOTO 2580 

7-dd SYSTEM *DIR":CLS: GOTO 508 

388 PRINT8{5, 22) , "THERE IS NO DISK IN DRIVE * 8.*:PRINT 

488 FOR 1-1 TO 28B:NEXT: PRINT* (7 , 25) , "ASK FOR ASSISTANCE" j : FOR I 

-1 TO 1B8:NEXT:PRINT«(7,25) .STRINGS ( 28 , 32) :GOTC 488 

588 CLS i PRINT? (18, 24) , 'REMOVE DISKS IN DRIVES »1 AND I2":PRINT8( 

12,38) , "PRESS *;CHRS(26) ; "ENTER"(CHRS ( 25) j" WHEN READY": 

688 A-INPUTS(l) 

788 SYSTEM'DIR 1 " : CLS 

888 PRINT«(5,22) ,;:PRINTCHR$(26) j'DISK IS STILL IN LKIVE I 1. PL 

EASE REMOVE. ': PRINTCHRS I 25) : PRINTi PRINTTAB ( 38) ('PRESS "(CHRS126) 

("BNTER"(CHRS(25) ;" WHEN READY'; : A-INPUTS(l) :GOTO 788 

988 SYSTEM'DIR 2":CLS 

1888 PRINTe(5,22) ,;:PRINTCHRS(26) ("DISK IS STILL IN DRIVE I 2. P 

LEASE REMOVE. ": PRINTCHRS ( 25) : PRINT: PRINTTAB ( 3B) ; "PRESS ')CHRS(26 

); "ENTER" ;CHRS( 25) ; " WHEN READY" ; :A-INPUTS ( 1 ) :GOT0 988 

1188 PRINTSUB, 38) , "DRIVES 1 AND 2 ARE NOW EMPTY. ' -.PRINTS! 1 2 , 22) 

, "REMOVE DISK FROM DRIVE I 8 (NEXT TO SCREEN) .": PRINTS ( 14 , 31) , *P 

RESS "(CHRSI26) ; "ENTER" ,-CHRS ( 25) : ' WHEN READY. ";: A-INPUTS ( 1 ) 

128B SYSTEM*DIR":CLS 

1388 PRINT0(5,22) ,; : PRINTCHRS (26) ;"DISK IS STILL IN DRIVE I 8. P 

LEASE REMOVE. " :PRINTCHRS ( 25) :PRINT:PRINTTAB(3B) ("PRESS "jCHRS(26 

) ;'ENTER";CHRS(25) ;' WHEN READY' ;: A-INPUTS (1) .-GOTO 12BB 

14BB CLS:PRINTS(7, 38) , 'COMPUTER READY....' 

1588 PRINT: PRINTTAB( IB) j:LINE INPUT'WHAT IS THE NAME OF THE PROG 

RAM YOU WANT TO RUN...';AP 

1688 READ AN, AD: IF AN-AP THEN 1808 ELSE IF AN-"XXX" THEN 1788 EL 

SE 16BB 

1788 CI.S:RESTORE:PRINT"I CANNOT FIND "(AP;". PLEASE TRY AGAIN , 

OR ASK FOR ASSISTANCE' :PRI NT8(7,5) , ; : GOTO 1580 

1800 CLS: PRINT* (4, 28) ,'I'VE FOUND THE "(AN)" PROGRAM . " : PR I NT : PRI 

NTTAB(32) ("IT'S ON DISK I " (AD: PRINT : PRI NTTAB( 10) j 'INSERT DISK t 

")AD;" INTO DRIVE I 8 (NEXT TO SCREEN) AND CLOSE DOOR" 
1988 PRINT:PRINTTAB(3B) ; 'PRESS " ;CHRS ( 26 ) ; 'ENTFR' )CHRS( 25) ( " WHE 
N DONE.':A-INPUTS(l) 

2B8B SYSTEM"I':CLS:PRINT"LOADING '(AN;" PROGRAM." 
2188 RUN AN 

2288 DATA STAR.l ,SF,2 ,PDPXREF,3 ,MUX1/BAS,1 ,MUX2/BAS,3 
2388 DATA SUSPENSE , 2 ,PARTFILE, 4 , XXX, XXX 
2488 END 
2588 CLS 

2618 IF ERL-200 THEN RESUME 388 
2788 IF ERL-7B8 THEN RESUME 900 
2808 IF ERL-988 THEN RESUME 118B 
2988 IF ERL-1288 THEN RESUME 148B 
3B80 IF ERL-21BB THEN CLS : PRINT'THE "(AN;' PROGRAM IS NOT ON THE 

DISK OR THE DISK IS PROTECTED. ': PRINT'PLEASE TRY AGAIN. ": RESUME 

15BB 
3188 RESUME NEXT 



Program Listing 



abraded by the internal disk 
jacket cleaning material. You 
can see that the disk gets a little 
warm! This heat, coupled with 
that from the disk drive itself, 
may cause the disk to warp just 
enough to physically touch the 
read/write head. When this hap- 
pens, the head will destroy the 
magnetic coating. 

Now that I had learned my les- 
son, I still had to maintain ac- 
cess to a number of disks by in- 
experienced operators. How- 
ever, having killed another disk 
by inserting it and forgetting to 
type SYSTEM"I", I was worried 
that one of my operators would 
do the same thing. 

My solution was the Ready 
program (Program Listing 1). 
The Ready program guides the 
most inexperienced operator 
through the perils of finding the 
right disk, inserting it in the 
drive, and running the program. 
The program automatically ini- 
tializes the disk. It also prevents 
a disk from being left in any of 
the drives. The Ready program 
resides on each disk and is 
called from any of the programs 
on that disk. 

Each of the programs I have 
written contain a menu of func- 
tions, one of which is End. When 
End is selected, the operator is 
prompted to wait as the Ready 
program is loaded into the ma- 
chine. The Ready program then 
provides very specific instruc- 
tions for the operator. This situ- 
ation produces a continuous 



loop in which either the Ready 
program or the program select- 
ed by the operator is always in 
control. 

The Ready program is based 
on the use of the error functions 
ON ERROR GOTO and ERL The 
first line of the program (line 
100) defines a jump to line 2500 
when an error occurs. In normal 
use, the program is called by a 
program resident in the machine 
and, therefore, a disk is in drive 
zero. To check for this, line 200 
asks for a directory of the disk in 
drive zero and if it finds one, 
jumps to line 500. If there is no 
disk in drive zero, an error 
results and execution jumps to 
line 2500. The screen clears and 
since the error occurred in line 
200, execution resumes at line 
300. 

Line 300 informs the operator 
that there is no disk in drive zero 
and line 400 flashes the mes- 
sage "Ask for Assistance". A 
more experienced operator can 
then be called, insert a disk, and 
assure that it is properly ini- 
tialized. If there is a disk in drive 



zero, execution jumps from line 
200 to line 500. The screen clears 
and the operator is prompted to 
remove any disks in drives one 
and two and to press Enter when 
this has been accomplished. 
Line 600 waits for Enter key to 
be hit. 

Then line 700 asks for a direc- 
tory for drive one. If everything is 
fine, it will find an error and jump 
to line 2500. Line 2700 then re- 
sumes execution at line 900. If 
the operator forgot to remove 
the disk in drive one, no error oc- 
curs in line 700 and line 800 in- 
forms the operator that there is 
still a disk in drive one. The op- 
erator cannot proceed until that 
disk is removed. Lines 900, 1000 
and 2800 perform the same 
check of drive two. 

Line 1100 informs the opera- 
tor that drives one and two are 
now empty and that the disk in 
drive zero should be removed. If 
the operator fails to remove the 
remaining disk, line 1300 
prompts that the disk is still in 
drive zero and loops back to line 
1200 until it is removed. When all 



disks have been removed, lines 
1400 and 1500 indicate that the 
computer is ready and ask what 
program is to be run. At this 
point the operator may leave the 
computer and it may remain in 
this state until someone else 
wishes to run a program. All 
disks have been removed, pre- 
venting the possibility of disk 
damage. 

When someone wishes to run 
a program, they simply type in 
its name. The data lines 2200 
and 2300 contain the names of 
each program followed by the 
disk name it is on. If a valid 
name is entered, the program 
reads the data statements and 
finds that name and the name of 
the disk, whereupon execution 
jumps to line 1800. The operator 
is informed that the program 
has been found and which disk 
to insert into drive zero. When 
that has been done and Enter 
has been pressed (as asked for 
in line 1900), line 2000 initializes 
the disk and runs the requested 
program. 

If the name entered in line 



1500 is not found, line 1600 even- 
tually reads the end of the data 
statement (XXX) and execution 
jumps to line 1700. Line 1700 in- 
forms the operator that the 
name in question cannot be 
found and to try again, or to ask 
for assistance. 

This short program can be 
easily tailored for any number 
drive system. However, as you 
modify the program to add new 
programs, the two XXX's must 
end the last data statement. 

It should be noted that this 
version of the READY program 
was written for, and will work on- 
ly with TRSDOS 1.2. The author 
has since modified the program 
for automatic checking of all on- 
line drives without operator in- 
tervention plus blinking of the 
standby message (to avoid 
screen burn). In addition, a ver- 
sion for TRSDOS 2.0 is now 
available. To obtain both listing 
and an explanation of the 
TRSDOS 2.0 version, forward 
one dollar (to cover the cost of 
reproduction and mailing) to the 
author. ■ 



FIXED ASSETS 

Put your TRS-80 computer to work keeping track of 
all information related to your fixed assets and deprecia- 
tion. This versatile system, developed by a CPA, will 
compute depreciation according to straight line, declining 
balance, and SYD methods and maintain the complete 
audit trail you need for financial and tax reporting, in 
eluding fixed asset ledger and acquisition and disposal 
reports. You will be able to project depreciation for cur 
rent and future years, use different methods for financial 
and tax reporting, switch from declining balance to 
straight line when advantageous, compute investment 
tax credit and additional first-year depreciation. Reports 
are available in both summarized and detailed formats, 
and can be organized by general ledger account, location, 
department. ADR class, and year of acquisition. 

Currently available for the TRS-80 Model I with at 
least 32K and 2 disk drives, and for the Model III with at 
least 32K and 1 disk drive. Requires Disk Basic and a 
TRSDOS-compatible operating system. 



TAB132 



FAAS-1 for Model I 
FAAS-3 for Model II 



$149 
$149 



At last, here is the solution to LPRINT TAB problems 
with your TRS-80 Model I computer. Increase your pro 
gramming productivity with this enhancement to Basic. 
Stop going through string manipulations and contortions 
trying to overcome the TAB(63) limitation. With 
TAB1 32, you will never again have to fret over tabbing 
past position 63 on your line printer. TAB132 will allow 
you to correctly tab to any print position up to 255 with 
the normal TAB( ) statement. 

TAB132 is a machine language routine which oc 
copies 1 00 bytes of memory, and will operate with either 
Level II or Disk Basic on the TRS-80 Model I. The TAB1 32 
tape or disk includes modules for several different modes 
of operation. It can be loaded in the System mode or from 
DOS, can be loaded and run as a Basic program or merged 
into your Basic program and activated with a single 
GOSUB at the beginning of the program. System and 
DOS modules include a relocating loader to move 
TAB1 32 to anywhere in memory. Also supplied is a pro- 
gram which will patch the routine permanently into Disk 
Basic. Specify media when ordering. 

TAB132ontape . . . $12.95 on disk . . $14.95 



P.O. BOX 359 



The Systemworks -~ 

Professional Quality Software for the TRS-80 Computer 
MARLBOROUGH, CONN. 06447 



(203)295-8108 



s See List of Advertisers on page 418 
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UTILITY 



In its death throes this program 

generates machine-language data statements. 



The Death Wish 



Alan D. Smith 
P.O. Box 119 
Mortdale, N.S.W.2223 
Australia 



Did you hear the one about 
the schizophrenic pro- 
gram? Seems there was this 
program called MACH/BAS that, 
while running, changed itself 
into something completely dif- 
ferent! And I can hear all you as- 
sembler programmers muttering 
"So what? We've all managed to 
wipe out our own programs at 
least once! " But MACH/BAS is a 
little different — it's written in 
Basic; its self-destruction is 
quite deliberate, and the Basic 
code that takes its place is 
quite usable. 

Many TRS-80 users write or 
use Basic programs that inter- 
face (via the USR statement) to 
small machine-code routines 
loaded somewhere near the top 
end of RAM. Perhaps they need 
a specialized printer driver, or a 
high-speed sort of binary search. 
Such an arrangement usually in- 
volves first loading the machine- 
code program, and then (sepa- 
rately) the Basic program— a bit 
of a nuisance, particularly on 
tape-based systems. Some have 
therefore taken the trouble to 
merge both programs by con- 
verting the machine code into 
ASCII and coding it into data 
lines to be POKEd into position 
by the Basic program. 

There's just one problem- 
typing two or three hundred val- 
ues into data statements is both 
tedious and error-prone. And 
that's where MACH/BAS comes 
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to the rescue, by doing the 
whole job for you! 

Death Wish 

Converting machine-lan- 
guage to ASCII has been done 
before in programs that list the 
values to screen or printer, leav- 
ing you to simply key them in. 
But why type when you have a 
computer? MACH/BAS replaces 
itself in RAM with the required 
data statements. You may then 
output them to screen or printer, 
or save them to tape or disk. 

But why does MACH/BAS 
have a death-wish? There are 
two reasons: 

• Although setting up the da- 
ta statements in strings and 
writing them to disk is quite 
straightforward, tape output 
is a different matter. Since we 
must write a tape that can be 
read by CLOAD, the only easy 
way to write it is via CSAVE. 
We must, therefore, set up 
data statements as the resi- 
dent Basic program. 

• Having MACH/BAS over- 
write itself reduces RAM us- 
age considerably, and that, in 
turn, allows us a greater 
range of addresses in which 
the machine language may re- 
side. (MACH/BAS uses about 
3200 bytes of RAM, including 
all numeric and string 
variables.) 

How ft Works 

I'm assuming you have a 
Level II system of 16K or more, 
or a TRSDOS system. First, key 
in the program as listed; avoid 
the temptation to omit or short- 
en the instructions in lines 
30-150, or to change the line 



numbering. Now save it to tape 
or disk before attempting to run 
it — it self-destructs, remember? 
Now (if you haven't already 
done so) load the machine code 
(maximum 400 bytes) you want 
converted. Memory Size must, 
of course, be set so the area into 
which it loads is protected from 
Basic. Run MACH/BAS; after a 
screenful of instructions, you 
will be asked to input just two 
things— the start and end ad- 
dresses of the machine code in 
RAM. You may enter these as 
decimal or hexadecimal. MACH/ 
BAS will decide which you're us- 
ing on the basis of length— four 
characters are hexadecimal, 
five characters are decimal. Var- 
ious checks are performed on 
the addresses you have speci- 
fied to ensure that: 

• They are valid hexadecimal 
or decimal; 

• The start address is not 
lower than the Memory Size 
setting; and 

• The implied length (i.e., end 
minus start) is within the 
range 1-400 bytes (1-X'190'). 
If all is well, MACH/BAS be- 
gins the conversion. An average 
machine-code program of 200 
bytes will take about 30 seconds. 
During that time you will be kept 
informed or progress on the 
screen. At the end, it displays 
the first screenful of the new 
data statements. If you enter 
List now, you will see that 
MACH/BAS has vanished, and 
in its place is: 

• A REM statement (line 10) 
generated to remind you of 
the start and end addresses; 
and 

• A series of data lines (20, 



30. . .80— just how many is a 
function of the size of the 
machine code converted, and 
the byte values therein). 
You may also LLIST the new 
code to a printer. CSAVE it to 
tape, save it to disk, or simply 
add more code to it immediate- 
ly. The addition of a simple 
Read/POKE loop anywhere in 
your program sets up your ma- 
chine code whenever you run. 
For example, if the start and end 
addresses were 32600 and 
32767 respectively: FOR X = 
32600 TO 32767 :READ Y :POKE 
X,Y :NEXTX. (Those of you who 
have more than 16K RAM. don't 
forget that POKE requires deci- 
mal addresses above 32767 to 
be in the form "desired address 
minus 65536", TRSDOS users 
may simply use &H (hexadeci- 
mal) and avoid that complica- 
tion.) 

The Program 

For those of you with an in- 
terest in how MACH/BAS works 
(or a burning desire to improve 
it), I'll continue with an explana- 
tion of the techniques involved. 
Perhaps the best way is to fol- 
low the program from first state- 
ment to last, commenting on im- 
portant points as we go. 

First, let's recap the in-core 
structure of a Basic line, be- 
cause that knowledge is basic 
to an understanding of MACH/ 
BAS. (For a more complete dis- 
cussion, see Curtis F. Gerald's 
article "Append It!" in the Feb- 
ruary 1980, 80 Microcomputing.) 
Each line is built like this: 

• A two-byte pointer to the 
next line; 

• A two-byte line number (the 



second byte is zero for line 
numbers up to 255, but is rele- 
vant from 256 on); 

• The Basic line itself— re- 
member that many keywords 
are compressed, e.g. REM is 
stored as a one-byte value 
(ASCII 147), as is DATA (ASCII 
136); 

• One extra byte (always 
zero) at the end of the line. 

In addition, the very last line is 
followed by two more bytes con- 
taining zero. 

Line 10 is the program initiali- 
zation. Note that the DEFINT, by 
not specifying D, allows (by de- 
fault) variables DA, DS, DE to be 
single-precision. (They may han- 
dle addresses outside integer 
range.) In line 20, L1$ is initial- 
ized (in compressed format) to 
10 REM START = , and this will 
form the basis of the new line 10 
in the generated code. Lines 
30-160 output instructions. 

Lines 170-190 use a subrou- 
tine at line 240 to ask for the 
start address of the machine 
language, then checks that val- 
ue against the Memory Size? 
setting. Locations 16561/2 con- 
tain the Memory Size value in 
standard Z80 format (LSB/ 
or, more correctly, they contain 
the Memory Size? setting minus 
two. For example if you replied 
32700 in response to Memory 
Size?, then 16561/2 will contain 
32696 — hence the check against 
the input address (DA) minus 
three. 

Lines 200-220 use the same in- 
put subroutine to ask for the end 
address, and then check that 
the implied length does not ex- 
ceed 400 bytes. Line 230 is a 
simple subroutine to draw a dot- 
ted line across the screen; it re- 
quires variable Y to be set in the 
range 0-47. Lines 240-330 are 
the input subroutine invoked 
from lines 1 70, 190, 200 and 220; 
they interpret five-character in- 
put as decimal, four-character 
as hexadecimal, and validate 
accordingly. Lines 280-330 con- 
stitute a handy hex-to-decimal 
conversion routine— a four-digit 
hex value in ADS gives a decimal 
address in DA. In line 310, the ex- 
pression ASC(WK$)-55 gives 
decimal 10 for A (since the ASCII 
value o1 A is 66), 11 for B, etc. 

Lines 340-350 set up WK$ 
with the full REM statement to 



contained in the new line (in 
compressed format). In line 360, 
locations 16548A9 point to the 
start of the Basic program ar- 
ea—the value we pick up, there- 
fore, will vary between Level II 
and TRSDOS systems. Starting 
from the beginning of MACH/ 
BAS, we now loop until we lo- 
cate line 370 in RAM. Remember 
that at the start of 370 will be a 
pointer to line 380. 

We now change the pointer at 
the start of line 10 (which nor- 
mally points to line 20) so it 
points to line 380. Effectively, 
then, the line numbering in 
MACH/BAS now runs 10, 380, 
390, etc., because we're plan- 
ning to keep MACH/BAS run- 
ning (above line 380) while we 
build new Basic lines between 
10 and 370. If we did not main- 
tain continuity in line numbering 
from the start, MACH/BAS 
would meet a premature end as 
soon as we encountered our 
first GOTO or GOSUB (since 
Basic locates the line we're 
branching to by scanning from 
the start of the program). The 
GOSUB 500 at the end of line 
380 POKEs the new line 10 into 
position at the start of MACH/ 
BAS— the self-destruction pro- 
cess has begun! 

Line 390 sets up a pointer in 
L2 to the spot where the new line 
20 will reside. Line 400 incre- 
ments the line number by 10, 
tells the user what it's up to, and 
sets WK$ to the new line num- 
ber plus DATA (in compressed 
format). Lines 410-420 start 
PEEKing in the machine lan- 
guage area, and adding the ap- 
propriate ASCII values to the 
string in WK$. Line 430 stays in 
this loop (410-430), putting com- 
mas between successive val- 
ues, until we reach the end ad- 
dress or this data line is full. 

Lines 440-450 use the subrou- 
tine at 500 to POKE the new data 
line into RAM, put a zero byte at 
the end of it, point this line to the 
next one to be set up. and loop 
back. After we've finished set- 
ting up all the data lines, line 460 
POKEs two extra zero bytes at 
the end of the new program, and 
then points the new line 10 to 
the new line 20. 

If you think lines 470-480 are a 
little crazy, then you're right! As 
a last dying wish, MACH/BAS 




IJG would 

like to apologize to all 

readers, and dealers, who ordered 

The Custom TRS-80 and have been wondering where it is. 

Magazine advertisements have to be prepared 2 to 3 
months before they actually appear in print. Originally the 
book was scheduled for printing in early May, just as the 
first advertisements were to appear, but the Editor must 
have been in a time-warp when he made the original 
production estimates! 

He completely under-estimated the time needed to 
prepare and process the dozens of photographs, circuit 
diagrams, printed circuit layouts, assembly language 
programs and reams of information that Dennis Kitsz had 
provided. 

The book has now been scheduled for printing in early 
November, and should be available before the end of the 
month. It will be worth the wait, it's one heck of a book! 

Credit card orders are not being processed until the book 
is back from the printers. If you prepaid by check, and 
would prefer not to wait, then you can obtain a full refund 
prior to shipment - or use your credit towards other IJG 
products. 

Sorry about this, thank you for waiting, 



ZJSvT' 



**i 



Jim {'What year is it?') Perry, Editor 
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1260 West Foothill Blvd., 
Upland, California 91786 

(714) 946-5805 
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Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like. "Quality Software "— "In- 
stant Software " — "Level IV products and so on, 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man. you just point at where you 
want to move from, then point at where you 
want to move to. and your man moves!!! No 
more fumbling with keyboards— YEA 1 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at *19. 95 



Announcing 
NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang pro- 
grammers around, and he has come up with PEN 
BASIC This low memory routine will add 10 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands Perfect for 
you lightware authors and NEW light pen owners 
too! only -14.95 




(COUPON) --- 

Micro Matrix ^<* 

P.O. Box 938 • Pacifica. CA 94044 

Send for yours NOW: (415)355-4635 

Name 



Address 

City 

Zip 

Card# 

Ex. 

Date 



St. 



Photopoint 
$19.95 

Pen Basic 
$14.95 



Money 
CK Order Visa MC 



wants to change the end-of- 
program pointer in 16633/4 to 
point to the end of the new code 
instead of the old. (The new 
code would work anyway, but 
CSAVE would write more to tape 
than it needs to, and that's not 
tidy.) Such a pointer change 
could be done as follows: Y = 
(NL + 3)/256:POKE 16633.NL + 
3-Y*256:POKE 16634.Y. 

Unfortunately, the pointer in 
16633/4 also serves as a pointer 
for variables, to change the 
pointer, but as soon as we start 
changing the pointer, Basic 
can't find the variables! For that 
reason, I used the two bytes at 
fixed locations 16411/2 as a tem- 



porary storage area so I 
wouldn't need variables when 
committing the deed. If you look 
at the memory map in your Level 
II manual, you'll see that 16411/2 
are two constant bytes (contain- 
ing K and I) within the keyboard 
device control block. Since 
we're not using the keyboard at 
this precise moment (and we put 
the K and I back again when 
we're finished anyway), the sys- 
tem will never know! 

Line 490 lists the new code, 
and that's where we finish. Fi- 
nally, line 500 is a subroutine for 
POKEing the bytes contained in 
WK$ (i.e., new Basic lines) into 
RAM.B 



IB CLS :CLEAR3BJ :DEFINT B,L,N,X,Y 

2i LIS - CHRSI10) ♦ CHRS10) ♦ CHRSI147) . ■ START ■* :Y»1 :GOSUB 

238 

30 PRINT "MACH/BAS CONVERTS UP TO 400 ( X'190' ! BYTES OF RAM | 

USUALLY A" 

40 PRINT "MACH-LANG PROG ) INTO A SET OF BASIC 'DATA' STATEMENTS 

THAT MAY" 
50 PRINT "BE USED VIA 'POKE' COMMANDS TO RE-CREATE THE ORIGINAL 
RAM AREA." 
60 PRINT "THE NEW CODE MAY BE OUTPUT TO VIDEO , PRINTER , TAPE , 

OR DISK." 
70 Y«16 :GOSUB 230 : PRINT TABI12) "*•• PLEASE NOTE THE FOLLOWING 

POINTS •••* 
80 PRINT "(A) PRIOR TO RUNNING 4ACH/BAS , MEMORY SIZE SHOULD BE 
SET LOWER" 

90 PRINT " THAN THE BEGINNING OF THE RAM AREA WHICH IS TO BE 

CONVERTED" 

100 PRINT "(B) IN RUNNING , MACH/BAS WILL SELF-DESTRUCT ( THE CR 
EATED CODE" 

110 PRINT " OVERWRITES IT ) , THUS OPTIMIZING CORE SPACE AND 

PERMITTING" 

120 PRINT " USAGE OF THE STANDARD SYSTEM COMMANDS LIST/LLIST/ 

CSAVE/ SAVE" 

130 PRINT "Id ADDRESSES INPUT TO MACH/BAS WILL BE INTERPRETED A 
S 'HEX* IF* 

140 PRINT " 4-DIGIT ( E.G. BC00 ) AND DECIMAL IF 5-DIG1T ( E. 

G. 48128 )" 

150 Y-43 :GOSUB 230 rPRINT TAB(12) "*«• PLEASE PRESS <ENTER> TO 
CONTINUE *•••; 
160 IF INKEYS*"" THEN 160 

170 CLS :PRINT? 320,; :SE$«"ENTER START" :GOSUB 240 
180 IF PEEK ( 16561 ) *PEEK ( 16562) "256 <- DA-3 THEN DS'DA : GOTO 200 
190 PRINT "* INVALID - IS LOWER THAN MEMORY SIZE SETTING # " :GOS 
UB 240 :GOTO 180 

200 PRINT :SE$-"NOW THE END" :GOSUB 240 
210 IF DA->DS AND DA-DS0399 THEN DE-DA : GOTO 340 

220 PRINT "* INVALID - LENGTH MUST BE 1-400 ( l-X'190' ) •" :GOS 
UB 240 :GOTO 210 

230 PRINT :FOR X-0 TO 126 STEP2 :SET (X,Y) : NEXTX tRETURN 
240 PRINT SES; (INPUT " ADDRESS OF RAM AREA TO BE CONVERTED *j A 
D$ 

250 IF LEN(ADS)-5 THEN DA-VAL(ADS) :IF DA>9999 THEN RETURN ELSE 
270 

260 IF LEN{AD$)-4 THEN DA-0 : GOTO 280 

270 PRINT "* INVALID - NOT 4-DIGIT HEX / 5-DIGIT DECIMAL •" :GOT 
O 240 

280 FOR Y=l TO 4 
290 WKS-MIDS (ADS,Y, 1 ) 

300 IF WK$->"0" AND WK$<-"9" THEN X-VAL(WKS) iGOTO 320 
310 IF WK$->*A" AND WKSO'F" THEN X-ASC (WTCS) -55 ELSE 270 
320 DA • DA'16+x 
330 NEXTY :RETURN 

340 CLS : PRINT* 470, 'SETTING UP LINE 10* 

350 WKS - LIS ♦ STRS(DS) ♦ *) END -" + STRS(DE) « CHRSI0) 
360 BS - PEEX(16548)*PEEK(16549)»256 :NL-BS 
370 NL • PEEK(NL)+PEEK(NL*1)*256 :IF PEEK {NL*2) *PEEK (NL*3) «256 < 

370 THEN 370 
380 POKE BS,PEEK(NL! :POKE BS*1 , PEER (NL+1) :NL-BS-1 :GOSUB 500 
390 L2-BS+X :NL-t.2 :LN-10 :IF DS>32767 THEN DS-DS-65536 :DE-DE-6 
5536 

400 LN-LN+10 :PRINT0 485, LN :WKS - CHRS(LN) + CHRS(0) ♦ CHRSI13 
6) 

410 WKS » WKS + MIDS(STRS(PEEK(DS)) ,2,3) :DS-DS*1 
420 IF DS-32768 THEN DS— DS :DE-DE-65536 

430 IF DS<-DE AND LEN(WK$)<234 THEN WKS-WKS + "," : GOTO 410 
440 GOSUB 500 :POKE NL*2»X,0 : Y- (NL+3»X) /256 

450 POKE NL«1,NL*3*X-Y«256 :POKE NL*2,Y :NL-NL*2«X :IF DS<-DE TH 
EN 400 
460 POKE NL«1,0 :POKE NL*2,0 :Y ' (L2»l)/256 :POKE BS.L2*1-Y*256 

:POKE BS+1,Y 
470 Y - (NL+31/256 : POKE 1641 1 , NL*3-Y*256 : POKE 16412, Y 
480 POKE 16633, PEEK(16411) :POKE 16634 , PEEK ( 1641 2) : POKE1641 1 , 75 

: POKE16412,73 
490 CLS :LIST-40 

500 FOR X-l TO LEN(WKS) :POKE NL*2»X , ASC ( MIDS IWK S, X , 1) > :NEXTX : 
RETURN 



Program Listing 
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MED SYSTEMS SOFTWARE is proud to present THE 
INSTITUTE, the newest and most intricate adventure by Jyy 
Pearson. You begin in an institution populated by a dwarf, 
counselor, guards, and other inmates. You can enter whole 
sentences as well as one and two word commands, as you 
strive to retain your sanity. You must escape, but 
the key to escape is not in the building itself. Your 
dreams, brought on by a mysterious powder, hold ^ 
the key to escape, as well as four whole worlds of 
bizarre characters and locations. It's like playing £ 

five adventures in one! 
THE INSTITUTE - Model I or Model III 

16K cassette $19.95 32K diskette $22.95 

* parental discretion advised 



To Order Call Med Systems 

1-800-334-5470 





ASYLUM 



ASYLUM, the newest Continuum adventure, 
places you in an institution full of guards, 
inmates, doctors, and many more bizarre 
characters. ASYLUM features an advanced lan- 
guage interpreter which allows input of complete 
sentences as well as one and two 
word commands. Graphic rooms, 
hallways, and doors twist and 
turn in a layout guaranteed to 
send you screaming! 
ASYLUM - Model I or Model II 
Cassette $1 9.95 Diskette $22.95 



*- See Listot Advertisers on page 4 18 
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QWERTY 3.0 



Since introducing Qwerty 3.0 in September, 
people have been calling to ask if we were 
making ludicrous claims. The answer is NO! 
Qwerty 3.0 does all we claimed and more! Mo 
other software of this type can match Qwerty 
3.0. 

More than "fully tested," Qwerty 3.0 has seen 
thousands of hours of use in a university 
environment. A master's thesis and a statisti- 
cal doctoral dissertation were produced and 
accepted right off a Centronics 737 using this 
package. It is the best Period. We guarantee 
you will agree! If for some reason you find that 
this program does not meet your needs, 
return the entire package within 14 days for a 
prompt and cheerful refund. 



Some Features of Qwerty 3.0 

1. Automatically prints in proportional print, with a suitable 

format Transitions between the three print styles are easy, 
including all expanded print modes. 

2. Owelty 3.0 adds 75 new symbols, including upper and 

lower case Greek letters, mathematical symbols such as 
integrals and summations, arrows, brackets, and probability 
symbols. 

3. Any character can be used as a subscript or superscript 

even simultaneously. Carats, bars, and bides can be placed 
over any character, with precise position control. 

4. Underlining, with or without underlining of spaces, including 

long ratios and mathematical expressions 

5. Footnotes can be placed on any page so twt they remain 
on the desired page, even if text is inserted later. 

6. Table commands enable positioning of the print head 
1 anywhere On a line. Invaluable in printing neat mathematical 

layouts, tables, columnar material, etc., in proportional print 

7. Pretty commands allow printing of repetitions of a chosen I 

character. When combined with Table, decorative borders I 
can be produced with ease. 

8. Folk) format produces output in two or three columns per 
page, in either proportional or 16.7 cpi mode. Ideal for 
newsletters. 

9. Supplies a third output mode in which only Scrlpsft 
commands are obeyed. Allows printing of special Qwerty 
commands for future reference. 

1 0. Page End indicates where pages will end. and the page 
I number, without printing the text. One can prepare an 

almost error-free document without ever using paper. 

1 1 Correction of ScripsRserrorsandinc on sentences, extensive 
documentation, and much more! 



For cautious buyers, we offer the manual 
(over 70 pages) for $10. When you decide to 
buy Qwerty 3.0, we will credit the full manual 
price. 

Qwerty 3.0 Disk, Manual, Reference 

Card, and Printer Table Rule $49.95 

Qwerty Manual Alone $ 1 0.00 

* Qwerty 3.0 requires a 32K TRS40, Model I or 
II. Centronics 737, 739, or Uneprlnter IV and 
two disk drives. 



STATISTICAL PACKAGE FOR 
MICROCOMPUTERS (SPM) 

By Bruce P. Douglass 

MED SYSTEMS is proud to announce SPM, the Statisti- 
cal Package for Microcomputers. This package offers 
eight different procedures to provide a wide range of 
statistical analyses, some of which are not available 
in any other computer package. 

In the disk system, files for one analysis may be trans- 
formed into files for any other program using RLE- 
TRAN. Previously entered files can be concentrated 
or new variables added. Files can be merged and 
new variables created from functions of other varia- 
bles. 

Transformations available include linear transforma- 
tions, logarithms, exponentiation, absolute values, 
and trigonometric functions. 

• DESCRIPTIVE STATISTICS: Provides mean, standard 
deviation, standard error, and number of entries. 

•ANALYSIS OF VARIANCE: One-way analysis of var- 
iance, equal or unequal sample sizes. Provides "F' 
statistics and percentiles, and provides statistics for 
post hoc comparisons of results. 

• TWO WAY ANALYSIS OF VARIANCE: Two way ANOVA. 
equal sample sizes only. Analyses interaction ef- 
fects and provide post hoc comparisons. 

• LINEAR REGRESSION: Computes least squares re- 
gression equation, Pearson correlation coefficient, 
"F' statistics, and calculates Y value for a given X. 

• MULTIPLE UNEAR REGRESSION: Produces first order 
correlation matrix, regression equation, multiple 
correlation coefficient, confidence intervals, and 
indicates significance of adding variables. 

• NON-LINEAR REGRESSION: Uses Marquardt method 
of least squares, allows input of number of itera- 
tions, convergence criteria and parameter esti- 
mates, one independent variable and up to 5 
parameters. Each iteration gives variance, para- 
meter values and standard deviations, and whether 
criteria were met. 

• MULTIPLE NON-LINEAR REGRESSION: The only pro- 
gram of its kind on microcomputers. Allows up to 5 
variables and 10 parameters, plus everything Non- 
linear Regression (above) offers. 

SPM procedures will run in 16K. Tape and disk ver- 
sions are available. Data files are saved to tape on 
tape versions, disk on disk versions. Hard-copy 
output is available from all programs. 

$74.95 

D\%ktf $89.95 

Individual procedures available Cases** $24.95 
(Specify procedure) Diskette $29.95 

MED SYSTEMS SOFTWARE "**■'■' 
PO lex 2674-T Chapel Mil, NC 27514 

1-SOO-334-5470 



The main city super-structure of the United States Is under attack. You control 
the primary ABL | Anti-Ball istlc Laser) target console. Only your six laser bases 
can halt the onslaught of ICBM's, killer pods and lunar blasters. As each wave 
becomes faster and longer, your tired fingers itch to activate the ultimate 
defense ... ERADICATION! 




mi 

ml 


^K 1 M 1 




-■^^1 


kt 


B 



LASER DEFENSE Is a fast-actlt 
arcade game for the TRS-80. 

Features Include: 

• One or two players 

• Multiple difficulty levels 

• Fast machine language graphics 

• Sound effects 

• A guarantee of satisfaction 




MED SYSTEMS SOFTWARE 
POBox2674-T 
Chapel Hill, NC 27514 
1-800-334-5470 



Model I or Model III 16K 



Cassette. 



. $14.95 Diskette $17.95 



INTERFACE 



An account of the Selectric connection. 



Tandy Acquires IBM! 



W. R. Stanley 
City Rt. 5 
204 Avery Lane 
LaGrange, GA 30240 



No, this is not a review of the 
latest offering from IBM. 
This article is designed to assist 
you in interfacing the IBM Model 
1980 Selectric typewriter with 
our favorite computer. Although 
I am writing specifically about 
the Model 1980-9, the subject 
matter can be applied with mi- 
nor modifications to many other 
versions of the Selectric I/O 
machine. 

The replacement of the pin- 
feed platen with a standard 
wide-carriage platen was the on- 
ly modification to the 1980 I 
recently purchased. All other 
conversion is in software and 
the 7441-1 interface. 

Basically, the 1980 is a binary 
coded decimal (BCD) printer 
with a 15-inch carriage and a 
keyboard. Several control keys 
and signal lamps are located on 
either side of the keyboard. 

The 7441 is a vintage transis- 
tor-transistor logic (TTL) relay 
interface that allows communi- 
cation over common carrier 
lines between the 1980 and 
remote computers. It uses the 
RS232 signal format for serial 
operation only. 

Since the solid state com- 
ponents have nonstandard 



markings, figuring out the func- 
tion and pinout of the ICs in the 
7441 would have taken too many 
hours. 

Other than the power supply 
schematic and a general 
description of its operation with 
remote computers, I could get 
very little information on the 
7441. The very healthy power 
supply (with outputs of + 48V, 
12V, 5V, and -12V direct cur- 
rent) is the 7441 's strongest 
feature. I kept the 7441 as a 
power source for this and other 
projects. I decided to start an in- 
terface board from scratch us- 
ing as much of the 7441 as 
possible. 

A bonus is the oddball 82 pin 
connector mounted on the rear 
panel. This connector mates 
with the one on the end of the 
heavy cable going to the printer. 

Except for the -12V supply, 
the dc outputs of the 7441 are 
not regulated in the usual man- 
ner. The output is stabilized by 
use of high-current capability 
rectifiers and huge filter capaci- 
tors. Output from the power 
transformer is stabilized by res- 
onant winding. 

If you decide to purchase the 
1980, be sure to obtain the 
printer schematic. A standard 
IBM schematic won't be of too 
much help, because the 1980-9 
comes equipped with a long 
cable terminated in an 82 pin 
AMP connector. The standard 
I/O machine connector has only 
50 pins. 



The 1980 is the same in basic 
operation as most other I/O 
Selectrics; specific solenoids 
must be energized to result in a 
particular operation. Seven 
solenoids tilt and rotate the typ- 
ing element to select characters 
to be printed. Another solenoid 
controls the carriage return-line 
feed (CRLF). Others control tab, 
space and backspace. All oper- 
ate with a nominal power supply 
of + 48V, with individual current 
requirements in the range of 100 
to 300 mA. 

Operation of the 1980 with the 
TRS-80 requires energizing the 
appropriate solenoids at the 
right time. Simple enough, isn't 
it? 

The maximum operating 
speed of the 1980 is slightly less 
than 15 operations per second. 
The solenoids need to be ener- 
gized for about 10 milliseconds 
to allow enough time to perform 
their mechanical functions. Tim- 
ing loops in the software are 
used for this purpose. 

A handshake is used by the 
character printing routine to 
delay the next character selec- 
tion until feedback is received 
from the printer. 

If a timing loop is placed in 
the driver program to allow for 
completion of the CRLF func- 
tion, that loop must provide 
delay each time for the worst- 
case condition— return of the 
typing mechanism from the 
right margin to the left margin- 
even though the line being 



printed is only one inch long. 

This is maddening if you are 
printing a single column hex 
dump in the T-Bug format, for 
example. The printer is idle a 
large portion of the time. 

A solution is todelay machine 
operations only until the com- 
puter receives a signal from the 
printer that the CRLF operation 
is complete. This is easy since 
the 1980 has several switches 
that open or close at the begin- 
ning or end of any particular ma- 
chine operation. 

Two additional switches tell 
the computer whether the ma- 
chine is in upper or lowercase. If 
the printer is already in the prop- 
er case configuration for print- 
ing of the next character, why 
transmit to the printer a preced- 
ing case signal? 

There is only one externa 
signal path to these solenoids 
Operated by the shift mechan 
ism, one line is alternately con 
nected to each of these sole 
noids by means of a SPDT 
switch. The machine remains in 
one shift configuration until the 
next shift signal is received. 

IBM included another switch 
that is also operated by the shift 
mechanism. This SPDT switch 
can be used to provide another 
handshaking signal that is used 
within the driver program to 
transmit the next character to 
the printer or precede that char- 
acter with a shift signal and ap- 
propriate delay. 

Now, let's get down to busi 
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A DIVISION OF SCOTT ADAMS INC 
BOX 3435. LONGWOOD. FL 32750 
(305)862 6917 „„..- 

WRITE FOR OUR FREE CATALOG " •-' 



E YOUR LOCAL DEALER, IF HE DOES NOT 
HAVE THE PROGRAM YOU WANT THEN CALL; 

TOLL FREE 1 800 327 7172 (Orders Only) OR WRITE US. 



BY CHAMELEON SOFTWARE 








BALROG 

Meel the Chromatic Dragon face-to-flame in BALROG. the first in the MACES & MAGIC Series. This fantasy adventure features one of 
the largest data bases ever created for a microcomputer role playing game. Not only can you create completely individual characters, but 
you may also choose from a huge inventory of specific weapons and armor items. Freeform input combined with choices suggested by the 
program makes the discovery of the more secret areas of the dungeon a real challenge! . 

STONE OF SISYPHUS 

The STONE OF SISYPHUS carries you to a thinking man's" dungeon, wherein you must apply your skills to effect survival and to realize 
your goals This is an unfriendly subterranean world populated by hideous monsters, and dripping with fabulous treasures — the latter 
enticing you to face the former 1 Your survival hinges upon hard intellect, as opposed to the wispy uncertainty of chance, so be prepared to 
draw deeply from your intellectual reservoir 1 And — the responsiveness of the program to the individual qualities of your character make this 
grand adventure frustratingly enjoyable for hundreds of hours before an of us elusive secrets can be unlocked! 

MORTON'S FORK 

The third entry in the Maces & Magic series. MORTON'S FORK transports you into a world bereft of natural laws — a realm populated by 
magical beings and strange creatures. The scenario is set within the confines of an ancient wizard's fortress. Through your keyboard input, 
you equip your warrior with armor, weapons, and gold, as well as with desirable personal attributes. Only then will you be able to face the 
dangers of MORTON'S FORK' Features include multiple skill levels and a comprehensive manual describing the colorful Maces & Magic 
world 



MACES & MAGIC are fantasy adventures involving you and your computer Armed only with your wits, a microcomputer, and the 
software provided, you can become the hero or the meal your destiny dictates You create a character, equip him (or her) with suitable 
weapons and armor, and enter the dungeon in search of fame and fortune. Neither is particularly easy to obtain. 

If you are successful in avoiding or conquering the various monsters, traps, enchantments and illusions set by our nefarious 



dungeon More importantly, you'll be alive. You may then use the same character in his more experienced and wealthy form when 
you enter dungeons on later occasions 

In each dungeon there are random events which occur, but in the vast majority of cases the skill of the player in mak- 
ing correct choices determine the outcome of the game The majority of instructions are furnished within the program in 
the form of appropriate prompts 

There are many ways to meet an untimely demise in the dungeon Monsters and such are just one of the lines of 

defense between you and the treasures stored there Various traps await the unwary (and the wary too). Some are lethal. 

k while others are merely unpleasant or inconvenient it pays to be suspicious. Beware of ores bearing gifts. 

■ T he object of the whole exercise is not just to fight the monsters and collect treasure. You have to get out alive to en- 

^^. joy it. In every dungeon there is at least one exit It is possible to escape from each and every dungeon with a whole skin. 

^^ We state that fact here because players often believe this not to be true We really aren't out to get you. Not really 

Once you successfully exit from the dungeon you will have an opportunity to save your character for further adven- 
tures in this and other dungeons. Your treasures will be converted to their gold equivalent and your weapons and armor 
stored in bat guano. When you start another adventure, you may call up your experienced character for another trip The on- 
ly limitation is that once a character is killed, he may re-incarnated three times; after that, he is gone forever. No second 
chances, no tears, no breast beating. Gone. Kaput Finished. You will have the distinction of adding to the dungeon 
statistics, however. A sort of second hand immortality in recognition of a nice try. No glory or cash though. 
CHARGE!' 



Maces & Magic Series 

By Chameleon Software 

BALROG 

requires 2 drive system 

TRS-80 32K DISK Modal 1 012-0099 $29 95 

TRS-80 48K DISK Model 3 012-0099 $29.95 



STONE OF SISYPHUS 

Works on 1 or 2 drive systems 

TRS-80 32K DISK Modal 1 012-0100 

TRS-80 48K DISK Model 3 012-0100 

ATARI 40K DISK 052-0100 
APPLE 2 PLUS or APPLE 2 - 48K 

with Applesoft in ROM 

WORKS ON 3.2 OR 3.3 042-0100 



iNtee 



MORTON'S FORK 
Works on 1 or 2 drive systems 
TRS-80 32K DISK Model 1 012-0113 $29.95 

TRS-80 48K DISK Model 3 012-0113 S29.95 

APPLE 2 PLUS or APPLE 2 - 48K 
with Applesoft in ROM 
WORKS ON 3.2 OR 3 3 042-0113 $29.95 
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ness. Look in your pile of 80 
Microcomputing magazines and 
dig out the Feb. '81 issue. Flip to 
page 175 and you'll find my arti- 
cle on construction of a pro- 
grammable interface board that 
works well with the TRS-80. This 
particular board is a natural for 
use in interfacing the Selectric 
since it can be programmed to 
provide both latched outputs 
and handshaking signal inputs. 

This interface board cannot 
be used to directly drive the 
Selectric magnets because both 
the maximum voltage and cur- 
rent ratings of the 8255 chip 
would be greatly exceeded. The 
8255 outputs are, however, ca- 
pable of driving suitable 
medium-power NPN transistors 
whose collector circuits include 
the appropriate Selectric sole- 
noids. 

My particular conversion 
makes use of 12 solenoids in- 
side the 1980 to perform all the 
functions I desired. There are 
several more solenoids inside 
the machine that are not used 
here. 

When you start planning com- 
ponent layout for your interface, 
I suggest you allow for future ex- 
pansion. Through proper pro- 
gramming and circuit additions 
you can control the printer 
motor with the computer, use 
some of the keyboard indicator 
lights for visual feedback, or 
make good use of the controls 
and switches on the front of the 
1980. 



The +5V supply is readily 
checked by measuring the volt- 
age at the vertical aluminum 
bracket toward the front of the 
power supply board. This brack- 
et serves as a heat sink for the 
5V rectifiers. 

The + 12V output can be mea- 
sured at the power supply board 
fuse near the front panel of the 
7441 . The fuse next to this one is 
in the +48V supply line. 

The -12V regulator output 
can be measured by connecting 
the negative meter lead to a pro- 
jection about halfway down the 
left side (when you are looking 
from the left side of the 7441 at 
that plug-in board) of the vertical 
regulator board. 

All power supply voltage mea- 
surements are given in respect 
to chassis ground. Although on- 
ly the +5V and + 48V supplies 
are actually used here, proper 
operation of the other supplies 
will contribute to peace of mind. 

Examine the numbered paper 
tags on the wires ending in the 
82 pin connector mounted in the 
rear panel of the 7441 . Now look 
closely at the pin numbers mold- 
ed into the outer face of that 
connector. Quite a difference, 
isn't there? I will refer to pin and 
wire numbers for this connector 
by the numbers molded into the 
connector. 

Several leads in the 7441 will 
be cut and reconnected to the 
transistor driver board to be 



placed inside the 7441. Most of 
the affected leads are in the 
printer solenoid circuits. 

Some other leads will be used 
for handshaking signals. One 
additional lead that will be cut 
and grounded controls a relay 
that in turn applies ac through 
the 1980 keyboard on-off switch 
to the printer motor. 

Fig. 1 shows the schematic of 
the Selectric interface board. 
The pin numbers on the left are 
for the 8255 chip that is dis- 
cussed in the Feb. article. The 
pin numbers on the right repre- 
sent those of the 82 pin connec- 
tor on the rear of the 7441. 

Remove the cable lacing from 
the wire bundle going to the 
chassis connector, to make it 
easier to identify wire numbers 
and to trace them. With the ex- 
ception of the wires presently 
connected to pins 74 and 75, 
trace each wire identified on the 
right side of Fig. 1. Cut each at 
the end away from the 82 pin 
connector. 

Unplug the four connectors 
from the underside of the plastic 
board that held the original cir- 
cuit cards and discard that 
board. This area will be used for 
mounting the transistor driver 
board. 

If you do not wish to drill and 
file on the rear panel of the 7441 , 
remove the signal cable from 
the existing hole near the large 
connector. Feed a length of mul- 



ticonductor cable (12-pair tele- 
phone cable is suitable) through 
the hole. Reinstall the plastic re- 
tainer on the cable. Make the 
necessary connections be- 
tween this cable and the input to 
the interface board. Tie the sev- 
eral extra cable leads together 
and connect this wire group to 
chassis ground. 

The opposite end of the inter- 
connecting cable goes to the 
8255 on the referenced interface 
board. You can follow either of 
two paths at this point; direct 
connections can be made to the 
8255 pins, or a mating connector 
set can be used. (A DB-25 set will 
be fine.) Be sure that proper con- 
nections between the 8255 and 
the interface board are main- 
tained and cannot be acciden- 
tally reversed. 

If you wish to add another 
connector set (such as the 
DB-25) at the 7441 end of the 
cable, be prepared to exert 
some effort. Steel is not as pli- 
able as aluminum. 

Mount the completed driver 
board in the area vacated 
earlier. Position the short cables 
terminating in the large connec- 
tor so that no contact can be 
made with either the chassis or 
the added board. Keep in mind 
that TTL and MOS components 
don't take kindly to doses of 
48V. 

Software 

A screen printer program I 
find very useful is shown in 
Listing 1. When initialized, this 
program reconfigures the jump 
address in the video DCB and 
sends characters to the driver 
before they are displayed on the 
monitor. 

The program contains a sub- 
routine that checks the TRS-80 
keyboard for two specific two- 
character inputs. Simultaneous 



7441 Modifications 

Before modifying the 7441, 
check its power supply for prop- 
er operation. Remove all plug-in 
cards from the cabinet, with the 
exception of the - 12V regulator 
card on the power supply board. 
Apply power to the 7441. It 
makes no difference whether 
the Selectric cable is connected. 
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EPSON 

MX-80 
EPSON 

MX-70 



MX-80 

MX-80 FT 

MX-1 00 

EPSON 

EPSON 
EPSON 




EPSON 
EPSON 
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Ai SmaII 

AMERICAN Bcsi«ss 

COMPUTERS 



I 18 S. MILL ST. PRYOR, OK. 74J61 

AMERICAN SMALL BUSINESS 
COMPUTERS STOCKS THE ■ 
ENTIRE LINE OF EPSON 
PRODUCTS AND ACCESSORIES 

CALL FOR OUR 
PRICING ! 

WE PROMISE IT WILL BE 
WORTH THE CALL !! 




918-829-4844 



,"■?■■ 



RETAIL STORE LOCATION - SOUTHWOOD 
SHOPPINC CENTER — PRYOR, OK. 



Coloi Computer News 

Color Computer News is the first and only magazine devoted to the users 
o( Radio Shacks Color Computer Color Computer News allows CC users to 
have a source ot lnlormation about their machine plus lorums tor the ex- 
change ot ideas, discovenes, helps, and complaints CCN is published every 
other month and contains features like 6809 Assembler programming, 
Novice Basic. Advanced Basic. Letters and Technical Forums CCN reviews 
current products lor the Color Computer and tells the truth about them good 
or bad 

It's not just a beginner's magazine either, it prints what old hacker's need 
to know too Things like entry points to the ROM and pointers in the Basic 
scratchpad 

Color Computer News is more than just a magazine, it's also a software 
exchange service Color Computer owners can exchange onglnal soft- 
ware by contributing it to the CCN library where several of these programs 
are put on a tape and distributed for a nominal fee CCN is also a nation- 
wide User's Group CCN helps establish local User's Groups with form letters, 
posters, names and publicity 

11 you own a Coloi Computer you need a subscnption to Color Computer 
News. While the other magazines will print some articles about the Color 
Computer you need a constant source of lnlormation to stay abreast of 
what's happening with the Color Computer 

A charter subscription to Color Computer News is just $9.00 for 6 issues. But 
you'd better hurry, you don't want to miss a single issue 

Available From: 

REMarkable Software 

P.O. Box 1192 

Muskegon, MI 49443 



Some back issues available lor S2.50 including postage and handling 



v'TI 



SAVE 
$$$ 



TRS-80 

MICROCOMPUTERS 

CALLUS... 
SAVE MONEY 



SAVE 
$$$ 




Model II 
64K 

$3270.00 
up to 16% 
discount off 
retail 



CALL COLLECT: 

512-689-5536 

Master Electronics, Inc. 

154 N. 5th, Raymondville, Tx. 78580 



1 




1 






1 




1 





Form F48 Provided 
Standard Warranty On Merchandise 




Authorized TRS-80 Dealer. Store #F-723 



i^84 





Program Listing 


6000 


3E89 


LD 


A, 89 


6002 


D303 


OUT 


(03), A 


6004 


3E11 


LD 


A, 11 


6006 


321E40 


LD 


(40 IE), A 


6009 


3E60 


LD 


A, 60 


600B 


321F40 


LD 


(401F),A 


600E 


C37200 


JP 


0072 


6011 


F5 


PUSH 


AF 


6012 


C5 


PUSH 


BC 


6013 


D5 


PUSH 


DE 


6014 


E5 


PUSH 


HL 


6015 


C3A961 


JP 


61A9 


6018 


2005 


JR 


NZ.601F 


60 1A 


CD2960 


CALL 


6029 


60 ID 


1803 


JR 


6022 


60 IF 


CDA660 


CALL 


60A6 


6022 


El 


POP 


HL 


6023 


01 


POP 


DE 


6024 


CI 


POP 


BC 


6025 


Fl 


POP 


AF 


6026 


C38061 


JP 


6180 


6029 


FE20 


CP 


20 


602B 


CAA660 


JP 


Z.60A6 


602E 


FE0D 


CP 


0D 


6030 


CAAB60 


JP 


Z.60AB 


6033 


FE0A 


CP 


0A 


6035 


CAB460 


JP 


Z.60B4 


6038 


FE08 


CP 


08 


603A 


CABD60 


JP 


Z.60BD 


60 3D 


FE09 


CP 


09 


60 3F 


CAC660 


JP 


Z.60C6 


6042 


FE2E 


CP 


2E 


6044 


CAE660 


JP 


Z.60E6 


6047 


FE2C 


CP 


2C 


6049 


CAEB60 


JP 


Z.60EB 


604C 


2661 


LD 


H,61 


604E 


E67F 


AND 


7F 


6050 


6F 


LD 


L,A 


6051 


7E 


LD 


A, (HL) 


6052 


FE00 


C? 


00 


6054 


CAA660 


JP 


Z.60A6 


6057 


47 


LD 


B,A 


6058 


CB7F 


BIT 


7, A 


60 5A 


C26860 


JP 


NZ.6068 


60 5D 


DB02 


IN 


A, (02) 


605F 


CB47 


BIT 


0,A 


6061 


C47360 


CALL 


NZ.6073 


6064 


CD 84 60 


CALL 


6084 


6067 


C9 


RET 




6068 


DB02 


IN- 


A, (02) 


606A 


CB4F 


BIT 


1,A 


606C 


C47360 


CALL 


N'Z,6073 


606F 


CD8460 


CALL 


6084 


6072 


C9 


RET 




6073 


3E01 


LD 


A, 01 


6075 


D301 


OUT 


(01), A 


6077 


CD9660 


CALL 


6096 


60 7A 


AF 


XOR 


A 


60 7 B 


D301 


OUT 


(01), A 


607D 


DB02 


IN 


A, (02) 


607F 


CB5F 


BIT 


3,A 


6081 


20FA 


JR 


NZ.607D 


6083 


C9 


RET 




6084 


78 


LD 


A,B 


6085 


E67F 


AND 


7F 


6087 


D300 


OUT 


(00), A 


6089 


CD9660 


CALL 


6096 


60 8C 


AF 


XOR 


A 


60 8D 


D300 


OUT 


(00), A 


608F 


DB02 


IN 


A, (02) 


6091 


CB5F 


BIT 


3,A 


6093 


28FA 


JR 


Z.608F 


6095 


C9 


RET 


Program continues 
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Program continued 



6096 
6097 
6098 
609B 
609 E 
60A1 
60A3 
60A4 
60A5 

60A6 
60A8 

60 AB 
60 AD 
60 BO 
60B3 

60 B4 
60 B6 
60 B9 
60 BC 



E5 

C5 

210000 

110000 

01000C 

EDBO 

CI 

El 

C9 

3E82 
C38760 

3E02 
CDCF60 
CDD860 
C9 

3E04 
CDCF60 
CDDF60 
C9 



60 BD 3E10 

60 BF CDCF60 

60C2 CDDF60 

60C5 C9 

60C6 3E08 

60C8 CDCF60 

60CB CDD863 

60CE C9 

60CF D301 

60D1 CD9660 

60 DA AF 

60D5 D301 

60D7 C9 

60D8 CD9661 

60DB 00 

60DC 00 

60DD 00 

60DE C9 

60DF DB02 

60E1 CB5F 

60E3 20FA 

60E5 C9 

60E6 3E2C 

60E8 C38760 

60EB 3E48 

60ED C38760 



PUSH 

PUSH 

LO 

LD 

LD 

LDIR 

POP 

POP 

RET 

LD 
JP 

LD 

CALL 
CALL 
RET 

LD 
CALL 
CALL 
RET 

LD 
CALL 
CALL 
RET 

LD 

CALL 
CALL 
RET 

OUT 
CALL 
XOR 
OUT 

RET 

CALL 

NOP 

NOP 

NOP 

RET 

IN 
BIT 
JR 
RET 

LD 

JP 

LD 
JP 



HL 

BC 

HL.0000 

DE.OOOO 

BC.OCOO 

BC 

HL 



A, 82 
6087 

A, 02 
60CF 
60D8 



A, 04 
60CF 
60DF 



A, 10 
60CF 
60DF 



A, 08 
60CF 
60D8 



(01), A 
6096 
A 
(01), A 



6196 



A, (02) 
3,A 

NZ.60DF 



A.2C 
6087 

A, 48 
6087 



60 FO 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 

6130 
6181 
6182 
6183 
6184 
6187 
618A 
61SD 
618F 
bl90 
6191 
6192 
6193 



00 00 
00 00 
00 00 
00 3C 
15 7D 

oo cc 

98 88 
00 4C 
13 08 



00 00 
00 00 

00 00 
9C ED 
2D 6D 
81 C9 
DC 94 

01 49 
5C 14 



F5 

C5 

D5 

E5 

210000 

110000 

010006 

EDBO 

El 

Jl 

CI 

Fl 

C35804 



00 00 
00 00 
00 00 
D5 9D 
55 ID 
D9 99 
B9 E9 
59 19 
39 69 

PUSH 

PUSH 

PUSH 

PUSH 

LD 

LD 

LD 

LDIR 

POP 

POP 

POP 

POP 

JP 



00 00 00 
00 00 00 
00 00 00 
DD 1C 85 
OD 5D 4D 
E8 F8 91 
EC 84 F9 
68 78 11 
6C 04 79 

AF 
BC 

nr. 

HI. 

HL.0000 
DE.OOOJ 
BC.0600 

HL 
DE 
EC 
AF 
0458 



00 00 
00 00 
00 00 
95 CD 
05 D8 
SC B8 
90 BD 
OC 38 
10 3D 



00 00 
0.) 00 
00 00 
A8 C8 
58 8D 
89 Dl 
00 00 
09 51 
00 00 



00 00 FT 
00 00 00 
00 00 00 
02 AC 50 
28 BC DO 
FC A9 D4 
00 00 00 
7C 29 54 
00 00 00 



Program continues 



PLUG INTO... 




ACCESS^ 

The Journal of Microcomputer Applications 



Numerical analysis, statistics, simulation, information 
retrieval, engineering design, engineering economics, proj- 
ect planning & management, personal finance, scientific & 
engineering applications. Subscribe now $16 for 6 issues. 
Send check, money order or company purchase order to: 
ACCESS, P.O. Box 12847, Research Triangle Park, NC 27709 



To: ACCESS, P.O. Box 12847 

Research Triangle Park, NC 27709 
Here's my $16. Sign me up for 6 issues. 



Name _ 
Address 
City 



State 

Published by LEDS Publishing Inc. 



Zip_ 



-30*3 







BASF-DPS 

WORLD STANDARD TAPE 



. PROFESSIONAL 5-SCREW SHELL 

• UNIVERSAL INDUSTRY ACCEPTANCE 

DATA TRAC - C-10, C-20 
MUSI TRAC - C-45, C-90 



WHAJ 



A* 0Ut „ 



lie*' 8P > 






volant ,0( 



.ll. 

ood 



Tf e 



qu 



*^?<#> 






"*-&, 



ir>" 



^ n ":»oa 



«*£>> 



c verV 
,ro9 ra fcjw* 
oP 6 ' 



e n°° 9 
ci°s' 



•ji 



•V" 



ten' 



08 



»B* 



««, 



,-.• 






,<Q 



qua 



W^'tUP 

Keep 






nd 



"YOU'VE TRIED THE REST. NOW BUY THE BEST 



Call: 213/710-1430 for IMMEDIATE SHIPMENT on Credit Card Orders 



order now... Mail to: VORK lOComputeriuofe 



Plaaee Mnd c— «H» checked baton 


lbksth i oozn zoom 
a ■» 


TOTAL 


■ ,! 




ZAb ~ 13 M 

C90 ' ?' 75 -39 00 




SCB *DTAl 
Csf resosnts »M 6% ales Is 




Snwmg l dm $2. ? Uo $3 SO 
adflll aoi S' 




fOW 





24573 Kittndge St., K80C, Canoga Park, CA 91307 

n Check or M encased Cnarge to my Credit Carfl 
□ VISA Q MASTERCARD Exp.resd*e 



WWrE FOR OUANTITV DISCOUNTS 
Slt«pa! tit-gia Br UK to Urtti addrm x Con) 
J S 1 ««| * cannot imp u >■ loin 



- SM Utt ol Advertisers on page 4 18 
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Program 


■ *•' '-^ec 










6196 


CD966Q 


CALL 


6096 




6199 


CD9660 


CALL 


6096 




619C 


CD9660 


CALL 


6096 




619F 


CD9660 


CALL 


6096 




61A2 


DB02 


IN 


A, (02) 




61A4 


CB67 


BIT 


4, A 




61A6 


28FA 


JR 


Z.61A2 




61A8 


C9 


RET 






61A9 


3A7F38 


LD 


A,(387P) 




61AC 


B7 


OR 


A 




61AD 


28ia 


JR 


Z.61C7 




61AF 


TE13 


CP 


18 




61B1 


2806 


JR 


Z.61B9 




61B3 


FE60 


CP 


60 




61B5 


2809 


JP. 


Z.61C0 




61B7 


180E 


JR 


61C7 




61B9 


3EFF 


LD 


A, OFF 




6 IBB 


32FF60 


LD 


(60FF),A 




61BE 


18GE 


JR 


61CE 




61C0 


3E00 


LD 


A, 00 




61C2 


32FF60 


LD 


(60FF),A 




61C5 


180A 


JR 


61D1 




61C7 


3AFF60 


LD 


A, (60FF) 




61CA 


FEFF 


CP 


OFF 




6 ICC 


2006 


JR 


NZ.61D4 




6 ICE 


79 


LD 


A,C 




61CF 


CB7F 


BIT 


7,A 




61D1 


C31860 


JP 


6018 




61D4 


El 


POP 


HL 




61D5 


Dl 


POP 


DE 




61D6 


CI 


POP 


BC 




6ID7 


Fl 


POP 


A7 




61D8 


C35804 


JP 


0458 



depression of the up and down to reconstruct the lookup table. 



arrows prints characters sent to 
the monitor. Depressing the left 
and right arrows bypasses print- 
ing functions. 

Since the driver program de- 
pends upon handshaking sig- 
nals from the printer, you will 
get a video display lockup if you 
have the print option on and turn 
the printer or 7441 off. Once the 
Selectric driver program has 
been loaded and is running, you 
must either press the left and 
right arrow combination or 
POKE the original jump address 
back into the video DCB before 
shutting off power on the inter- 
face or printer. 

The driver program treats the 
non-printable characters, such 
as graphics symbols and some 
ASCII characters that are not on 
the typeball, as spaces. 

I used the data processing 
typeball, IBM P/N 1167169. The 
lookup table in the driver is writ- 
ten to correspond with the char- 
acter and symbol locations on 
this particular typeball. 

You can use almost any typ- 
ing element with the Selectric 
driver program, but be prepared 
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You can print almost anything 
desired by inserting the ap- 
propriate typeball and loading a 
corresponding lookup table. 



Lookup Table 

Look closely at the Selectric 
typeball. There are four circular 
rows of 22 characters per row. 
Position the ball with the arrow 
on top of the ball pointing direct- 
ly at you. The hemisphere you 
are now seeing prints lower- 
case, while the entire hemi- 
sphere away from you prints up- 
percase. 

The four characters or sym- 
bols directly under the arrow on 
top of the element are known as 
the "home" characters. When 
the machine is at rest in lower- 
case this column is opposite the 
platen. If the Selectric is shifted 
to uppercase, the ball is rotated 
180 degrees to bring the other 
set of home characters nearest 
the platen. 

Any character can be printed 
by the correct amount and direc- 
tion of rotation, combined with 
the correct tilt. A case shift 
rotates the element a half-turn. 



n 



-«- 



-»- 



-«— f- 



-»- 



«r 



-«- 



-»- 



-«— »- 



-«- 



-»- 



8255 ' INTERCONNECTING 

N'ERFACE CABLE 
BOARD ; CONNECTORS 

OPTIONAL ! 




<? 



-< <r 

■<!•* 
•<«<■ 

-<20f 

<»€ 



NON PRINT 
SHIFT 



INDEX 

TAB 

BACKSPACE 



STROBE 
CR INTLK 
MOTOR RELAY 
HANDSHAKE REF 
•UC/LC FEEDBACK REF 



DRIVER BOARD ADDED 
INSIDE 7441 CABINET 



Fig. 1 



Position the typing element 
so that the arrow on top is point- 
ing directly to you. Construct a 
table using the row and column 
format shown in Tables 1 and 2. 
Remember that all characters 
are backward on the typeball. 

Place the four home charac- 
ters in the table in the same 
order they appear on the ball. 
Next write down the five charac- 
ters to the left of the upper home 
character, then the five to the 
right, and so on for the remain- 
ing three rows. You now have a 
table of the lowercase hemi- 
sphere. 

The next step is to construct a 
table for the uppercase hemi- 
sphere. Your table will agree 
with mine only if you are using 
the same typing element. Ac- 
cording to my table, an upper- 
case K is printed by the R2A and 
T2 solenoids. An asterisk is 
printed in uppercase by the R5, 
R2A, T1 and T2. Powering all six 
tilt and rotate solenoids prints a 
1 in lowercase. 

Hexadecimal Conversion 

Now we have to convert the 
tilt, rotate code and case for 



each character into hexadeci- 
mal form. 

Construct anothertable using 
the format shown in Table 3, 
which is the hexadecimal con- 
version of the Selectric codes 
for the typeball I used. Include 
the case, rotate and tilt code for 
each of the characters of your 
typeball in your table. 

One in the case column repre- 
sents uppercase. 

Enter the data at the address 
indicated by the ASCII equiva- 
lent of the character. For exam- 
ple, the tilt, rotation and case 
code for the slash (/) should be 
entered at 2F. The codes for G 
would be entered at 47. 

In Table 3 I used the ASCII 
code 2D tor the hyphen. The CK 
(check) solenoid must be ener- 
gized to print any character on 
the typeball that is represented 
by no tilt or rotate. 

Any typeball character you do 
not wish to have access to, or 
any character not equivalent to 
an ASCII character, can be print- 
ed as a space. Merely use a zero 
in each of the eight code col- 
umns for that character in your 
version of Table 3. 



Computer experts 
(the pros) usually have big 
computer experience. 
That's why when they shop 
system software for 280 
micros, they look for 
the big system features 
they're used to. And that's 
why they like Multi-User 
OASIS. You will too. 



DATA INTEGRITY: FILE & 
AUTOMATIC RECORD LOCKING 






The biggest challenge 
for any multi-user system 
is co-ordinating requests 
from several usei& 

to change , TA sa 'BW e » ir ^ 
at :he same time 

Wi.thcut proper - 
c^-ordinatioBtni 
collusion and o r cblem< 
cf inaccurate cr even 
lesWyec data car be 
aqgeriTig. 

Our Fiteand Airtorp arte* 
'eo orc Locki ng features 
»c I va^ese problems. 

Fcrexample: normally 
all uses can view a 
particular record at the 
same time. But. if that 
record is being updated 
by one user, automatic 
record locking will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



SYSTEM SECURITY: 
LOGON, PASSWORD 
& USER ACCOUNTING 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security. 



(THEN COMPARE.) 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the Loj 
Passwo rd ancL Pri 
Level features otMuIti- User 
:as«B, a system manager 
can spec fy for each user 
Art ch programs and files 
nay be accessed— _.. 
anc for wnat ou r posc. 

Security is fu'thof '•: 
enhanced by User 
Accou nting —a feature that 
ets vvj keep a history 
of which user has been 
logged en, when and 

r how long. 

Pros insist on these 
security features. 
OASIS has them. 



memory is needed. Even 
if you have more than 64K, 
your pay-off is cost savina | % 
and more efficient use m 
of all the merroryycj have 
availab'e— becsjse it 
services more users. "' 

Sound like a pro feature 
It is. And OASIS Has it. 



OASIS IS AVAILABLE FOR 

SYSTEMS Alios Compucorp Crcnemco, 

Delta Product 

M>crosystems 

Index Intersyi 

SD Systems 

Graphic Vo 

i i -.-Mi | 




AND LOTS MORE... 



EFFICIENCY: 
RE-ENTRANT BASK 

A multi-user system 
is often not even practical 
on computers limited 
to 64K memory. 

OASIS Re-entrant 
BASIC makes it practical. 

How 

Because all users use c 
single run-time BASIC 
module, to execute their 
compiled programs, less 



V.ulti-Use- OAS'S supports 
• at many as 1 6 terminals 
; and can run inifs little as 

56 ■< memory. Or, with 
. bank switching, as much 
fhs 784 K. 

Multi-Tasking lets each 

user run more than one 

job at the same time. 
And there's our BASIC — 

a compiler, interpreter and 

debugger all in one. 

An OASIS exclusive. 
Still more: Editor; Hard 

& Floppy Disk Support; 

Keyed (ISAM), Direct & 

Sequential Files; Mail-Box 



Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry. And, of course, 
there's plenty of 
application software. 

Put it all together and it's 
easy to see why the real 
pros like OASIS. Join them. 
Send your order today. 




^■e tor cornf 



PLEASE SEND ME: 



OPERATING SYSTEM 



J Text 

SINGLE-USER 



..T' 



it R 



RE-ENTRANT BASIC 
COMPILER INTERPRETER 
DEBUGGER 



DEVELOPMENT PACKAGE 

: • 
Ovbugge') 






• Juage 
•«ry C • 
OS etc i 



COMMUNICATIONS 
PACKAGE 



PACKAGE PRICE 



COBOL-ANSI '74 



Manual 
Only 



-: ■ •• ■ 

17 50 



Phase One Systems. Inc. 

7700 Edgewater Drive. Suite 830 

Oakland, CA 94621 



62-8085 

TWX 910-366-7139 

NAME 




STREET (NO BOX = 
CITY 





STATE ZIP 
AMOUNTS 





system closer pi en 

add S3 (Of s- ice rj 

Cn ':' n a •esiCe~ts add sales taxi 

□ Check enclosed □ VISA 
; UPS COD. □ Master-charge 

Card Number 

Exoiration Date 

Signature 



MAKES MICROS RUN LIKE MINIS 



Underscoring 

Although my typing element 
has an underscore symbol, I 
don't use it because the Selec- 
tric cannot execute a carriage 
return without an accompanying 
line feed. 

Underscoring can be used if 
you need it, but you would have 
some extra operations to go 
through. You could type a char- 
acter, backspace and then un- 
derscore. Or you could manually 
operate the platen to get back to 
the line to underscore. 

The lookup table in the Pro- 
gram Listing has a starting ad- 
dress of 6100H and goes to 
617FH. 

The ASCII value being sent to 
the video circuits is in the C 
register at the point where the 
driver program is patched. This 
value is loaded into the A regis- 
ter, converted into seven bit for- 
mat, and loaded into the L regis- 
ter. The H register has been 
loaded at 61 H. Now the HL reg- 
ister has the addressof the look- 
up table. 

The A register is loaded at the 
location to which HL points, and 
the program proceeds to initiate 
printer functions. When the driv- 
er has completed its functions, 
the video display routine is com- 
pleted. 

Once you enter your version 
of Table 3, convert the eight bit 
quantities into hex format. The 



ADDRESS 


CHAR. 


CASE 


R5 R2 


R1 


R2A 


T1 


CK 


T2 


HEX 


6121 


i 





1 


1 


1 


1 








3C 


22 









1 


1 


1 








9C 


23 


1 




1 1 





1 


1 





1 


ED 


24 


s 




1 


1 





1 





1 


D5 


25 


Vo 







1 


1 


1 





1 


90 


26 


+ 




1 


1 


1 


1 





1 


DO 


27 










1 


1 


1 








ic 


28 


( 













1 





1 


85 


29 


) 







1 





1 





1 
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1 


40 
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1 
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1 
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1 





1 


3D 








Table 3 















hex values should be entered in 
the program lookup table at the 
address indicated by the hex 
value of the ASCII byte. 

You will generate a mess on 
paper if you use a non-BCD type- 
ball on the 1980 and use the 
printer keyboard for input. You 
have two choices— either use 
BCD typing elements or change 
the 1980 keyboard interposers 
to the Correspondence style. 

If you choose the latter ap- 
proach, I recommend a fine two- 
part article by Robert M. Weil in 
the December 1979 and January 
1980 issues of Kilobaud Micro- 
computing. 

Additional Comments 

I have been using the 1980 for 
several months, primarily as a 
source for hard copies of hex 
dumps and disassembled list- 
ings. The machine has become 
almost indispensable because 
it is so much easier to trace pro- 
gram flow when it is all laid out 
before you. And the manuscript 
for this article was prepared us- 
ing the 1980. 

Machine language program- 
mers should have little difficulty 
adapting the driver program to 
any of the several word process- 
ing programs on the market. It 
should also be easy to reconfig- 
ure the driver for use with the 
LLIST and LPRINT functions in 
Basic! 



Instructor of Finance and Accounting at UCLA has written 

AND EDITED THESE NEW PROFESSIONAL PROGRAMS FOR THE TRS - 80® MODEL II 



BUSINESS MANAGEMENT I ($125) 

• Mortgage/Annuity Program 

• Effective Interest Rate Analysis 

• Depreciation Analysis 

• Savings Analysis 

• Internal Rate of Return Program 

• Present Value Analysis with Plot 

BUSINESS MANAGEMENT II ($100) 

• Lease versus Purchase Analysis 

BUSINESS MANAGEMENT III ($110) 

• Linear Regression 

• Confidence Limits on Linear 
Regression 

• Statistical Analysis 

• Curve Fitting 

• Multiple Regression with Plot 

Write or call for free brochure 




Bach system on a single 8" diskette 
with TRSDOS Version 2.0A 
Complete support, extensive documen- 
tation and examples for each program 
AH programs are user-oriented 
and "Ready to Go" 
Programs operational for past 10 years 
Computer consulting available and 
other software packages under 
development 
Programs written and compiled in an 
efficient program language 

Save postage & handling 
Send check or Money Order today to 

CENTURY SOFTWARE SYSTEMS 

1875 Century Park East. Suite 1730. 
(213) 879-591 1 Los Angeles. CA 90067 



QQ^^JQQUQOULk^^ 
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Not all Spelling Checkers are the same. 



MICROPROOF 



T.M. 



stands out! 



EASY TO USE: Prepare your text on any Z-80 based micro- 
computer, using any of a number of popular word 
processing programs. When you are finished, enter the 
appropriate command, and MICROPROOF proofreads 
your document, displaying misspellings and typos on the 
screen. Then correcting MICROPROOF can display each 
error separately, requesting you to enter the correct 
spelling for each. You are also given the option of displaying 
errors in context or adding words to MICROPROOF's 
50,000 word vocabulary. Finally, MICROPROOF corrects 
your document. All in less than a minute. 



SELECT APPROPRIATE RESPONSE: 



CORRECT MISSPELLED WORD: 
LEAVE WORO AS IS": 
DISPLAY WORD IN CONTEXT: 
ADD WORD TO DICTIONARY: 
EXIT: 



ENTER CORRECT WORD 
HIT ENTER- KEY 
? 



WORD: 
RESPONSE: 



(Your error) 



Correcting MICROPROOF Screen Display 

SPEED is the single most important factor in a dictionary- 
program. All dictionary programs will find your potential 
errors but if the program is too slow, you are not likely to 
use it. MICROPROOF's speed is outstanding. It can proof- 
read a several page letter in 20 seconds. 



LOW PRICES: Standard MICROPROOF is available for 
either $89.50 (TRS-80* Models I or III ) or 
$149.50 (CP-M*. TRS-80* Modei II and all others). The 
optional correction feature can be added at any time for 
an additional $60.00. Optional patches to integrate 
MICROPROOF into your word processing software can 
also be added at any time for an additional $35.00. 
(Integration patch not needed for Wordstar*.) 



MICROPROOF'S FULL 50.000 WORD VOCABU- 
LARY saves you time and allows you greater confidence 
in the lists of potential errors that MICROPROOF 
identifies. The mini-dictionary programs, with their 10,000 
and 20,000 word vocabularies, have many correctly spelled 
words omitted from their vocabularies. Consequentially, 
they identify as potential "errors" many words that are 
actually spelled correctly; five to ten times as many such 
words as does MICROPROOF. So, when you use 
MICROPROOF you will have far fewer extra words to 
evaluate, a major time savings. There will be less need to 
look up words in order to verify that they are m fact spelled 
correctly. The extra 30,000 words in MICROPROOF's 
vocabulary assures you confidence in the error lists that 
MICROPROOF generates. 

There are other proofreading programs available to choose 
from. Since MICROPROOF became available in December 
of 1980, a number of companies have announced programs 
with small dictionaries. It took us almost two years to 
develop MICROPROOF. During that time we were able to 
compress our full 50.000 word dictionary into a manageable 
size (fits on one single density S% inch disk). And we were 
able to design a proofing program which operates 
remarkably fast. The chart below illustrates the compara- 
tive advantages of MICROPROOF. 

ADVANTAGES OF MICROPROOF 



MICROPROOF 

DICTIONARY 

SOFTWARE 



OTHERS 
(Mini- 
Dictionaries) 



DICTIONARY SIZE 

DISK SPACE 

REQUIRED 

FOR DICTIONARY 

DICTIONARY 
ENLARGEMENT 

SPEED- 400 Words 

SPEED 3.000 Words 

CORRECTION 
FEATURE 



50.000 Words 

70.000 BYTES 
(fits easily on 
one 5 : ," disk) 

VIRTUALLY 
UNLIMITED 

20 Seconds 

1 Minute 

Opiional 


20,000 Words 
170.000 BYTES 

EXTREMELY 
LIMITED 

1 to 5 Minutes 

2 to 10 Minutes 

Not Available 




See your local microcomputer dealer or write to: 

CORNUCOPIA SOFTWARE 



Post Office Box 5028. Walnut Creek. California 943% 



(415)893 0633 ^378 



DATA MANAGEMENT 



Find your favorite ROM addresses fast. 



80 Black Book 



Dave McGlumphy 
4429 Paula Lane 
Red Bank, TN 37415 

This program is for the 
Model 1 Level II TRS-80. 
with or without disk. Its pur- 
pose is to serve as a data base 



to help you find those elusive 
ROM addresses that you re- 
member seeing— somewhere. 

A card file with ROM ad- 
dresses and descriptions would 
serve just as well, but this pro- 
gram can rapidly scan data by 
keywords or by addresses. Ac- 



Program Listing 



A D D R 



S S 



I N D 



18 RESTORE 

20 CLEAR 400 

30 IF PEEKU4317) -0 OR PEEK [ 14317) -255 THEN 0SS-"T" ELSE 0SS-"D" 

•.REM OPERATING SYSTEM-TAPE OR DISK 

40 CLS 

50 PRINT§832,"DAVE MCGLUMPHY 

■6/13/81" 

60 PRINT'4429 PAULA LANE' 

70 PRINT"RED BANK, TN 37415"; 

80 PRINT38," QUICKIE ROM 

E R" 
90 PRINT 

100 PRINT'THIS PROGRAM HAS A LIST OF HANDY ADDRESSES." 
110 PRINT : PRINT'I'LL SEARCH FOR A KEYWORD (STRING) OR AN ADDRE 
SS FOR YOU." 
120 PRINT : PRINT'TYPE WHATEVER YOU WANT TO FIND. (E.G. DISK OR 

16396.) 
130 IF OS$-"T" THEN INPUT SS ELSE LINEINPUT SS 
140 CLS 

150 FOR J-l TO 500 
160 PRINT90.J; 
170 READ DS 

180 IF D$-"999END" THEN CLS : PRINTNO MORE DATA TO READ." : GOS 
L'B 790 : GOTO 330 

190 IF OSS-"D" THEN IF INSTR ( D$ , SS) -0 THEN 320 ELSE 260 
200 REM SEE PAGE 5/12 OF THE LEVEL II MANUAL TO EXPLAIN THE 

'INSTRING' FUNCTION WHICH FOLLOWS THIS REMARK. 
210 IF LEN(SS) >LEN(DS) THEN XS-SS : YS-DS ELSE XS-DS : YS-SS 
220 FOR K-l TO LEN(XS) -LEN ( YS) +1 
230 IF YS=MIDS(XS,K,LEN(YS) ) THEN 260 
240 NEXT K 
258 GOTO 328 

268 REM FOUND THE REQUESTED OBJECT 
278 CLS 
288 PRINT DS 

298 PRINTg896,STRINGS(63,138) 

300 PRINT'DO YOU WANT TO LOOK FOR MORE POSSIBLE MATCHES?" ;: I S-IN 
KEYSiIS""" 
310 I$=INKEY$:IF IS="Y" THEN PRINT IS : GOTO 320 

ELSE IF IS-"N" THEN GOTO 330 

ELSE 310 
320 CLS : NEXT J 

338 CLS : PRINT'WHICH OF THE FOLLOWING DO YOU WANT TO DO NEXT? 
(TYPE THE FIRST LETTER.) 

348 PRINT'A. RUN THIS PROGRAM AGAIN. 

B. RETURN TO BASIC. 

C. RETURN TO DOS. 

D. LIST A SCREENFUL OF DATA STATEMENTS. 

E. GO BANANAS."; 
350 IS-INKEYS 

368 IF IS<"A" OR IS>"Z" THEN 350 

370 ON ASC(IS)-64 GOTO 10,810,390,410,420 

380 GOTO 350 

390 CLS : IF OS$-"T" THEN PRINT'FIRST, YOU'LL HAVE TO BUY A DISK 

Program continues 



tually, this program makes a 
good data base searcher no 
matter what the subject is. It can 
easily be used for phone 
numbers, photographs, stamps, 
recipes, or anything that needs 
some sort of indexing arrange- 
ment. 

The program's utility comes 
from the INSTR function, which 
lets you search quickly through 
strings (words, sentences or 
what have you as opposed to 
numbers). 

You don't need a disk system 
to use the program. Level II 
Basic doesn't have the INSTR 
command, but look on page 
5/12 of the Level II manual. 
You'll find a routine described 
that simulates INSTR, without 
its speed. The simulation is in 
Basic, while the INSTR com- 
mand in Disk Basic is a ma- 
chine-language subroutine. I 
wrote this program so that you 
don't have to make any changes 
to run it on either Disk Basic or 
Level II Basic. 

Line 10 resets the data point- 
er so that each time this pro- 
gram starts from line 10, it'll 
be able to read all the data. Yes, 
it's true that each time you run 
a program, the data pointer is 
reset to the beginning of the 
data. What about when you 
want to start the program over 
again without the command 
Run as in line 340? Restore 
gives you a way. 

Why not just use Run? Be- 
sides resetting the data pointer, 
Run also clears all the variables, 



and there may be some situa- 
tions where you wouldn't want 
that to happen. 

Line 30 determines whether 
the computer running is a disk 
system or a non-disk system. 
Variable OSS (operating system) 
holds a D if it's a disk system, 
and a T if it's a tape system. 

The program needs to know 
if it's on a disk system in three 
places. Line 130 uses the 
customary input statement if 
it's a tape system, but it uses 
the line input statement if it's a 
disk system. What's the dif- 
ference? Line input does about 
the same thing as input except 
that (1) leading blanks aren't ig- 
nored, (2) the string being input 
can have either commas or 
quotes embedded in it, (3) no 
question mark is displayed on 
the screen, and (4) only one 
variable can be used with each 
line input statement. 

If you're using a tape system 
and you type in a string that in- 
cludes a comma, you'll get an 
error message that says "extra 
ignored" which means that 
nothing after the comma be- 
comes part of the search string. 
If you want to search for some- 
thing that has a comma, put 
quotes around the string. 

The second place the pro- 
gram needs to know if it is run- 
ning on a disk system is in line 
190. This is where I use the Disk 
Basic command INSTR or the 
Level II Basic routine. 

On a disk system in line 390 
the user has requested to 
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return the DOS. You can't 
return to the disk operating 
system if you don't have one. 

Line 150 limits you to 500 ex- 
ecutions of the read statement 
in line 170. You can change that 
if you need to, but I doubt you'll 
have more information in data 
statements than line 150 al- 
lows. You need to have fewer 
data statements than the last 
number in line 150. 

Line 180 checks D$ (data 
which was read by line 170) to 
see if it is 999END. If it is, there 
isn't anymore data to read. In 
this case, the program presents 
a menu of options. 

Line 290 prints a line of 
graphic characters just above 
the bottom line of the screen to 
visually separate the informa- 
tion at the top of the screen 
from the instruction at the bot- 
tom of the screen. 

In line 330 notice that the 
words "(TYPE the . . . )" aren't on 
the same line as "Next?" even 
though there appears to be 
plenty of room on the line. 
That's because I used the 
down-arrow when typing line 330 
to drop "(TYPE The. . .)" down a 
line. It drops down both in the 
program listing and on the 
screen when you run the pro- 
gram. It's a good way to format 
the screen displays. 

Lines 360 and 370 show a 
handy way to allow a user to 
select a function from a menu 
of up to 26 choices. The menu 



has a letter of the alphabet in 
front of each choice, starting 
from A and going with con- 
secutive letters until there are 
no more choices. Line 350 waits 
for the user to type a letter. Line 
360 makes sure that the user 
typed an unshifted letter, and 
line 370 makes the program 
branch to the requested 
routine. 

The ASCII value for the letter 
A is 65. If you subtract 64 from 
the ASCII value of the letter 
A, you get 1. If line 370 evalu- 
ates ASC(l$)-64 as a 1, it then 
branches to the first address in 
the list of addresses. In this 
case, it's to line 10. If the user 
typed J, then line 370 would 
evaluate ASC(l$)-64 as 10, and 
it would try to jump to the tenth 
entry in its list of addresses. 
Since there is no tenth entry, 
control would pass to the next 
line, line 380, which says to go 
back and wait for the user to 
type another key. 

You might want to print an er- 
ror message between lines 370 
and 380. 

Line 400 is a command for 
disk users. It says to leave 
Basic and go back to the disk 
operating system. 

Lines 480 through 770 con- 
tain the data (database?). 
Notice that there are quotes 
around the data in each line; 
when I read a line of data, I'll 
get the entire line including 
commas. ■ 



Program continued 

SYSTEM!" : GOSUB 799 : GOTO 33B 
400 CLS : CUD'S' : REM RETURN TO DOS 
410 CLS : LIST 460-540 
420 CLS 

430 PRINT CHR$(23) 
440 FOR J*l TO 100 
450 PRINT* RND(145)*7, "BANANAS"; 
460 NEXT J 
470 GOTO 330 
480 DATA'TO GOTO READY ON MODEL 1 OR III, LD BC,1A18H 



JP 19AEH 



490 DATA"CHRS(27) "UPWARD LINE FEED. EX: AS-CHRS ( 222) +CHRS ( 27) , 

FORX*lT05: INPUT'NAME" ;NS(X) :PRINTAS; : INPUT'AGE' ;A(X) :NEXT" 
580 DATA'INPUT 248 PORT ON MODIII. 30H-PRINTER READY." 
510 DATA"PEEK(293) . 73-MODEL III, ANYTHING ELSE-MODEL 1." 
520 DATA "14308 POKE N,0 HERE TO SELECT TAPE DRIVEtl. 
POKE N,l TO GETI2. USE 255, N TO TURN MOTOR ON/OFF" 
530 DATA"14312 MODEL 1 PRINTER STATUS. 
IFM27, PRINTER NOT READY OR ATTACHED. 
63«PRINTER READY." 
540 DATA"14317 DISK/TAPE FLAG. OR FF'TAPE. ANYTHING ELSE-DISK. 

ON MODEL III, INPUT PORT F0: FF-TAPE, ANYTHING ELSE'DISK." 



550 DATA "15105 P A B C D 
/81 P131" 

560 DATAM5106 H I J 

570 DATA"15108 P Q R 

580 DATA"15112 X Y Z 

590 DATA"15120 1 2 

600 DATA"15136 8 9 : 



E F G PEEK KEYBOARD : SEE 80MICRO 04 



L M N O 
T U V W 



5 6 7 



/ 



PEEK KEYBOARD" 
PEEK KEYBOARD" 
PEEK KEYBOARD" 
PEEK KEYBOARD" 
PEEK KEYBOARD" 



610 DATA"15168 ENTER CLEAR BREAK UPARROW DNARROW LFARROW RTARROW 

SP" 
620 DATA"15232 SHIFT PEEK KEYBOARD" 

630 DATA"POKE15360,1:PRINTPEEK(15360) . l=RADIO SHACK LOWERCASE M 
OD. 

65-NOT RS MOD OR LOWERCASE DRIVER PROGRAM IS INSTALLED. 
SEE THE 02/81 RS NEWLETTER , PAGE 4." 
640 DATA"16396 DISABLES BREAK IN LEVEL II BASIC IF YOU POKE N,23 

POKE N.221 ENABLES." 

650 DATA"PEEK(16409)-0 IF KEYBOARD IS GENERATING UPPER t. LOWERCA 

SE 

AND THE LOWERCASE MOD IS INSTALLED AND THE DRIVER IS WORKING." 

660 DATA"16414-16415-VIDEO CONTROL BLOCK POINTER. 

POKE16414,141:POKElM15,5 TO SEND VIDEO TO LINEPRINTER. 

POKE16414,88:POKE16415,4 TO RESTORE VIDEO. SEE 16422." 

670 DATA"C«PEEK( 16416) ♦256'PEEK ( 16417) TO MAKE OCURSOR POSITION 

680 DATA"16422-23«PRINTER CONTROL BLOCK POINTER. 
POKE16422,B8:POKE16423,4 SENDS LINEPRINTER OUTPUT TO VIDEO. 
POKE16422,141:POKE16423,5 TO RESTORE LINEPRINTER. SEE 16414." 
690 DATA"16424 POKE N,40 TO SET LINES/PAGE COUNT AT 39." 
700 DATA"16425 POKE N,0 TO RESET LINECOUNT" 
710 DATA*16445 POKE N.8-PR1NT CHR5123) (WIDE LETTERS). 

POKE N,0 TO RESET TO 64 CHAR/LI NE-DOESN 'T REPOSITION THE 

CURSOR LIKE PRINT CHR$(28) DOES." 
720 DATA"16526-7=POINTER TO USR ROUTINE. TO CALCULATE VALUES TO 
POKE, INPUT'DECIMAL ENTRY PT ' ; DV:MS=FIX (DV/256) : 
LS = INT( (DV/256-MS) «256) : POKE16526 , LS : POKE16527 ,MS" 
730 DATA'16539 TO LPRINT TAB(N) WHEN N>63, USE 

LPRINT STRINGS(N-PEEK(16539) ,32) FOLLOWED BY WHATEVER." 
740 DATA"16548-9-POINTER TO BEGINNING OF BASIC PROGRAM. TO APPE 
NO, 

POKE1 65 48, PEEK (16633) -2 :POKE16549, PEEK (16634) :CLOAD: 
POKE16548,233:POKE16549,66 (DECIMAL 171291." 
750 DATA" 1 656 1-2-MEKORY SIZE FOR MODEL 1." 
760 DATA"16633-4-POINTER TO END OF BASIC PROGRAM" 
770 DATA'17129-BEGINNING OF BASIC PROGRAMS IN LEVEL II BASIC." 
780 DATA"999END" 

790 PRINT3975, "PRESS ANY KEY TO CONTINUE."; : IS-INKEYS 
800 IF INKEYS-"" THEN 800 ELSE RETURN 
810 CLS : END 



i-a»--a» CHEAP CHIPS ARE NO BARGAIN ■■■ 

1 BUYING ADD-ON MEMORY? 
I GET THE BEST!!! 

I Memory failures cost you time and money Japanese 16k 

1 RAM chips have a one-loten in-service laikjre ratio to U S 
chips ■•from a study by R Anderson. Computet Drv., 

% Hewlett-Packard reported n Tht fcenom/il. 4 26 80 
5 We offer 4116 chips by FnJKmi, NEC. Hitachi. Toshiba 

fj and Mitsubishi tor most popular computers and 

< expansion memory boards, including 
| "Apple -AH TRJ-IO'i "Not Pit ■HnUi M-89 

a 'Superbreln 'Eipmeerim -Many Mere 

8 41 1 1 YN AM C RAM S THE BEIT 

5 200nsec Plastic $23 70 Ceramic 137. IS 

5 150nsec Plastic $30 95 

2 STATC RAMS 

° 2114 450nsec $3 30 300nsec $3 90. 2101 $2 90 

z EMOMS (450 nsec std. ask for hi speed it required) 
_ 2708 $4 80. 2716 5V+12V $9 40. 2716 5V $9 70. 
2 2732 $18 90 
_, We it beat any legitimate price for comparable Ships Hi- 

vobme users, dealers, or clubs, ask tor quantity discounts 

SHIPPING to $25. $2. to $50. $1. over $50. FREE 

COO +$1 40 

DISCOUNTS ON TOTAL over $100. 5H . over $200. 10% 

MINIS ft MICROS INC. • 294M Tfilwtf 
• 96 Agoura. CA. 91301 • (213)991-7433 
CA. residents add 6% sales Mi 

2 YEAR WARRANTY * CALL US ANYTIME 



* SHIP 
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REAL ESTATE SOFTWARE 

*m.E. THVW - PFT 



PROPERTY MANAGEMENT SYSTEM) 1325 



S m 

E. _ 



Immi Nutori 
IM HmM Uov\ 

VKMCf ••»«' 
— Ml MW 

tan l« Ceatfi 
Marine CkKti 



OwntrtNe FM> 
BuMmh "null 
UMMt Ikteen 
tai Eimom «»m«i 
FnatCkecti 
ph«h Memed 



PROPERTY LISTINGS COMPARABI.ES: 8325 

— scikenst — ■- •Mee/MMMei 

• UMI/Ztnt/C*« 

• ?! »i«mit'«) • in Price/lacem 

• 1000 Intiae/Onk • Urn *«•/!« F«M 

• Lnkni Km Wl • M« CiiMhm 

SEAL ESTATE ANALYSIS MODULES 840 Module 

• Hem* PwtMM • !■ OtfcrrM EKHMea 
Pit* AMtyM • AM iwri *M<Tti> 

• L*M Aaaxniwa 

• CeMMcBN CmUfnm • Dteracatiaa Autvui 

WORD PROCESSOR MAGIC WAND: 8285 



I | iftw ere 

J |«»lty|[~^i 



■ rktw COO e»MI 

Co «.1*-<I <M 6". SMI •«■ 



Sunt) dm! ■ miitnjiiMi m»iuiu<m«kii C* sties 




COMPACT 232-IS 
INTERCONNECT SET 

• Easy, lull configuration of line signals 

• All 25 signals passed to headers 

• Designed lor wire-wrap or jumpers 

• Additional header for break-in round cable 

• Made lor permanent installation 

LOW COST -on/y $35.00 

JIS Jumper Set 6.50 

S Y Z Y G Y™ " 2I * 

"the interface people" 

256 W. San Bernardino Rd. 

Covma. CA 91723 • (213) 332-3320 



- See List ot Advertisers on page 418 



80 Microcomputing, December 1981 • 279 



UTILITY 

ED 

LOAD 80 



Mainframe menu for diminutive micros? Yeah! 



Dexterous Data Entry 



Bob Shaken 
973 Harney Way 
Sunnyvale, CA 94087 



ATRS-80 with a couple of 
disk drives and a printer 
makes a top-notch, low cost 
business computer. TRSDOS 
and disk Basic provide a lot of 
computing power, yet are sim- 
ple enough that a relative novice 
can write fairly complex, data- 
based business programs for 
number crunching, report gener- 
ating, and record keeping. Un- 
fortunately, in the area of key- 
board data entry, the 80 falls 
short. 

Professional small business 
minicomputers provide good 
CRT/keyboard control and query 
language to simplify both the 
programming of screens and 
menus and the keyboard opera- 
tor's data entries. The 80 hardly 
addresses these areas. 

I have come up with some 
useful modular subroutines that 
I incorporate in just about every 
program. The most important is 
a data entry subroutine that sim- 
ulates the display and control 
needed for data entry using in- 
put screens. It displays data in 
the right place, provides for- 
ward-backward, flashing cursor 
and backspace functions, and 
generally simulates the presen- 
tation found on a professional 
business mini. 

The program has to guide the 
inexperienced user through ev- 



ery step, using language he is 
familiar with, and must tolerate 
any mistake without a crash. I 
have tried to simulate tech- 
niques used by business mini 
pros for selection menus, data 
input screens, and subroutines 
for cursor control and data 
verification. 

Menus give the operator a se- 
lection of program functions. 
They should be clear and unam- 
biguous, and prevent panic in 
event of a mistake. 

Screens are more complex. 
First, the layout must be de- 
signed. Once the screen is dis- 
played, TRS-80 Basic does not 
provide any high-level language 
commands for properly using 
the screen for data input. Sever- 
al subroutines must be incorpo- 
rated to guide the operator and 
give him control, plus keep the 
screens intact under all condi- 
tions and make sure that the da- 
ta entered meets program and 
file constraints. 

Menu Generating Subroutines 

In a typical program, there are 
several to a dozen or more 
menus, starting with a main pro- 
gram selection menu, and pro- 
ceeding to subordinate selec- 
tion menus. I also provide a 
me n u t h at a I lows t he operator to 
verify or cancel the input and 
decide what to do next. Display- 
ing a single screen or menu is 
simple, but in a program with 
many displays, subroutines sim- 
plify programming and subse- 
quent modifications, and be- 



come effective modules usable 
from program to program. 

A typical menu generating 
listing is shown in Program 
Listing 1. Lines 500-530 define 
the menu header and display it, 
centered, at the top of the CRT. 
Obviously, we could accomplish 
the same thing with a one-liner: 

500 CLS: PRINT TAB(23) - SELECTION 
MENU"":PRINT:PRINT 

but in a complex program with 
many displays of screens and 
menus, lines 510-530 become a 
one-line subroutine and 500 is 

simplified to: 

500CLS:H1$ = "SELECTION MENU* " 
:GOSUB XXX:PRINT:PRINT 

Lines 550-590 print the menu. 
I% defines the number of menu 
items to be displayed. The items 
themselves are located in a 
single data statement at line 
9010. 

Get the Right Data 

Using the Read/data state- 
ments to generate displays is 
very handy. Where dozens of 
displays are used, each can be 
defined and easily modified sim- 
ply by editing one data state- 
ment and perhaps a variable or 
two. Unfortunately, there is no 
way to jump around, select and 
reuse a particular data state- 
ment. However, the TRS-80 
reads data statements quickly, 
so the subroutine shown in Pro- 
gram Listing 2 can be used with 
dozens of data statements with 
only a minor delay. 



Listing 2 replaces lines 540 
and 9010 of Listing 1 and adds a 
subroutine starting at line 
10100. To find the desired data 
statement, add a keyword as the 
first item in the data statement. 
S$ and H1$ are dummy vari- 
ables. The Restore in line 10110 
sets the Read sequence to start 
at the first data item. Line 10130 
looks for a match between S$ 
and H1$. When the match is 
found, the program returns to 
the main listing and the next 
Read statement will start at the 
first real item of the selected 
data statement. 

Make the keyword descriptive 
of the application (e.g., MENU, 
SCREEN1), and put all data 
statements in one place. This 
makes it simple to find any dis- 
play and review its contents. A 
string variable (H1$) is the dum- 
my, so both numeric and string 
data can be read during the 
search. Quotes are not needed 
around string data elements un- 
less they start with a leading 
blank or contain terminators. 

One from Column A 

There are a number of ways to 
let the operator make a menu 
selection. Only a valid entry 
should be accepted. The best 
technique I have found is de- 
scribed by C. W. Simpson {The 
Alternate Source, Vol. 1, Num- 
ber 4, p. 38) and shown in Listing 
3. It uses mnemonics and the 
characteristics of INSTR and 
ON. ..GOTO... or ON... 
GOSUB... . 
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500 


CLS : 


HIS ■ •* SELECTION MENU 


»" 


51B 


Hl% - 


LEN(HIS) 








528 


Q • (64-Bl%)/2 








538 


PRIOT 


TAB(Q) HIS : PRINT : 


PRINT 


548 


REM 










550 


13% - 


5 : 12% ■ 23 








568 


FOR 1% - 1 TO 13% 








570 


READ 


12S 








580 


PRIOT 


TAB(I2%) H2S 








590 


NEXT 


1% 








600 


GOTO 


600 








9000 REM 










9010 DAT/ 


<A>DD,<OHANGE 


<D>ELETE 


<P>RINT,<Q>UIT 






Program L 


sting 


1. 





540 SS « "MENU' 




9000 


(EM 




9010 


)ATA MENU,<A>DD,<C>HANGE, 




^D>EL£TE,<P>RINT, 


0>UIT 


10100 


REM 




10110 


RESTORE 




10120 


READ HIS 




10130 


IF HIS - SS THEN 


RETURN 


10140 


GOTO 10120 






Program Listing 


2. 



Listing 2 generated a five- 
item menu with the first letter 
mnemonic of each item (in or- 
der) being A, C, D, P and Q. In 
Listing 3, these five characters 
are made into one string in line 
620. When a key is depressed, 
line 620 searches the string us- 
ing the INSTR command in line 
610, to find the first location 
matching the key depressed 
(A$). If a match is found, A% 
takes the value of the position of 
A$ in ACDPQ. Since this value is 
also the order number of the 
item in the menu selection, it is 
used directly for branching in 
line 630. If no match is found, IN- 
STR returns A% as zero. ON A% 
GOTO... ignores a zero and 
passes control to the next state- 
ment, so if an invalid key is de- 
pressed (even an Enter), A% is 
zero, line 630 is ignored and line 
640 jumps back to line 610. 
There are no REDOs and no 
scrolling, so everything stays 
put. 

Make Your Own Screen 

Data input screens provide a 
visual format as an aid in enter- 
ing data quickly and accurately. 
In most cases, the source data 
is hand-written. The optimum 
screen is identical to the input 
form. If you can't arrange the in- 
put that way due to the physical 
constraints of the CRT display, 
rearrange the screen input for- 
mat as logically as possible. If 
there are more items than can 
be included in a single screen, 
use multiple screens with each 
faithfully reproducing one seg- 
ment of the source data form. 

If the source data does not 
come from some other docu- 
ment, arrange the screen to di- 
rect the user through a logical 
sequence consistent with the 
source data. 

Use the exact wording of the 



source data as closely as possi- 
ble. But don't overcrowd the 
screen, it generates mistakes 
and slows down data entry 
speed. Use a top-to-bottom, left- 
to-right flow. 

The data entry screen con- 
sists of two (and sometimes 
three) independent but inter- 
related patterns. First is the 
screen display itself. Second is 
the pattern of blank spaces for 
data entry. Both patterns are al- 
ways required. The third pattern 
used for data editing displays 
the existing data prior to the 
edit. 

The two basic types of 
screens most useful are the 
form type and the column type. 
In the column type, the prompt 
words appear as a vertical col- 
umn, and the blank spaces for 
data entry are immediately adja- 
cent to the right. This form is 
useful for entering columns of 
numbers. For data editing, dis- 
play the existing data to the 
right of the prompt word, and 
the space for the new data entry 
to the right of the existing data. 

The form type duplicates the 
appearance of the source data 
form. Start the data entry flow at 
the top, running left-to-right, 
top-to-bottom, with the space 
for data entry immediately 
above the associated prompt 
words. 

Listing 4 shows an example of 
the form type, using techniques 
similar to those for generating 
the menu, but showing one im- 
portant difference. Here each 
prompt word must be in a specif- 
ic location to simulate the form, 
so that a simple Print Tab(l2%) 
command becomes a nuisance. 
In the data statement, each 
prompt word is preceded by a 
number equal to the print posi- 
tion of the first character of the 
word. Line 1530 reads both H1% 



600 


FOR 


I • 1 TO S 


: PRINT : 


NEXT 1 


618 


AS - 


INKEYS : 


IF AS * "• 


GOTO 610 


628 


A* = 


INSTR ('ACDPC", AS) 




638 


ON A% GOTO 651 


,650,650,650,650 


640 


GOTC 


610 






650 


COTO 


650 

Program 


Listing 3. 





1500 


BIS " ** DATA INPUT SCREEN •' : 




GOSUB 10000 




1510 


SS - *SCR£EN3" 


: GOSUB 10100 


1520 


FOR I - 1 TO 7 




1530 


READ .-::» : REAE 


HIS 


1540 


PRINTS Hl%, HIS 




1550 


NEXT I 




1560 


GOTO 1560 




9000 


REM 




9030 


DATA SCREEN3,209,[ LAST NAME [, 




228, (FIRST NAME I, 406,1 STREET 




ADDRESS 1,589, 


I CITY | , 




610, [STATE!, 622 


, [ ZIP [ ,796, 




I PHONE [ 




10000 REM 




10010 Hl% - LEN(HIS) 


iQ - (64-Hl%)/2 : 




PRINT TAB(Q) 


US : RETURN 


10100 REM 




10110 RESTORE 




10120 READ HIS : IF 


US « SS THEN RETURN 


10130 GOTO 10120 






Program 


Listing 4. 



Al 


Menu item selection number 


AS 


INKEYJ temporary variable 


Bit 


Cursor memory location msb 


B2X 


Cursor memory location Iso 


WJ(N.J) 


Mi1n data array, N records of J items each 


DM0. J) 


"emporary data entry storage array 


EM 


Invalid entry flag and counter 


FJ 


ASCII value of character to be verified 


m 


Complete string generated by data entry subroutine 


FU 


Single character entered by INKEYJ 


F2J 


Temporary string formed for data verification 


F3 


Flashing cursor timer counter 


ai 


Data entry error flag 


HU 


Display header string constant 


Hft 


Display header print position 


I 


FOR NEXT loop counter 


n 


Length of character field minus one (PI - Pi) 


121 


Tab position for menu display 


131 


Number of selectable menu items 


J 


FOR-NEXT loop counter 


»C 


F0R-NEXT loop counter 


LI 


Length of data string to be verified 


N 


Data entry record number 


Nil 


Data display record number 


P(J.2) 


Print position storage array 


Pf 


Screen print position of first character (0-1023) 


PI 


Screen print position of last character (0-1023) 


P2 


Current print position (0-1023) 


P3 


Current print position (15360-16383) 


P4 


ASCII value of underline (95) or blank (32) 


P5 


Toggle constant for f>4 (95 ♦ 32 ■ 127) 





Calculated header tab position 


SS 


Data statement keyword string constant 


u 


Display delay dummy variable 




Table 1. List of Variables 
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FREE PREMIUM! 
1982 subscriberswill 
receive the special 
MATH1 package of 
PC programs. You 
qualify to receive 
this valuable free 
gift if you check 
either box 2 or 3 
below! Don't delay! 
Get started learning 
how to enjoy your 
pocket computer to- 
day. Use this handy 
subscription card! 



SUBSCRIPTION FORM 



D 1981 Charter Subscriber (Issues 1 - 10). $20.00 for U.S. 

delivery. (U.S. $24.00 to Canada. U.S. S30 00 elsewhere.) 
D 1981/82 Charter Subscriber (Issues 1 - 20). $40.00 in 

U.S. (U.S. $48.00 to Canada. U.S. $60.00 elsewhere.) 

□ 1982 Regular Subscriber (Issues 11 - 20). $30.00 in U.S. 
(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 

□ Sample issue. $3.00 in U.S. (U.S. $4.00 elsewhere) 

Orders must be accompanied by payment in full. We do not 

issue invoices for the POCKET COMPUTER NEWSLETTER. 

Thank you for your remittance. 

Name: 

Addr: 

City: State: Zip: 

MC/VISA # Expires: 

Signature: _ 



AUTO-WRITER 




SCR1PSIT 

LAZYWRITER 

ELECTRIC PENCIL 



I MAKE YOUR WORD PROCESSOR DO 
THE THINGS YOU BOUGHT IT TO DO 



2P 



9s"c F • Uu Y 



SALES MANAGERS: keep a customer list 
SECRETARIES: sand out customized form letters 
BOOKKEEPERS: prepare reports for the boss 
WRITERS: maintain, organize and sort bibliographic 
BOSSES: create reports and sort data dies 

iintain a mailing list i 



OUR VMORDPROCESSOR to create and i 

any data base. 

Join that mailing list to a form-letter with a wide range of options. 
Sort your Name k> Address files by any key, even when the last name or 
zip code are buried in a line! 

• Sort 10O0 "NAMES". Use up to 20 items per name. 

• Insert into the teit of a form-letter or report command lines that will 
change the printing format from one line to the next in mid 
run EVEN WHEN USING ELECTRIC PENCIL TO CREATE YOUR 
FILES! 

■ Use the built-in Wordprocessor to edit a letter, or, CREATE a wholly 
new letter or report — and — store it in a file that is loadable by your 
Wordprocessor. 

• Personalize form letters as you run! Insert "keys" (words or phrases) 
FROM THE MAILING LIST! Automatically insert a name or title or a 
comment. t $*. 

• Insert any phrase from the keyboard. -nro- 

• STOP automatically for manual sheet feed! ^578 

• SET space for AUTOMATIC sheet feeds. "' 

• Create subsets of your DATA BASE with powerful SELECT IF software 

...Visa and Mastercard accepted... 
NOW AVAILABLE FOR 572.83 (for residents of Minnesota add 5% sales tan) 
• • 'SPECIFY WHEN ORDERING WHETHER MODEL I OR MODEL III" * 

Midwest Data Systems 

abusmess cornrr^ur testacy "> CCXTitit3nv 
400 ' f^st avenue ncrtn -nnneaDO'S ••""ir»esoT-a ^j£>'3Qi t i : c " _j h* * -*.- , ■■ 



&& 



and H1$ and H1% as the print 
position of H1$, and line 1540 
displays the word where it 
belongs. You can rearrange the 
form easily until you get what 
you want by changing the print 
position numbers in the data 
statement. 

Control that Cursor 

When entering data and 
showing error messages you 
must be able to move around the 
display at will. Unfortunately, 
the TRS-80 has a cursor with an 
uncanny ability to erase any- 
thing it passes over. Fortunate- 
ly, there is a way out. You can 
position the cursor anywhere on 
the screen, without causing any 
blanking of displayed charac- 
ters, by POKEing the cursor lo- 
cation into memory locations 
16417 (msb) and 16416 (Isb). To 
derive the proper byte values, 
first define the desired display 
location of the cursor as a value 
between print positions and 
1023. The msb is then 60 plus 
the integer value of the print po- 
sition divided by 256 (60'256 = 
15360, the video memory loca- 
tion of print position zero). The 
Isb is the difference between the 
print position and (60-msb)*256. 
Finally, POKE these values us- 
ing the form POKE 16417, 
msb:POKE 16416, Isb. 

Now a Print command starts 
at the POKEd cursor location 
without disturbing anything on 
the display (end the Print state- 



ment with a semicolon to inhibit 
the line feed or you may lose 
control again). 

Data Entry Subroutine 

We cannot rely on Level 
ll/Disk Basic to actually enter 
the data. We would be stuck 
with input and line input, and the 
cursor would obliterate all our 
hard work. The only thing that 
saves us is INKEYS, and it needs 
help. 

Professional minicomputers 
provide: a flashing cursor to tell 
the operator where he is; a dis- 
play of each character as en- 
tered; the ability to correct typ- 
ing errors; and an opportunity to 
visually verify the data before 
processing. The accompanying 
software also validates the 
data. Validity includes data type 
(string or numeric) and data size 
(within boundary values for 
numerics and within program 
constraints for strings). 

Program Listing 6 accom- 
plishes all of these tasks, rely- 
ing primarily on the data entry 
subroutine shown in Program 
Listing 5, starting at line 60000. 
The subroutine in Listing 5 is the 
heart of the data entry pro- 
grams, so save it on disk and 
tack it onto the end of every pro- 
gram with the Append com- 
mand. Use unusual variables to 
avoid incompatibility. Use a 
highly compressed form, which 
is expanded in Listing 5 for 
readability. 



6B0I0 
68810 
68828 
68838 
68848 
68858 
68860 
68870 



68880 
68898 



60128 
68138 
'I 
68148 
68158 
68168 
68178 
68180 
60196 
6020G 
60218 
68221 
68231 
68241 
68251 
68261 
68271 
60281 
60291 
60301 

6a Ji i 



DATA ENTRY SUBROUTINE PROVIDING 
FLASHING CURSOR, POSITION LOCATOR 
AND BACKSPACE FUNCTION 



REM 

REM ** 

REM ** 

REM •• 

REM *• 

REM •««•...........•.............«.......«.•••....• 

REM 

LET P2-P0:LET F0S»**:LET I1«P1-P0:LET P3-15360+P2 : LET P4*9 

LET P3-8:LET P5-127 

POR I-B TO IliPOKE P3+I,95:NEXT I: GOTO 60110 

LET P3-15368*P2iLET P4-95 

POKE P3,P4:LET P3-8 

LET Fl$«INKEY$:IF Pl$<>"" THEN GOTO 68130 ELSE LET F3-P3 + 1 

IP F3<3 GOTO 60118 

LET P4"P5-P4:GOTO 68100 

IF F1S«*1" AND LEN(F0$)«B THEN FB$-F1$: RETURN 
■UP ARROW 
IF ASC(F1S)<>13 GOTO 60170 
FOR I-P2 TO PI: POKE 15360+1 , 32 : NEXT I 
RETURN 

IF ASC(FlS)->32 OR ASC(Fl$)-88 THEN GOTO 60198 
GOTO 68118 

IF ASC(F1SX>BB GOTO 6B25B 
POKE 15368»P2,95 
IF LEN(FBS)<1 GOTO 60090 
LET P2-P2-1:LET P3-P3-l:POKE P3.95 
LET F0S«LEFT$(F0S.LEN(F0S)-1) 
GOTO 60188 
POKE P3,ASC(F1S) 

LET FB$-F0$«T1$:LET P2-P2*1:LET P3-P3+1 
IF P2<-P1 GOTO 60188 

LET F1S»INKEY$: IF Fl$ = " GOTO 602BB 
IF ASC(F1$)»13 THEN RETURN 
IF ASC1F1S1-88 THEN GOTO 60220 
GOTO 60280 



Program Listing 5. 
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BASICS ll/CMD Mod I or III $69.95 

BASIC/S II is a BASIC compiler for a powerful subset of TRS-80 Disk BASIC 
(Mod l/lll) which is itself written in BASIC, but now is a stand alone I CMD tile 
compiled by BASCOM(c). and is FAST! (previously sold as BASIC/S 3 1 1 It runs 
under almost ANY DOS, Mod I or III (as do the /CMD files it generates). 

BASIC/S II will compile BASIC programs up to about 1 0K in size (but since 
one compiled program can run another with no loss of variables, this is not a 
serious limitation) Variables allowed are integers and strings (A-Z and A$-2S) 
and also arrays of integer and string 1 1 or 2 dimensions) Array names can be 
any length, with all characters significant Integer ari-hmetic is limited to 
addition, subtraction, multiplication, and division with at most two operands on 
the right hand side (eg A=B*C or Z=D'Fi Array elements may be used *ereas 
usual, as may constants (as in A=ARRAY '7i *5. for examplei. 

Most Level II string functions are supported :INSTR.STR$.VAL.CHR$ASC. 
LEFTS. RIGHTS. MIDS, INKEYS. Complex string formulae are not alloweddhus 
you can t say A$=LEFT$ (X$+Y$,2|, you would need to say something like 
B$=X$+Y$:A$=LEFTS(B$.2i, instead 

Disk I/O IS supported, both sequential and random (with LRL < 25r> as well). 
You can have up to 10 files open at one time, and twool them may be random 
files. Disk statements that are supported include OPEN. CLOSE. LINE INPUT 
«. PRINT » FIELD. LSET. GET. PUT. LOF. EOF. CVI. and MKIS 

LZAP/CMD Mod I or III (LDOS only) $39.95 

LZAP/CMD is the most powerfui. easy to use ZAP routine ever written, and it is 
tor LDOS Mod I or III" LZAP uses the resident drivers of LDOS. thereby taking 
FULL ADVANTAGE OF THIS POWERFUL OPERATING SYSTEM LZAP will 
auto-configure itself to drive capacity It will support any » of drives 'rom 0-~. 
any cylinder count up to 255. and any sector « lo 255. Will page between 
double sided drives. 8" drives. LX-80, and hard drive 5" floppies of all sizes at 
same time without getting lost' 
Contains these features: 



QBE 



KM PRODUCT NEKS 




>'MMwmmm i^ 



SUPER UTILITY! 

This fantastic 24 K. stand alone machine language program allows rapid and 
easy access to co-itrolhng data Super Ut.iity. untten bv Kim Watt ot Breeze 
Computing, lie comes with 3" pages of easy to understand, step-by-step 
instructions assuring maximum use of your valuable time 

Seven main menus combining 43 maior programming or disk repair options 
makes this single program incredibly versatile For fasl and easy reference we've 



(R) ead (El xit (Di ebug) 

lA) sen Modify (C) compare (G) o Directory 

iM, odity Hex 1W1 n!e (B' Locate 8yte 

(Fi md fife 1H1 ash codeiLi ocal search 

(Si earch Global iXi Escape iT. oggie 
ispace ban brings up a command menu fo r learners and QUICK reference at 
any time' Aiso contamsan ERROR DICTIONARY 1 that can be turned of to over- 
ride those crashed or protected Mes to exar-inat'O^ 

$69.95 



(R) emove Password 
(I) Go Extent 
(Zi ero buffer 
i Pi nnt screen 
■? page drive 



capsuled some o 

ZAP 

Displav Sector I Disk F 

Display Memory 

Com paw Dflk Sector- 

Copi D.sk Sector* 

Vcnh I)*-. S-clo-s 

Zero Dak Se; :.-.« 

:*r">,j Search 

S»4-;.» Sean* 

PURGE 

K. S»*vj ► .^s 



prog 
(the 



tie- I) ■ 



st options below 
DISK FORMAT 

Standard Format 
Formal Without Erase 
Special Format 

Read Mdtm Maffu 

DISK COPY 
Standard Copy MM* Fa 

Standare OrA W-rhou' 

Forma! 
Specia C.'fx T.iXacmp 

protected in 

p-jrehaser- •. 



DISK REPAIR 

Kepan Gal Table 
Repair Boot 
Read Protect Ore! 
Re>.«.rr Killed Fil 

Chert Dmctoft 



ir or.^iora 



.,*, M.. 



only) 



OSD Utility Disk #1 for LDOS (c) (Mod 

Increase the speed and power of LDOS!! Contains 

LZAP/CMD* RESIDELD/CMD 1 CLONE/CMD 

CHANGE/CMD DCAL/CMO* VDISK/CMO" 

STAT/CMD* BINHEX/CMD* 

And also contained on the disk, by Kim Watt (author of Super Utility! 

lcopycmd recovercmo Dvorak cmd lpurge cmd- 

•means works in Doub'e Density 



■■[••vjwJDr 

d Unused Gi 

now Svsiem 
By Category 



Input ByH Fi : 

Output Byte T 
Mr-wry To D 
Disk To Mem. 



LDQS 



MOD I OR III $149.95 

LDOS is the latwt p—Mtf— of sophisti- 
cated operating system* for tho TRS-80 
computers. LDOS is complototy docu- 
msntsd in • 2S2-psg« rsfsrsnes manual. 
Total support is providad from soma of 
tha most knowledgeable paopie in tha 
industry. You owe it to yoursatf to invee- 
tigata this systam. Call or writs for dataUs. 



ST80-III 



TAPE COPY 

Back up movt FRS-St) tap** 
no matter now it is record- 
ed I lor onurna! purchaser 
Cliaiiuy NameDat*. Pass- use only! 

word Auto Command 
Change File Parameters 

Residing from 4.000H lo '»FFFH. Super Utility has its own I/O dnvers and does not use 
any ROM or DOS calls So go to the heart of your protected disks and read and/ or modify 
daia using simple 1-key commands No* time is on your side' 

To Order ..." Seno :riecii . >r mon#v 'xder tor only $4<) 95 pt u < J2 SI I shipp:r.g and Kandl:isj 

SUPER UTILITY 2.0 (SINGLE/DOUBLE DENSITY) 

$74.95 



EOflS 



EOAS is a sophisticated Editor 
and Assembler for the '80 Model 
I or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembly for memory or mul- 
tiple disk files by means of 'GET 
assembler directives provides 
the capability of assembling 
huge source files with 30.000 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS. The Editor provides 
block move & global change 
with BASICsyntax editing. EDAS 
provides power with ease of 
use. $79 + $S&H. 



Tha Ultimate Communications Package: 

Price $150.00 
The package includes the ST80-I.I"" smart terminal program 
and nine other communication utilities: Fully documented 
with easy to follow instructions, ST80-III '" is by far the best 
terminal product on the market today. 

TWO Printers on ONE Computer 

♦ FOR MOD 1,11, AND III... 

♦ PARALLEL ONLY 

♦ SCHOTKEY CIRCUITRY 

♦ FULLY BUFFERED... 

♦ SWITCH SELECTABLE... 
$139.95 IN STOCKI 



— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY, SUITE 104 ea^H 
DALLAS, TEXAS 75229 _J5£~ 

PHONE (214) 484-2976 •■■»■ 

i its io i Sc i w 1 1. 1 MICRONET701 30,203 *« mm "»i fet* 

htaaaiti oil aaj c»o fotit* 

MENTION THIS AD AND DEDUCT 5% 




• 27 



ADD $2.50 
SHIPPING (USA) 



►» See List of Advertisers on page 418 
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PORTFOLIO MANAGER 
TRS-80 

FOR COMPLETE PORTFOLIO MANAGEMENT: 

• Fast!!! Auto-Retrieval Of Market Quotes 

• Instant Updating Of One Or More Portfolios 

• Handle Any Combination of Stocks, Options, 
Warrants, Bonds, or Mutual Funds 

(Long and Short Positions) 

• Printed Analysis of Each Position to Show: 

• Current Market Value 

• Value Change from Previous Day 

• Current Gain or Loss 

• Listing of All Quotes Retrieved 

• History File to Maintain Detail Record of All 
Closed Positions 

Please send more information about 
PORTFOLIO MANAGER to: 

Name 



T.M. 



Address - 
City 



State Zip. 



Mail to: 



Market Management Systems S 593 
P.O. Box 40049 
1080 Madison Avenue 
Memphis, TN 38104 

Or Call Toll Free 1-800-238-7626 

(In Tennessee 1 901 527 8262) 



MODEL III OWNERS 

LAYMAN'S GUIDE TO NEWDOS $5.00 

An easy to understand plain-english guide to the 
most commonly used (by the layman) features of 

NEWDOS 80. 



CONVERT MODEL I SCRIPSIT 

TO MODEL III 

"Renumber Program Lines 

"Move Program lines 

"Move Blocks of Program Lines 

'Duplicate Program Lines 

"Selective Variable Clearing 

"Program Single Stepping 

"Memory sort multi-dimensioned arrays 



AND/OR VISICALC 

PLUS 

"Swap Variables 

"Read & Write to Mod I disks 

"Reference Keywords 

"Spool Printing 

"Change Disk Speeds 

"Disable BREAK and /or CLEAR 

"Much Much More!! 



All of the above shipped with Apparats Newdos 80 2.0 
Regular $149.95 — Now only $129.95 (Mod III only) 

COPY MODEL III SCRIPSIT AND VISICALC $15.00 

Allows UNLIMITED BACKUPS of your Master Disk. 
Works if you have already backed up twice. 
Comes as a simple 17 line basic program. 

ST80D PATCH $15.00 

Makes your Model I ST80D work on Model III. 
Comes as a simple 30 line basic program. 

VISA - Mastercard - Money Orders - COD 

Allow 2 weeks for personal checks 
Kansas residents add 3.5% sales tax. 

l l e » 526 East 4th, 316-665-3611 




*TA,INC. 



Hutchinson, Ks. 67501 



k- 143 



The variables are given in Fig. 
1. Before entering the subrou- 
tine, the main program must de- 
fine the values of variables P0 
and P1. The value of P0 is the 
display print position (between 
and 1023) of the first character 
of the data to be entered. P1 is 
the display print position of the 
last allowable character of the 
data to be entered. Specifically 
defining position P1 prevents 
the entry of more characters 
than the data file or format per- 
mits, and also provides a dis- 
play of the allowable data field 
size. Also before entering the 
subroutine, the main program 
must tuck the actual cursor 
away. Put it at the start of CRT 
line 15 (POKE 16417, 63:POKE 
16416, 128) so you can print error 
messages without disturbing 
the screen. The cursor displayed 
is the underline, ASCII 95. When 
data entry for each item is com- 
pleted, the subroutine returns 
string F0$, which can be used as 
is or converted to a numeric by 
VAL(F0$). 

In Listing 5, line 60070 sets in- 
itial values for the subroutine 
variables. Line 60080 POKEs the 
underline (ASCII 95), used as the 
simulated cursor, into each 
character position from PO to 
P1. This gives a display of both 
the location and maximum 
length of the data item to be 



entered. 

The program jumps to line 
60110, testing F1$ for a charac- 
ter entry. If no character is 
entered during the keyboard 
strobe, F3 is incremented by one 
and tested for value. If F3 <3, 
F1$ is immediately tested again 
for character entry. If F3 = 3, line 
60120 toggles P4 between ASCII 
95 (underline) and ASCII 32 
(blank), and repeats the key- 
board scan. This provides the 
flashing cursor while minimiz- 
ing dead time for keyboard 
strobing. The test value of F3 
can be changed to vary the 
flashing rate of the cursor 
without significantly affecting 
maximum typing speed. Maxi- 
mum typing speed is much high- 
er than with using a fixed delay 
to flash the cursor. 

When a character is entered, 
the program jumps to line 60130 
and tests for an up-arrow as the 
first character entered. The 
main program will respond to 
this up-arrow by moving the en- 
try back one item to correct a 
previous error, so line 60130 sim- 
ply sets F0$ equal to the up-ar- 
row and returns. (Assume that 
backing up for a correction will 
never occur once an item entry 
has been started, so that an up- 
arrow is a valid character entry 
unless it is the first character 
entered.) 



2000 


SS - 'SCREEN3DATA* : GOSUB 10100 


2010 


FOR J • 


1 TO 7 : DBS(1,J) - CHRS(32) : NEXT J 


2020 


FOR I - 


1 TO 7 : FOR J ■ 1 TO 2 : P(I ,J) - I : NEXT J, I 


2130 


FOR J » 


1 TO 7 : DB$(1,J) - DAS(N.J) : NEXT J 


2040 


FOR J » 


1 TO 7 : READ P(J,1) : READ P(J,2) : NEXT J 


2050 


FOR K - 


1 TO 7 


2060 


ER% - 




2070 


P0 - P(K,1) : PI - P(K,2) 


2080 


GOSUB 60000 


2090 


IF F0S 


"■ GOSUB 2220 : GOTO 2180 


2100 


IF F0S 


■ *Q* GOSUB 2220 : GOTO 2190 


2110 


IF F0$ 


• ■[* GOTO 2200 ■*[• - UP ARROW 


2120 


ON K GOSUB 8000,8000,6000,8000,8000,8000,8000 


2130 


IF ER% 


> • GOSUB 8500 ELSE GOTO 2170 


2140 


ERt - f 




2150 


POKE 16417,63 : POKE 16416,128 : PRINT STRINGS(64 ,32) » : 




POKE 16417,63 : POKE 16416,128 


2160 


GOTO 2060 


2170 


DBS(1,K 


- F0S 


2180 


NEXT K 




2190 

N 

2200 


GOTO 2190 'GOTO NEXT MAIN PROGRAM FUNCTIO 


GOSUB 2220 : K-K-l : IF K<1 THEN K-=l 


2210 


GOTO 2 06 


2220 


FOR I ■ 


TO 11 : POKE P3 ♦ 1,32 : NEXT I : 




PRINTS 


P0,DBS(1,K) ; : GOSUB 10390 : RETURN 


8000 


REM 




8010 


REM 


DATA VERIFICATION SUBROUTINES 


K820 


RETURN 




8500 


HEM 




8510 


REM 


ERROR MESSAGES 


8S20 


RETURN 




9000 


REM 




9010 


REM 


DATA STATEMENT 


10100 


REM 




10110 


REM 


FIND DATA STATEMENT 


10120 


RETURN 




60000 


REM 




60010 


REM 


DATA ENTRY SUBROUTINE 


60020 


RETURN 


Program Listing 6. 
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Line 60140 tests for a carriage 
return (Enter), ASCII 13. If the 
character is not a CR, the pro- 
gram jumps to line 60170 and 
tests for legal characters 
(ASCII =>32) or backspace (left 
arrow, ASCII 08) and jumps to 
line 60190, where it separates 
the backspace from a character. 
If it is a character, it jumps to 
line 60250. 

At lines 60250-60260, the char- 
acter is displayed at position P3 
and added to string F0$. String 
position counter P2 and display 
position counter P3 are incre- 
mented by one. Line 60270 tests 
P2 to see if the last allowable 
position (P1) has been exceed- 
ed. If not, the program jumps 
back to line 60100, where it 
starts flashing the next cursor 
position and looks for the next 
character. 

When the last allowable 
character has been entered 
(P2>P1), only the carriage re- 
turn terminator and the back- 
space are permitted. Lines 
60280-60310 wait for one of 
these two, and take the appro- 
priate action. 

When a carriage return is en- 
tered, line 60150 deletes all un- 
used underlines by POKEing 
blanks from P2 to P1 (for esthet- 
ic purposes only), and line 60160 
returns string F0$ to the main 
program. 

A backspace must remove the 
previously entered character 
from F0$, delete it from the CRT, 
move the flashing cursor left 
one position, and be prevented 
from going back past the first 
character position. Lines 
60200-60240 take care of these 
functions. Line 60200 puts the 
underline back at P2. Line 60210 
tests to see if F0$ is empty. If it 
is, no further backspacing is 
permitted and the program 



jumps back to the character en- 
try statements. Line 60220 dec- 
rements P2 and P3, and deletes 
the character displayed by 
POKEing the underline into 
position P3. Line 60230 removes 
the deleted character from F0$. 

This subroutine provides all 
of the features available on 
larger business computers, and 
the only sacrifice is a slight 
delay in maximum keyboard typ- 
ing speed. The optional word Let 
in all assignment statements 
noticeably speeds up the sub- 
routine. 

Program Listing 6 is a sample 
segment of a main program that 
shows how to use the data entry 
subroutine. The example as- 
sumes there are seven data 
items to be entered using the 
screen shown in Listing 4. 

Arrays can keep track of 
multiple data items in a record. 
Listing 6 uses these previously 
dimensioned arrays. DA$(N, J) is 
the main data array, dimen- 
sioned to hold N records of J 
items each (in these examples, 
N = 10 arbitrarily and J = 7 for 
the seven data items on the 
screen). String arrays can be 
used even for numeric data. 
DB$(1, J) is a temporary, one- 
record by J element array, which 
allows the entered data to be 
stored and verified before dis- 
turbing the main data array. This 
is primarily useful in editing, but 
keeps things simple even for 
original entry. P(J, 2) is an inte- 
ger array used to store the val- 
ues of P0 and P1 (used in Listing 
5) for each of the J items to be 
entered. Storing these values is 
necessary for backing up to re- 
peat/correct a previously en- 
tered item. 

Line 2000 finds the data state- 
ment that contains the values of 
P0 and P1. Line 2010 clears 







Program Listing 7. 


1 REM 




***** DATA ENTRY PROGRAM USING ENTRY SCREENS 


2 REM 




***** AND SUBROUTINES INCLUDING FLASHING 


3 REM 




***** CURSOR 


4 REM 






5 REM 




***** BOB SHUKEN JULY, 1980 


6 REM 






100 REM 




••••*••••••••.>••„„. ..•••.,,1. 


lie REM 

128 REM 




***** INITIALIZATION ***** 


130 REM 






140 CLEAR 


1000 


: N-0 :CLS 

Program continues 
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BASIC/S 3.0 (MOD l/lll) $39.95 

A Basic compiler for the Mod l/lll 48K Disk System. BASIC/ 
S compiles a subset of TRS-SO' Basic into £80 machine 
code. The machine code can then be run as a /CMD file, 
most of the features and built in functions of Level II are 
implemented, along with sequential and random disk i/o. 
(including LRL/256). Allows variables, reals, and strings. 
This a programmer's compiler. Not intended to compile 
"off the shelf" software, but will compile code written or 
modified along it parameters. No royalty fee to pay! Many 
basic programs you are using today can be compiled. 
Supports all Mod I and Mod III operating systems. 

QSD UTILITY DISK #1 FOR 
LDOS® (MOD I) 69.95 

Increase the speed and power of LDOS! Contains: 

LZAP/CMD — Uses resident disk driver of LDOS and thus 
enjoys its flexibility & device independence. It will 
auto configure itself to drive capacity. LZAP will 
support any number of drives from 0-7, any cyliner 
count up to 255 and any sector number to 255. It 
supports both single and double denity automatical- 
ly! Various drive sizes and densities can be inter- 
mixed and LZAP will page between them without 
error. The ultimate ZAP routine for the ultimate 
system. Many more features including a "help" 
command for beginners to assembly code. 

RESIDELD/CMD — Allows you to SYSGEN system over- 
lays for increased speed and free space on disk, plus 
more! 
CLONE/CMD CHANGE/CMD DCAL/CMD 
VDISK/CMD STAT/CMD BINHEX/CMD 

And by Kim Watt . . . 

LCOPY/CMD — Mass file transfer package. Fast and 
versatile! 

LPURGE/CMD — Allows you to selectively purge by class, 
list, ext, etc. Contains over 20 features. A "mini 
super-utility!" 

RECOVER/CMD — A "smart" recover routine for "killed" 
files. 

DVORAK/CMD — the famous DVORAK keyboard layout. 

EXTRA SPECIAL DELIVERY 
(l/lll) $179.00 

Machine Language program to maintain your mailing list, 
print labels, and merge data from your mail list into a letter 
created by Scripsit® or Electric Pencil^. 

— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY, SUITE 104 ^^_ 
DALLAS, TEXAS 75229 ws# 

PHONE (214) 484-2976 ■■■■ 

TRS'OlScnpiilaie MICRONET 70130,203 ^27 Price Does Hot bxlude 

Iridemirks ol Tjndy Co>p Postage 



.- See List ot Advertisers on page 4 IB 
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Program continued 

158 DIM DAS<18,7) : DIM DBS(1,7) : DIM P<7,2) 

168 GOTO 588 

580 REM 

51B REM •••••••••••••...•.•...•......•.•.. 

528 REM ••••• GENERATE MAIN MENU ••••• 

538 REM ••••.•••••.•••.••...••...•........ 

548 REM 

558 CLS:H1S-"* SELECTION MENU *":GOSUB 1 8888: PRINT: PRINT 

56B SS-"MENU" 

578 GOSUB 18189 

588 I3%-2:I2%-23 

598 GOSUB 1B2B0 

608 GOSUB 18398: PRINT 'ENTER SELECTION : "; 

610 A$-INKEYS:IF AS-"" GOTO 619 ELSE A»-INSTR ( "ED" , AS) : 

ON A% GOTO 638,648 
620 GOTO 618 
638 CLS:GOTO 1808 
648 CLSrGOTO 4088 
1800 REM 

1011 REM ••• •••• 

1028 REM ..... SELECT NEXT RECORD ..... 

1030 REM .................................. 

104* REM 

1850 CLS 

1060 N-N*l 

1070 IF N<11 GOTO 1500 

1080 PRINTS 488, "DATA ARRAY FILLED" 

1090 FOR W-l TO 300:NEXT W:N«N-1 

1100 GOTO 500 

1500 REM 

1510 REM 

1520 REM ..... GENERATE ENTRY SCREEN ••••• 

1538 REM ..................................... 

1540 REM 

15 50 CLS 

1560 HIS-" DATA INPUT SCREEN *":GOSUB 18808 

1570 PRINT "RECORD NO. *|H 

1580 SS-"SCREEN3" 

1590 GOSUB 10100 

1600 FOR 1-1 TO 7 

1610 READ H1%:READ Hl$:PRINT« H1%,U1S 

1628 NEXT I 

1630 GOSUB 10390 :GOTO 2800 

2080 REM 

281B REM .......................... 

2820 REM •»••. DATA ENTRY ***** 

2030 REM .......................... 

204 P EM 

2B50 S$-"SCREEN3DATA* : GOSUB 10100:GOSUB 3570 

2060 FOR 1-1 TO 7:FOR J-l TO 2:P( I , J) -B:NEXT J:NEXT I 

2070 FOR J-l TO 7:DB$(1,J)-DA$(N,J) : NEXT J 

2080 POR K-l TO 7iREAD P(K,1):READ P(K,2):NEXT K 

2090 FOR K-l TO 7 

2100 ER%-0 

2110 P0-P(K,1) :P1-P(K,2) 

2120 GOSUB 60000 

2130 IF F05-" GOSUB 2240: GOTO 2200 

2141 IF F0S-'O* GOSUB 2240: GOTO 2210 

2150 IF F0S-T GOTO 2220 •■["-UP ARROW 

2160 ON K GOSUB 8000,8000,8880,8000,8000,8060,8100 

2170 IF ERIO0 GOSUB 8500 ELSE GOTO 2190 

2189 ER%-0:GOSUB 10360:GOSUB 10380:GOTO 2128 

2190 DB$(1,K)-P0S 
2200 NEXT K 

2210 GOTO 2520 

2220 GOSUB 2240: X-K-liIF K<1 THEN K-l 

2230 GOTO 2100 

2240 FOR I - TO Hi POM P3 + I.32: NEXT I: PRINTS Pfl ,DBS ( 1 , K) ; : 

GOSUB 18390 : RETURN 
2500 REM 
2510 REM ................................... 

2520 REM ..... SCREEN COMMAND MENU •«••• 

2530 REM ••• 

2540 REM 

2550 GOSUB 10380:PRINT "ENTER : <N>EXT RECORD : <Q>UIT : <OANCE 

L :■) 

2560 A$-INXEYS:IP AS-"" GOTO 2560 ELSE A%-INSTR( "NQC" ,AS) 

2570 GOSUB 10380 

2580 ON A% GOSUB 3500,3500,3570 

2590 ON A% GOTO 1000,500,2600 

2600 N-N-l:GOTO 500 

3500 REM 

3510 REM .......................................... 

3520 REM ••••. ENTER DATA INTO MAIN ARRAY ••••• 

3530 REM ..... AND CLEAR DATA ENTRY ARRAY ..... 

3540 REM 

3550 REM 

3560 FOR J-l TO 7:DAS(N,J) -DBSll ,J) :NEXT J 

3570 FOR J-l TO 7 :DB$ ( 1 , J) -CHRS (32) :NEXT J 

3580 RETURN 

4000 REM 

4010 REM 

4028 REM ..... D ATA DISPLAY ..... 

4838 REM •••••••••••••••••••••••..... 

4848 REM 

4050 CLS: INPUT" ENTER DESIRED RECORD NUMBER : "jNl% 

4060 IF Nl% <1 OR Nil > 18 GOTO 4050 

4070 CLS:SS-"SCREEN3DATA":GOSUB 18188 

4080 HIS-"* DATA DISPLAY *":GOSUB 10000 

4090 PRINT "RECORD NO. ";N1% 

4100 FOR 1-1 TO 7 

4118 READ P8:READ PI 

4128 Bl%-INT(PB/256) :B2%-P8- ( 256*B1%) :Bl%=Bl%+60 

4138 POKE 16417, Bl»:POKE 16416, B2% 

4140 PRINT DAS(Nlt,I) 
4150 NEXT I 
4160 GOSUB 10390 

4170 PRINT "ENTER : <A>NOTHER RECORD : <R>ETURN TO MENU :"; 
4181 A$-INKEYS:IF AS-"" GOTO 4180 ELSE A%-INSTR( "AR* ,AS) 
4190 GOSUB 10380 
4200 ON A% GOTO 4000,500 
4210 GOTO 4170 
8000 REM 
8010 REM ......*•.......••••«..••«•*.••**«*««•..•...«. 

B02B REM ..... DATA VERIFICATION SUBROUTINES ***** 

8039 REM »*«*••**•*****»»•*•**•*«**••**..*«♦**.•«*.... 

8040 REM 



8050 RETURN 

8060 IF LEN(F0S) <>5 THEN ER%=1: RETURN 

8070 H-5:F2S-F0S:GOSUB 8170 

8080 IF FL%-1 THEN ER%"1 

8090 RETURN 

8100 IF LEN(F0S)<8 THEN ER»-2 : RETURN 

B110 IF MIDS(FB$,4,1)<>'-* THEN ER%-2:RETURN 

B120 L%-3:f2S-LEFTS(F8S,3) :GOSUB 8170 

B130 IF FL»-1 THEN ER%»2:RETURN 

8140 L%-4:F2S-RIGHTS(F0S,4) :GOSUB 8178 

B15B IF FL%-1 THEN ERI-2 

8160 RETURN 

8170 FL%-0 

8180 FOR J-l TO L% 

8190 F»-ASC(MIDS(F2S,J,D) 

8200 IF F%<48 OR F%>57 THEN FLI-1 

8210 NEXT J 

82 20 RETURN 

8500 REM 

8510 REM ...................................... 

8520 REM ..... GENERATE ERROR MESSAGES ••«•• 

8530 REM ...................................... 

8540 REM 

8550 GOSUB 10390 

8560 PRINT "•• INPUT ERROR **"; 

8570 ON ER» GOTO 8580,8610 

8580 PRINT "ZIP MUST BE 5 DIGITS"; 

8S90 GOSUB 8988 

8600 RETURN 

8610 PRINT'PHONE FORMAT IS XXX-YYYY"; 

8620 GOSUB 8900 

8630 RETURN 

8900 FOR W-l TO 300:NEXT W 

8910 GOSUB 10380 : GOSUB 10390 

8920 RETURN 

9888 REM 

9010 REM •«♦....**...................... 

9820 REM ..... DATA STATEMENTS ««••• 

9030 REM ............................... 

9048 REM 

9050 DATA SCREEN3DATA,145,159,165,174,342,361,525,539,548,549, 

558,562,732,739 
906 B DATA MENU,<E>NTER DATA, <D>ISPLAY DATA 
9878 DATA SCREEN3,209 , [ LAST NAME [,228, [FIRST NAME [, 406 , 

[ STREET ADDRESS [,589,[ CITY [ ,610 , I STATE[ , 

622, [ZIP[ ,796, [PHONE [, 

'( ■ UP ARROW 
100B8 REM 



18010 
10020 
10830 
10040 
10050 
10860 
10070 
10080 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10178 
18188 
1B19B 
18288 
18210 
10220 
10238 

10300 
10310 
10320 
10330 
10348 
10350 
10360 
10370 
10388 
18398 
18488 
60800 
60818 
60020 
60838 
6B040 
60050 
68868 
68878 

68860 
68890 
60100 
60118 



PRINT DISPLAY HEADER 



FIND SELECTED DATA STATEMENT 



REM •••*••• 

REM ..... 

REM ....... 

REM 

H1%-LEN(H1$) 

0-(64-Hl%)/2 

PRINT TAB(Q) HIS 

RETURN 

REM 

REM »••».. 

REM ..... 

REM •*•••.•••••••»»•**.•••*•..•»..»«..»....»•.»• 

REM 

RE STORE 

READ HIS 

IF H1S-SS THEN RETURN 

GOTO 18160 

NEXT I 

REM ...........*................ 

REM ..... DISPLAY MENU ••••• 

REM ••••.......*.....••...•••••• 

FOR Il-l TO I3»:READ H2S:PRINT TAB(I2») H2S:NEXT I»:RETURN 



CLEAR CRT LINES 14*15 
AND LOCATE CURSOR 



REM 

REM •• 

REM •* 

REM •• 

REM ••«.........................•••••••.• 

REM 

POKE 16417, 63:POKE 16416, 64 : GOSUB 10400 

POKE 16417, 63:POKE 16416.64 : RETURN 

POKE 16417, 63:POKE 16416,128 : GOSUB 10400 

POKE 16417, 63-.POKE 16416,128 : RETURN 

PRINT STRINGS(64,32) ; : RETURN 

REM 

RE H .•............................••..••••.•.•••••• 

REM ..... DATA ENTRY SUBROUTINE PROVIDING ••••• 

REM ..... FLASHING CURSOR, POSITION LOCATOR ••••• 

REM ..... me BACKSPACE FUNCTION ..... 

REM ............................................... 

REM 

LET P2-P0:LET F0S-":LET I1-P1-P0:LET P3-15360+P2: 

LET P4-95:LET F3-0:LET P5-127 

FOR 1=0 TO IlsPOKE P3+I,95:NEXT I: GOTO 60110 

LET P3-15368+P2:LET P4-95 

POKE P3,P4:LET F3-0 

LET F1S-INKEYS:IF F1SO"" THEN GOTO 60130 ELSE LET F3-F3+1 

IF F3<3 GOTO 60118 

LET P4-P5-P4:GOTO 68188 

IF Fl$-"|* AND LEN(F0S)-B THEN FBS-F1 S : RETURN 

IF ASC(F1S)<>13 GOTO 68178 

FOR I-P2 TO PI: POKE 15360*1 , 32 : NEXT I 

RETURN 

IF ASC(Fl$)->32 OR ASC(F1S)-B8 THEN GOTO 6B19B 

GOTO 68118 

IF ASC(F1S)<>88 GOTO 68250 

POKE 1536B*P2,95 

IF LEN(FBS)<"1 GOTO 68890 

LET P2»P2-1:I.ET P3 = P3-l:POKE P3.95 



68128 
6013B 
68148 
68150 
68168 
68178 
68180 
60190 
68280 
68210 
60220 

68230 LET FBS-LEFTS ( FBS , LEN (F8S) -1) 

6B24B GOTO 6B1B8 

60250 POKE P3,ASC(F1$) 

60260 LET F0$«F0$+P1$:LET P2-P2+1:LET P3-P3+1 

60270 IF P2<-Pl GOTO 60100 

60280 LET F1S=INKEYS:IP Fl$«" GOTO 60280 

60290 IF ASC(F1S)-13 THEN RETURN 

6030B IF ASC(F1$)-B8 THEN GOTO 60228 

68318 GOTO 60280 
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5466 RIVERSIDE DR., CHINO. CA 91710 
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VISA/MC Order Line Only (except Mich.) 800-253-4358 ext. 100 

FINDISK-II The ultimate In automatic disk indexing with exclusive features Model! $20.00 

AUTOMATICALLY create INDtX of programs or .lata from ail uour disks, print disk LABELS print 
alphabetized MASTERUS1 do fast SEARCH add DESCRIPTIONS Also automatically detect DATA or 
SYS d -s PI IR< ,1 disks and index of old files, and UPDATE from revised disks only 
SOLAR I The critical calculations lor passive design. . Model I $30.00 Model-II $45.00 

INPUT any latitude, orientation, slope roof overhang storage type building loss. OUTPUT, solar angles 
shading, time, heat gain loss, percent solar, fuel UM Pint report by hour, month, year in presentation format 
RIA-II Complex Real Estate Investment Analysis Model! $30 00 Model II $45 00 

Analysis for investor or homeowner using Erwoud method INPUT Project costs, loan and tax data 
expenses, depreciation rate OUTPUT Cap rate, value mortgage payments, before after tax cash flows, return 
• IRR) . profit ■ gain from sale over any time series 
DEPRECIATE! Manage a list ol depreciable items Model I $15 00 Model II $20 00 

Tracks long list of depreciable items with varying purchase dates, depreciation rates, or per cent business use 
Update any time Print tax form Used by many CPAs 

STRUCT! Graphic design of steel wood beams and moment transfer Model-I $15 00 

INPUT span cantilever, uniform point loads, beam material OUTPUT with screen graphics beam moment 
H diagrams Print job report with diagr.it and required beam Itim 

Min32K On disk (Mod I one drive order tape i Add SI IX » postage I Mich add 41 taxi VISA MC 
• Be DOCUMAN SOFTWARE BOX 387-A KALAMAZOO. Ml 49005 (616) 344-O80S 



80" SHROUDS 




Other Models 

*LNW DEMI-CASE..S32 .50 

*LNW SHROUD $27.50 

*"80" SHROUD $24.50 

Add $2.50 shipping & handling 
N. V S- residents add 7% sales tax 

SYRACUSE R&D CENTER 

Box 125. Dewitt. NY. 13214 

"Specializing in Electronic Packaging 
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A VITAL WAY TO PROTECT TOUR BOrTWARZ 
IlTVBSTlfBHT FOR THB PUTURRtt 

Tv K«i:MMI.lai.giuig. 
amig Systems and more £ 
any other similar lang-iag 
and TI minicomputers at 

CP. M-. MP, M-. TRSDOS' OASIS*. MOA3IS* and UNIX' 
; UNYX version | Operating Systems to mention only 
^ it-/.- 

Until now. serious business software o: the scope and 
flexibility seen In the minicomputer world has not been 
available on micros KJR CMM. now allows transfer of 
such software with a minimum of fuss 

We have participated in such a mini to micro transfer 
of a major set of general business software using Rat 
UMC as the transfer mechanism, of course Running on 
literally thousands of minicomputers, these refined 
enhanced, and proven software packages cover A. R. A.P 
O'L. P'R, Order Entry (with Invoicing and Inventory 
Control ) as well as Sales Analysis The packages define a 
new level of achievement for features and flexibility to 
micro applications software and offer top quality at a 
reasonable prtoe 

Por immediate Information, call 714 84ft 1922 for your 
complete product descriptions 

. . PLUS ALL THE OLD, TAHITI AK rAVORTTM that 

we conllm* to offer, such as: 

Oeiwral IhMlnass Client Accounting <CPA Write-up) 
PUS" | Financial Modeling System » 
NAD' < Name and Address System ) 
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and Cybernetics' unique THS-80*. Model II CP M offering 
high performance, hard disk support, and CP, M com 
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Trademark* of: 

1-Ryan MrKvland Corp, 2-DigtUi KaaMrch. ti«c 3-T«:uly 
Corp. 4 ■ I'haar One Systems. Inc . 6- Hail Telephone Liberator 
in> Iiio 8 -American BumnenH Systems Inc. 7— Stntfturnd 
Hyiiienu. 0ra*> Inc.. 8 Cybemetias. Ino . 9- Peachiree Software 
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m^m Just between you and us... 

We think we've got 

l Jm THE BEST 

— *£ TRS-80* MODEL III 

Disk System around! 
WHY? Here's three good reasons. 

1. VERSATILITY 

Our own proven, dependable drive controller board will give 
you (he hardware to run almost any drive configuration you can 
imagine: 

• S'/i" and 8" drives in any combination. 

• lnternal/e,xti"n,il c ombinations (up to all 4 drives external). 

• Single- and dual-headed drive combinations. 

2. QUALITY 

• We chose MPI drives— f fie Jong-time leaders in the field. 

• We construct our own disk drive installation kits of heavy 
gauge steel— no shielding problems'. 

• We designed independently regulated linear power supplies- 
fast and reliable. 

3. PRICE (including installation & 90-day warranty) 

• Drive controller board and first drive. ... . S67<< 

• Second (internal) drive . $279 

• Third drive (with cable) $359 

• Fourth drive $329 

If these sound like really good deals but you don't have the Model III 
yet, we've got the answer. 

A TRS-80 Model III, 48K, TRSDOS. 2 MPI drives $1899 

— Fully tested with 90-day warranty — 

Dollar far dollar, we think this is the BEST TRS-80 system you can bu>.'' 

We also stock for immediate shipment: 

MODEL III, 32K $899 

EPSON Printers, accessories & interfaces at Low, Low Prices 

CALL OR WRITE TODAY for an extended price list and straight-talk 

information about our quality systems and your computer needs. 

VRS-flO » a htdrnurk o/ Tjndv < rp ^408 

PROCESS CONTROL TECHNOLOGY 

P.O. Box 8825 • Stockton, CA 95208 • (209) 952-6576 



IS THERE ANY OTHER SOFTWARE THAT ENABLES YOU TO: 

Enhance DOS commands to rename, kill. copy... multiple 
files with common name or extension? 

Link EDTASM source files via new %INCLUDE command: 

Assign and use symbolic labels in DEBUG? 

Compile, link and execute FORTRAN program(s) by entering 
lust one command (system will prompt you to insert proper f 
diskette if necessary)? t 

Organize conditional chained execution? 

Save hours of typing and have a good time with your com- J 
puter 7 | 

These are but a few examples of what can be done with the I 

INTERACTIVE CONTROL LANGUAGE 

ICL is a very fast machine code program executing pro J 
cedures written in the high level command language. ! 
(Variables and conditionals. &READ &IF &QUEUE &GOTO » 
&JUMP &RESUME... 18 commands plus special features and I 
number of options.) Under ICL procedures are invoked the 
same way as /CMD files or DOS commands. 

ICL is designed to work as a "middleman" between the user 
and operating system and/or application programs. It has 
powerful facilities for control of program execution and data 
manipulation. ICL introduces virtual I/O for keyboard and 
display operations and provides uniform interface between dif- 
ferent otherwise incompatible programs. ICL implements con- 
trol interception scheme for interactive co-execution of pro 
grams and procedures, which enables enhancement and 
customization of existing software products in a simple way. 

Superb documentation with detailed "how-to-use" and 
tutorial information, most useful procedures, system informa 

tion and patches are provided 

This unique product is now available for NEWDOS2.1 or 

NEWDOS/80 — on 5" diskette + documentation 

at unbelievably low price of $34.95 (check or money order) 

XYZT COMPUTER DIMENSIONS INC. ^373 

2 PENN PLAZA, suite 1500. New York, N. Y. 10121. 

j • Requires mm 32K 1 Drive Model 1 |48K tot FORTRAN) 

t ' ' Specify NEWDOS2 i or NEWDOS18O diskette lorm.it iworks with either DOSi 

I ••" N.Y state residents add 5% sales la« 




While they last . . . 

the complete year of 1980 80 Microcomputing 
(in its own shelf box. . . a $2.00 value — Free) 
for only $25.00.* 

Did you miss the 2,256 pages of useful information published for your TRS-80** in 80 Microcomputing last 
year? Now is the perfect time to catch up for only $25.00.* 

In the first year of 80 Microcomputing here were 335 articles on your TRS-80— 2V'2 times more than any other 
computing magazine. Also in 1980 there were new product reviews, news and columns and best of all hun- 
dreds of dollars worth of useable programs. 

So to unlock the key to your TRS-80 and double its value. . . send in today for the complete year of 1980. 80 
Microcomputing (in its own shelf box) for only $25.00.* 

We have a limited number of these complete sets so send in the card today or call our toll free #800-258-5473 
and charge it to vour VISA, MC or AE card. 

'plus shipping iiiul handling ($6. (HI) "1 HS-80 is a trademark of 7 anmj 
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I want a year of 80 Microcomputing fur $25.00 plus $6.00 
for shipping and handling. Plus I'll receive a shelf lx>x to store 
them in. 



Check enclosed for $_ 

Name 

Address 

Cit\ 



State, 



Zip 



Please allow I to 6 weeks for delh ery 
80 Microcomputing ♦ 80 Pine Street • Peterborough. N.H. 03458 
Toll free ordering number 800-258-5473 
1, rnanordenphvttmUtlS.OO—Surfaci Shipment CMu 80B1 
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DB$(1 , J) by putting a blank in for 
each element. This guarantees 
no previously entered data gets 
put in the wrong place. Line 2030 
similarly clears P(l, J); it reads 
the existing data for the seven 
items of record N (N is the rec- 
ord number currently being en- 
tered or edited) from DA$<N, J) 
and puts it into temporary array 
DB$fl, J). For a new entry, all 
items will be null and this line is 
not needed. However, when edit- 
ing, assume not all items will be 
changed. For those that are not 
changed, the data entry subrou- 
tine would return F0$ as a null 
string to DB$<1, J). When DB$(1, 
J) is loaded into DA$<N, J), all 
null strings would replace ex- 
isting valid data. Line 2030 
makes sure that unchanged 
items remain intact. Line 2040 
reads the value of P0 and P1 for 
each of the seven data items to 
be entered into array P(J, 2). 

Line 2050 starts a For. . . Next 
loop terminating at line 2180. 
Lines 2060-2070 start each item 
by setting error flag ER% to zero 
and setting P0 and P1 to the val- 
ues stored in P(J, 2). The pro- 
gram then jumps to the data en- 
try subroutine at line 60000. 

Line 2090 lets the operator 
skip an item by entering a null 
string (Enter with no charac- 
ters), which is frequently desired 
in both entry and editing. Line 
2100 tests for entry of a Q (which 
becomes a reserved character 
string) so the operator can stop 
entering data at any point and 
escape to the next main pro- 
gram function (typically a 
menu). Line 2110 tests for an up- 
arrow. 

As mentioned before, any 
time an up-arrow is entered as 
the first character in the data en- 
try subroutine, data entry is ter- 
minated and F0$ is set equal to 
the up-arrow. This enables the 
operator to go back to a previ- 
ous item, for instance to correct 
a mistake. Each time the up-ar- 
row is depressed, the program 
backs-up one item by decre- 
menting K in line 2200 and going 
back to start the data entry in 
line 2060. Storing the values of 
P0 and P1 in array P(J, 2) allows 
line 2070 to get the screen dis- 
play in the right place. The 
GOSUB 2220 in lines 2090, 2100 
and 2200 clear unwanted under- 

-- S»e List o> Advtrtifrt on pmgt 4 16 



lines and keep previously en- 
tered data displayed as the op- 
erator corrects errors and enters 
data. Skipping a previously 
entered item, either backward 
with the up-arrow or forward 
with the null entry, will not 
change the item. Entering one or 
more valid characters deletes 
the previously entered item and 
replaces it with the new data. 

When F0$ is neither null nor Q 
nor up-arrow, it must be tested 
for validity. Line 2120 uses the 
value of the item number, K, to 
branch to the appropriate validi- 
ty check subroutine. The validity 
check returns ER%=0 if there 
is no error, and line 2130 jumps 
to line 2170 where F0$ is tem- 
porarily stored in DB$(1, K). 

If ER% is greater than 0, line 
2130 jumps to a subroutine that 
prints an error message at the 
bottom of the screen without 
disturbing the rest of the display 
(that's why the real cursor is at 
the start of CRT line 15). Line 
2140 resets ER% to zero for the 
next try, and lines 2150-2160 re- 
move the error message from 
the display, leave the cursor at 
the bottom of the screen, and re- 
turn to the data entry subrou- 
tine. Since P0 and P1 have not 
changed, the subroutine clears 
the erroneous entry and directs 
the operator to the proper space 
for reentering correct data. 

Put It All Together 

Listing 7 is a complete pro- 
gram using all of these subrou- 
tines. Included is a data display 
segment so you can see what 
you have entered. The menu of 
listing 4 and dimensioned array 
DA$(10, 7) are again used to 
store up to 10 records. 

After initialization, the main 
menu is generated. Select the 
data entry (E) option from the 
screen (A% = 1) and then assign 
the record number to be entered. 
In this example, the record num- 
ber N is incremented by one and 
checked to see that it does not 
exceed the maximum record 
size of 10. 

After getting the record num- 
ber from line 1060, the screen is 
generated (lines 1550-1620), the 
cursor is tucked away (line 1630) 
and the jump is made to the data 
entry section. 

The data entry section is es- 



sentially as described for Pro- 
gram Listing 6. Line 2160 jumps 
to data verification starting at 
line 8000. The first five items to 
be entered are alphanumeric 
and, in this example, receive no 
verification check, but they 
must go through a dummy jump 
in order to use the ON K 
GOSUB. . . The zip code check 
starts at line 8060 and the phone 
number check starts at line 
8100. Both checks use ASCII val- 
ues to verify numeric entries. If 
ER% returns greater than zero, 
line 2170 jumps to an error mes- 
sage printout subroutine at line 
8500, with a different message 
for each error determined by the 
value of ER% returned from the 
verification check. 

Lines 2550-2600 demonstrate 
a menu in a different form. The 
menu is printed horizontally at 
the bottom of the display, so the 
operator can verify his entry be- 
fore proceeding. The operator is 
given a three-option menu selec- 
tion. (N)ext Record implies that 
the data is set for permanent en- 
try and the operator wants to 



enter another record. (Q)uit also 
implies that the data is fine, but 
there are no more records to 
enter. (C)ancel deletes the data 
without permanently storing it. 
Line 2580 jumps to line 3500 if 
the data are to be permanently 
stored in the main data array 
DA$(10, 7), and to line 3570 if 
cancelled. 

Lines 4050-4210 use the same 
kinds of techniques for data en- 
try to display the data stored in 
DA$(N, J), one record at a time, 
in a form that duplicates the da- 
ta entry screen. Lines 4120- 
4130 calculate the byte values 
required for POKEing the cursor 
in the right place by operating 
on P0 as the first character posi- 
tion of the item. 

Save It on Disk 

Store each subroutine on disk 
in a highly compressed form, 
since documentation is not nec- 
essary, and then put together 
desired modules with the Ap- 
pend command. Debugging 
time is cut since you know all 
the modules work.B 
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TUTORIAL 
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Adventure gaming, that is. Why not author one of your own? 



Writers of a Lost Art 



Victor T. Albino 
18501 194NE 
Woodinville, WA 98072 



If you enjoy computer adven- 
turing, sooner or later you will 
want to construct an adventure 
of your own. If you feel there is 
an adventure masterpiece 
locked-up inside you just 
waiting to break out, but you're 
not sure how to write one, 
follow these steps. 

Many people think they need 
disk drives or an understanding 
of machine language to write 
an adventure. Disks make it 
possible to bring more excite- 
ment into a program than could 
ever fit within a 16K RAM. Also, 
those of us who bought the early 
adventures written in Basic 
remember the agonizingly slow 
computer response to each 
entry. 

However, many of you don't 
have disk drives and don't want 
to hassle with machine lan- 
guage. Must you keep that bud- 



ding adventure stifled inside 
you forever? No! By using de- 
cision branching techniques, 
you can create exciting adven- 
tures in Basic within 16K of 
memory. 

Assignment 45 (see the Pro- 
gram Listing) has all the 
elements of an adventure 
using, not disk drive but im- 
agination coupled with pro- 
gramming technique. 

Creating a Story Idea 

The first and hardest step is 
creating a story idea. If you're a 
natural storyteller, you will 
have no problem. If you have no 
such ability, then start brain- 
storming. Write down the ele- 
ments of a story that sound ap- 
pealing. For example: a distant, 
exotic location; strange crea- 
tures; wild inventions; romantic 
interludes; and dangerous 
super-villains. Let your 
imagination go and don't worry 
about the plot at this point. 
Once you have a page or two of 
ideas, think of ways these char- 
acters, places and events 
might be related. Draw lines be- 
tween the elements that form a 
story. 

Once you have a plot, you're 
ready for the second step. Con- 



struct an outline of the adven- 
ture showing the story line. 
Then ask a friend what he 
thinks of the plot. Perhaps he 
will enrich your adventure with 
a few ideas of his own. 

After completing your out- 
line, begin flowcharting. Some 
people say flowcharting is not 
necessary in Basic because, for 
the most part, the programs ex- 
ecute sequentially following 
program line numbers. While 
flowcharting may not be 
necessary for many Basic pro- 
grams, it is worth the effort for 
programs containing many 
decision branching state- 
ments. You will save yourself 
time, memory and confusion if 
you organize your story into a 
flowchart before typing it into 
your computer. The flowchart 
need not be elaborate. Just 
show the decisions and results 
of every action an adventurer 
may select. 

After flowcharting, type in 
the program but remember, 
without disks or machine 
language, we must be careful 
about using program memory. 
You have to put in enough ex- 
planation of characters and 
events to make the adventure 
interesting, but too much prose 



will quickly eat up your 16K 
capacity. Don't be afraid of 
rewriting your program to save 
memory. To paraphrase a 
famous author, "There is no 
such thing as a good writer, 
only a good rewriter." 

Since our biggest problem is 
limited memory, we must save 
every byte we can. Your Level II 
manual has some suggestions 
for saving memory space. First, 
unnecessary spaces are out. 
Use multiple-statement pro- 
gram lines. Each line number 
uses up to five bytes. Use sub- 
routines to perform the same 
operation at different places in 
the program. You will notice a 
liberal use of subroutines in As- 
signment 45. If you get desper- 
ate, remember the computer 
reserves 50 bytes on power-up 
for string storage. If you don't 
need it, you can get this space 
back by executing a Clear 0. 

Another memory saving tip is 
to use a little string space for 
phrases repeated often. Notice 
in Assignment 45 two such 
phrases— "What should he 
do?" and Hit/Key became W$ 
and H$. If you're going to be 
using many print @ 448 state- 
ments, why not let p = 448 and 
type only print @p? It is easier 
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and saves memory. 

After you have the program 
running, let someone else try it 
out before you turn it loose on 
the world. Sometimes those in- 
structions that seemed so clear 
to you won't make sense to 



someone else. 

When you have finished this 
step, send out the program to 
be published so the rest of us 
can enjoy it. After all, the world 
can never have too many 
masterpieces. ■ 



Program Listing 



3 CLS 
10 REM 



ASSIGNMENT 45 

BY VICTOR T. ALBINO MARCH 1981 

15 P-448:W«150:WS«"W11AT SHOULD HE DO?" :H = 9B2 :HS="HIT '/ ' KEY":G 

OTO60 

2B I FINKEY$<>"/"THEN2eELSECLS: RETURN 

50 FORT-1TO1500:NEXT:RETURN 

60 PRINT8278, "ASSIGNMENT 45":GOSUB50 

70 PRINTP466, "A HARRY FLYNN ADVENTURE" :GOSUB50 : CLS 

90 PRINTS342,'YEAR: 2154" :GOSUB50 

100 PRINT 84 60, "PLACE: ABODE OF HARRY A. FLYNN 
SPECIAL AGENT 
UNITED EARTH COMMAND (UEC) " 

110 GOSUB50:GOSUB50 

120 PRINT8726,"TIME: 5:31 AM" :GOSUB50:CLS 

130 FORB-1T06 

140 PRINT#460,CHR$(23) "PRIORITY MESSAGE" 

150 FORT«1TO250:NEXT:CLS:FORC«1TO7 5:NEXT:NEXT:FORY-1TC500:NEXT 

160 CLS:PRINTP46B,"FOR COMMANDER FLYNN" :GO5UB50:CLS 

180 PRINT8522, "PRESS ANY KEY WHEN READY TO RECEIVE COMMUNICATION 

190 IFINKEYS=""THEN190ELSE200 

200 CLS :PRINT?27B, "GOOD MORNING HARRY! 

THIS IS SECTOR CHIEF CHRONOS." 
240 PRINT:PRINT"THERE'S BEEN SOME TROUBLE IN THE SIRAN SYSTEM." 
250 PRINT"ABAR CALLEASE, RULER OF SIRA, HAS KEPT PEACE WITH EART 
H 

OVER THE LAST SEVEN YEARS. NOW HIS DAUGHTER, KURVI CALLEASE, 
AGE 19, HAS BEEN KIDNAPPED." 
260 PRINT'HIS POLITICAL ENEMIES ARE BLAMING EARTH AND DEMAND WAR 

CALLEASE HAS ASKED FOR OUR HELP." 

270 PRINTS, H$; 

280 GOSUB20 

290 PRINTS, "YOUR MISSION IS TO FIND THE GIRL AND RETURN HER 3EF 

ORE IT'S 

TOO LAT*:. 

MAJOR ORR WILL GIVE YOU THE DETAILS." 

300 PRINTpH,H$j 

310 GOSUU20 

440 PRINT3460, "HELLO COMMANDER. THIS IS MAJOR ORR. " :GOSUB50: CLS 

460 PRINT: PRINT'YOU ' LL BE USING A MAKO JET SLED FOR SURFACE TRAV 

EL. 

IT'S ALREADY BEEN LOADED ABOARD YOUR SHIP." 

480 PR1NT"THE MAKO IS VERY FAST, HAS TWIN LASER CANNON, 

SHIELD GENERATOR, AND FORWARD SCANNERS. 

THE ENGINES HAVE BEEN CALIBRATED TO BURN THE AIR ON ZAGAR." 

500 PRINT"THAT'S WHERE THE PRINCESS IS, OR, MORE PRECISELY, 

WHERE SHE WAS WHFN HER PERSONAL BEACON STOPPED TRANSMITTING." 

:>20 PRINT "YOU'LL ALSO WEAR A MEAD CELL (MATTER ENERGY AMPI.FICATI 

ON DIODE) 

ON YOUR WRISTBAND. 

530 PRINT'IV '(RINGS THINGS INTO THE VISIBLE SPECTRUM THAT NORMAL 

LY 

COULDN'T BE SEEN — A KIKD OF SUPER MICROSCOPE. IT CAN ALSO 

PICK UP YOUR THOUGHT WAVES AND MAY BE DIRECTED INTO A SHALL 

i'OKCfc BLAM." 

54H PRI.,T?H,HS; 

550 GOSUB20 

560 PRINT3464, "THAT'S ALL COMMANDER. COOD LUCK . " :GCSUB50 

570 FORN=lrO«:PRINT^P,CHRS(23) "PRIORITY TRANSMISSION COMPLETED": 

FORT-1TO250 : NEXT : CLS : F0RC^1T075 : NEXT : NEXT : GOSUB50: CLS 

588 PRINT83S4,"THE TAKE-OFF AND TRANSIT THROUGH THE STAR-GATE WE 

RE ROUTINE. 

BEFORE LONE Z<\GAR APPEALED ON THE NAV SCREEN." 

590 PRINT'HARRY LANDED AT SOME DISTANCE FROM THE LOCATION 

WHEkE THE BEACON WAS LAST DECTECTED. AS HE LEFT THE SHIP HE 

SAW A YELLOW, DESERT LANDSCAPE WITH A RED SKY.' 

620 PPINT'THE CARGO DOOR OPENED DEPOSITING THE MAKO ON THE SANDY 

GROUND. 
HAP.RY COT IN. THE ENGINES WHINED, THEN SCREAMED AS THE SLED 
LIFTED A METER OFF THE LAND AND SHOT FORWARD." 
625 PRU:T|»H,HS; :GOSUB20 
630 PRJNTgP, "AFTER 3B SECONDS THE SCANNER PICKED UP A CLUSTER OF 

HUTS 
... AND A POWER FIELD." 

650 PRINT: PRINT'SECONDS LATER THE FIELD WAS CONFIRMED AS AN ELEC 
TRONIC 

BARRIER SURROUNDING THE HUTS." 
655 PRINT8H,H$; :GOSUB20 
C70 PRINTW,WS 

ATTEMPT TO GAIN ACCESS TO THE HUTS 

HIDE THE SLED AND HIKE UP TO BARRIER 'JNNOTICE 



USING SLED'S SHIELDS BREAK THROUGH BARRIER 
FIRE SLED'S LASERS INTO FIELD 
USE MEAD CELL 
CALL UEC POR ASSISTANCE 
SCOUT AROUND SOME MORE IN THE SLED BEFORE DOI 



'. PRINT§320,"1) 

700 l'RINT8384 "2) 

D 

710 t«INT8P,"3) 

720 PRINT?51i,*4) 

730 PRIN~?§576,"5) 

740 PRlNr8640,"<>) 

750 PRINT8704," .') 

NG ANYThING 

760 PRINT8906,"( ENTER THE NUMBER OF THE ACTION YOU SELECT) " s INPU 

TN 

765 CLS 

770 IFN<1ORN>7THEN760 

7 80 ONNGOT07 90, 81 0,1040, 13 00, 1060, 11 3 0,1220 

790 PRINT8P, "SEEMS HARRY FORGOT ABOUT THE BARRIER. HE WALKED 

RIGHT INTO IT AND WAS IHnEDI ATEIA STUNNED." : PRINTS ,H$i 

Program continues 



GOSUB : 



GOSUB'S MX80770 FRICTION FEED KIT ONLY $49.95 ppd 

The Gosub MX80/70 Friction Feed Kit tor the Epson MX80 
printer will give you complete paper control. You get easy to 
follow instructions and all parts necessary to give your Ep- 
son friction feed capabilities. Installs in about 15 minutes 
Money back guarantee if not satisfied. 
PLUS: 

' USE SINGLE SHEET PAPER 

* USE INEXPENSIVE ROLL PAPER 

* USE YOUR OWN LETTER HEAD 

* DOES NOT AFFECT PIN-FEED USE 

PRINTERS PRINTERS PRINTERS 

EPSON MX80 $515 ppd EPSON MX1O0 $825 ppd 

Microtek's BYTEWRITER-1 $299 ppd 

SOFTWARE SOFTWARE SOFTWARE 

We have just about everybodys software 
Call us and tell us what you want. We've got it! 

AUTHORIZED DEALERS FOR THE 

GOSUB FRICTION FEED KIT 



ALPINE COMPUTER CENTER 

2526 S Alpine Rd 
RocMord. IL61106 
1815) 2290200 



USA 
OMEGA MICROS 

3819 Wesi Michigan St 
Milwaukee. Wisconsin 53208 
14141 933*088 



EXATRON 

181 Corrrnercial Si 

Sunnyvale CA 94086 

iBOO' S38-8SS9.CA i406l 737 7 n i 



AUSTRALIA 



COMPUTER CAMPUS Pty. Ltd. 

1 1 Runoie Stteel. Kenl Town 

Souin Auslraha. 5067 

Ph 08.424826 Telex 88156 



CANADA 

MICROWEST Dist. Ltd. 

1940 laison Rd 

Noin Vancouve' BC 

Canada V7M 2/B 

■ 6041988 9996 or 968*87? 



has 1 .*-, Kl S add i% ".Alls i AX 

All PRK IN SI Bill 1 1<H HAV.I VMIHOl I NOIKI 

FREE CATALOG UPON REQUEST 



GOSUB Int'l, Inc. 

501 E.Pawnee, Suite 430 

Wichita. KS 672 11 

(316)2659858 



SEND CHECK OR MONEY ORDER TO: 



GOSUB •* 284 
P.O. Box 275 
Wichita. KS 67201 
(316)265-9992 



ELECTRIC SPREADSHEET 



NEW Considering VisiCalc™? 

ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator. Start with a blank 
screen. Move the fast cursor to desired location. Enter line 
or column labels or data Select preprogrammed operators 
tor line, column, or cell calculations. Run. Results appear 
on the screen, formatted for your printer Revise Run 
again. 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics. Save data on tape or disk. The 
screen is your window to a larger spreadsheet. Output 
features scrolling and split-screen. Variable formats for 
labels and data. 

UNLIMITED APPLICATIONS. P/L forecast. Personal 
budget. Real estate investment. Net worth forecast 
Invoice. Cash flow estimate. Sales analysis. Check record. 
Business forms. 

16K version has 50 operators. 32/48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more. 

16K Model I or III Tape $34.95 

32/48K Model I or III Tape $64.95 

48K Model III Disk $67.95 

YOU CANT LOSE! Calif orders add 6'.% tax. 

VisiCalc is a trade mark of Personal Software, Inc 



Dan G. Haney & Associates, Inc,x464 
P.O. Box 687. San Mateo, CA 94401 
(415) 493-4094 



'See List ot Advertisers on page 418 
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HOW ACCEL2 WORKS 

TRS-80 Model l/lll BASIC Compiler 

ACCEL2 uses a novel translation technique that keeps code growth down and insures 
highest compatibility with BASIC source programs while giving huge speedups Only a 
carefully chosen subset of BASIC instructions is translated The non-compilable state- 
ments are left in the compiled program in their original source form and at run-time are ac- 
tually given to the BASIC interpreter to execute. Program flow may flip into direct execution 
ot the compiled machine instructions and then flop back to interpretation many times dur- 
ing execution 

Why Compilation improves performance 

'Name Resolution Term given to the process of identifying the value of a variable given its 
name As a program runs, trie interpreter builds a dictionary consisting of a chain of items, 
each containing a variable name, data type and current value Every time a variable is to be 
resolved the interpreter must sequentially search this dictionary By contrast, ACCEL? builds 
the variable dictionary once at compile time and thereafter can refer to the variable names by 
direct address, with no run-time search 

"Line Resolution The interpreter has to take the line number following a GOTOorGOSUB. 
convert il to binary, and then search the program sequeniialiy to find the target line At 
compile lime ACCEL2 generates single machine-instructions lor GOTO or G0SU8 using the 
actual address ot the target line For the interpreter, both name resolution and line resolution 
get slower as I he program gets more complex . whereas tor compiled code these two operations 
are independent oi program size or number of variables 

"Computational Operations The interpreter must parse each statement every time find the 
one-byte codes that correspond to the operations Iook ahead to "he next operator to establish 
the precedence rules and cnec* tor data type mismatcn and conversion Constants must be 
converted Irom character st'ings to internal Binary But under ACCEL2 constants are converted 
and emoedded right n the Z80 instruction stream and operators are translated once and tor 
an at compile time into sequences of calls to ROM or the I jn-time component 'NTEGER opera 
tions are actually turned into directly executing straight me 280 code' 

The result is a mixture ot BASIC statements and machine language instructions, usually 
not more than lY?-2Vj times the size ot the original but running much taster (can be 
50-100 times as fast with some programs) 

ACCEL2 32KTRS-80Modell/!ll Compiles selected subset in all variable types, localand 
global compilation options output save to ES/F water, disk under TRSDOS NEWDOS. 
NEWOOS/80 

$88.95 + $2.00 shipping 



Deve'oped in Britain 
By Southern Software 



TRS-80 TRSDOS tm Radio Shack 



ALLEN GELDER SOFTWARE Mastercharge/Visa 

Box ti7?t Mam Post Ottice CA add 6% 

San Francisco CA 94101 - 7 

1415)387 3131 
i Stringy/ f loppy tmexatroninc NEWDOS imApparai. 



STOCK MARKET \ 
SOFTWARE | 

By H A H Trading Company for Mod. I. II. & III TRS 80®s j 

! 

STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume I 
analysis. Completely objective. Gives buy, sell ! 
signals. j 

MARKET TRACKER™ times tops & bottoms 
on the Dow Industrials; a composite of six tech- j 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR THE EVIDENCE ! 

FOG MORE INFORMATION OR TO ORDER. CONTACT: 

H * ?U WIPING CQM&1NY 

POST OFFICE BOX 23546 ^ 221 

PLEASANT HILL. CALIFORNIA 04923 
Tct«phon« 418/037-1030 



VISA MASTERCARD 



d>R»gd T M. of Rodio Shock 



Prognm continued 

795 IPINKEYS<>"/"THEN795ELSECLS 

811 PRINTfP, "HE HAS SET OPP All ALARM. 

ARMOURED SENTRY ROBOTS DRAG HIM AWAY. BE BAS FAILED 

BIS MISSION! *:PRIHTtH,H$; 

US IPINKEYSO'/'THEN895ELSE254B 

811 PRINTfP, 'BARRY BIDES THE SLED BEHIND SOME ROCKS AND BIKES 

TO THE BARRI£R.':PRINTfH,BS::GOSUB29 

B2# PRIWTfW,WS 

848 PRINTt32f,'l) ATTEMPT TO GAIN ACCESS TO HUTS 

858 PRINTf384,'2) USE HEAD CELL 

86* PRINTt448,"3) USB HAND LASER 

878 HfPOMiCLS 

888 IPN<10RN>3THEN82S 

898 ONNGOT07 98,921, 911 

988 PRINTfP, 'HARRY DRAWS HIS HAND LASER AND BLASTS THE BARRIER.' 

919 PRINT'IT HAS A NEGLIGIBLE EFFECT BUT SETS OFF AN ALARM THAT 
BRINGS ARMOURED SENTRY ROBOTS. THE HAND LASER CANNOT STOP THEM. 
BARRY GETS VAPORIZED! ': PRI NTfH,H$j 
915 IFINKEY$0'/'THEN915ELSE2548 

929 PRINTfP, "AS HE APPROACHES THE BARRIER HARRY HOLDS UP THE NBA 

D CELL. 

HE STUDIES THE COMPOSITION OP THE FORMERLY INVISIBLE PIELD. IT 

MAY BREAK DOWN UNDER LASER FIRE. ': PRI NTfH,H$i 

925 IFINKEY$<>V'THEN925ELSECLS 

938 PRINTfW,W$ 

949 PRINTi328,'l) RETURN TO SLED 

958 PRINTf384,"2) CONTINUE TO EXPLORE 

969 PRINTfP, "3) USE HAND LASER 

978 INPUTNiCLS 

989 IPN<10RN>3THEN939 
999 0NNG0T01B89, 1929, 999 

1999 PRINTfP, 'HARRY GETS BACK INTO THE SLED. ' : PRINTfH, H$> :GOSUB2 

1918 G0TO678 

1829 PRINTfP, 'AS HE LOOKS AROUND, HARRY IS PICKED UP ON SECURITY 

SENSORS. "-.PRINTfH, H$; :GOSUB29 
1938 GOTOBS8 
1948 PRINTfP, 'HARRY SETS THE SLED'S SHIELDS AT MAXIMUM INTENSITY 

AND 
CHARGES INTO THE BARRIER! " 

1858 PRINT-UNFORTUNATELY HE UNDERESTIMATED THE STRENGTH OF THE F 
ORCE 

PIELD. HARRY IS KNOCKED OUT AS THE SLED CRASHES INTO THE 
BARRIER.": PRI NTfH.HS; 

1855 IFINKEYS<>'/'THEN1855ELSECLS:GOT088e 

1868 PRINTfP, 'HARRY DECIDES TO USE HIS MEAD CELL TO EXAMINE THE 
BARRIER. 

BUT HE HAS TO GET CLOSER FOR THAT. ' : PRINTfH ,HS; :GOSUB29 
1878 PRINTfW,WS 

1988 PRINTf32B,"l) ATTEMPT TO GAIN ACCESS TO THE HUTS 
1899 PRINTf384,'2) HIDE THE SLED AND HIKE UP TO BARRIER UNNOTIC 
ED 

1188 PRINTfP, "3) USING SLED'S SHIELDS BREAK THROUGH BARRIER 
1118 INPUtN:CLS:IFN<10RN>3THEN1878 
1128 0NNG0T079B, 818, 1849 

1139 PRINTfP, "HARRY DECIDES TO CALL UEC FOR ASSISTANCE. 
AFTER HEARING THE PROBLEM, UEC SAYS IT WILL PRESENT THE PROBLEM 
TO COMPU-CEN AND GET BACK TO HIM WITHIN THE HOUR." 
1148 PRINT: PRINT'AFTER AN HOUR HARRY STILL HAS NOT RECEIVED A RE 
PLY.':PRINTfH,HS; :GOSUB28 
1159 PRINTfW.WJ 

1169 PRINTf329,"l) CONTINUE WAITING 
1179 PRINTf384,*2) ACT ON HIS OWN 
1188 INPUiN:CLSiIFN<10RN>2THEN1158 
1198 ONNGOT01299,1218 

1289 PRINTfP, 'WHILE WAITING HARRY DECIDES TO EXPLORE ON FOOT.':P 
RINTfH > H$;:GOSUB29:GOT01B28 

1218 PRINTfP, "HARRY FIGURES THAT HE HAS WAITED LONG ENOUGH FOR T 
HE 

WHIZ KIDS AT COMPU-CEN TO COME UP WITH SOMETHING. ": PRINTfH ,HS; 
1215 IFINKEY$O'/'THEN1215ELSECLS:G0T067f 

1228 PRINTfP, 'HARRY DRIVES ON UNTIL DARKNESS APPROACHES BUT FIND 
S 

NOTHING. ":PRINTfH,H$;:G0SUB28 
1239 PRINTfW,W$ 

1249 PRINTf32B,'l) RETURN TO HUTS 
1258 PRINTf384,'2) KEEP LOOKING 
1268 INPUTNiCLS: I FN<10RN>2THEN1 23 8 
1278 ONNGOT01288,1298 

1288 PRINTfP, 'HARRY ARRIVES BACK AT THE HUTS .' :G0T067B 

1299 PRINTfP, 'HARRY DRIVES ON IN THE DARKNESS. 

SUDDENLY HIS SCANNER DETECTS A MAMMOTH FORM DECENDING FROM THE 

SKY. ATTRACTED BY THE LIGHTS, A GIANT MANTA MOTH SWALLOWS THE 

SLED.*:PRINTfH,H$; 

1295 IFINKEYS<>*/*THEN1295ELSECLS:GOT01375 

1399 PRINTfP, "HARRY FIRES THE POWERFUL TWIN LASER CANNONS POINT 

BLANK INTO THE BARRIER. THE BARRIER HAS BEEN WEAKENED 

SUBSTANTIALLY, BUT SENTRY ROBOTS OPEN FIRE ON HIM. ': PRINTfH , H$: : 

GOSUB29 

1319 PRINTfW,W$ 

1329 PRINTf328,'l) TURK ON SHIELDS 

1338 PRINTf384,"2) USE LASER CANNONS 

1348 PRINTfP, '3) GET OUT OP THERE 

1359 INPUTN:CLS:IFN<10RN>3THEN131B 

1368 ONNGOTOl 389, 1379, 1378 

1379 PRINTfP, 'THE SKY IS FILLED WITH RED LASER BOLTS. 

THE SLED IS HIT. ': PRINTfH ,HS; :GOSUB29 

1375 CLS:PRINTf 478, 'GOOD BYE HARRY1 ' : PRINTfH, H$; 

1376 IFINKEYS<>'/"THEN1376ELSECLS:GOT02549 

1388 PRINTfP, "LASER BOLTS FLASH AGAINST THE SLED'S SHIELDS. ": PRI 

NTfH.HSj 

1381 IFINKEY$<>"/'THEN1381ELSECLS 

1399 PRINTfW,W$ 

1499 PRINTf329,'l) GET OUT OF THERE 

1418 PRINTf384,'2) RAM THE BARRIER 

1428 INPUTN:CLS:IFN<10RN>2THEN1399 

1439 ONNGOT01449,1459 

1449 PRINTfP, 'HARRY ESCAPES BUT HAS FAILED HIS MISSION. 

HE IS EXECUTED FOR COWARDICE! ': PRINTfH ,HS| 

1441 IFINKE»SO"/'THEN1441ELSECLS:GOT01375 

1459 PRINTfP, 'WITH FULL POWER TO FRONT SHIELDS, HARRY CHARGES TH 

E 

WEAKENED BARRIER." :GOSUB5 9: PRINT: PRI NT 'HE BREAKS THROUGH AND ZOO 

Program continues 
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LOWERCASE MOD 

KIT 

NO SOFTWARE 
ALL HARDWARE 




FOR TRS— SO MOD 1 



THIS OFFER 

WILL NOT 
BE REPEATED 




CECDAT, INC. -« 

P.O. Box 497 
Hayden Lake. ID 83835 

CALL NOW 
(208) 772-9571 

90 DAY WARRANTY 

WITH ALL 

OPTIONS 

($125 00 VALUE) 



WHILE STOCK LASTS 



THE PATCH" is a trademarkofCECDAT, INC. 

Name. 

Street 

City State 

Signature 



ORDER INFORMATION TRS-80 is a Trademark of Tandy Corp. 
(J Check, Money Order, Bank Draft 
U VISA. MASTERCHARGE (add 3%) 
Card No. 



Zip. 



Expiration Date 



Today's Date 



You must check 

"Mem Size "\ "Memory Size": "Debounce"L_ "Block Cursor" 
Price valid through December 31, 1981 



"THE PATCH 2" @ 89.95 ea 
Ship & Hand. @2.50 ea 



ID Sales Tax 3% (Id Res). 
TOTAL ORDER 



NOW AVAILABLE 

THE ULTIMATE ARCADE GAME 




MO DEL I. III. 16 K. Level II 

| DEALER INQUIRES WELCOME 



$19.95 



COLOR COMPUTER PROGRAMS 

Ralnbew File* / Data Base Mgr 16K E> 
tended Basic 111.95 

Ralnbew Small Bualneaa Syetem / Ooma Book 

keeping formal '6K Extended Basic 924 95 

Ralnbew Qani Pack I ' Hangman. Target Shoo). 
Boggle. Craps 4K 919.95 



Sand Check ar Meney Order / COD'i Wekeme 
Oklahoma Residents add 2% tax 

mg(o)[r®(a](u]©'G© 

P O. BOX 7544 I TULSA, OKLAHOMA 74106 

CODs Call (918) 747-9646 

.-596 




Includes controller 
board, mounting 
brackets, cables, 
and power supply 
for 2 internal drives Controls up to 4 drives 
which may be any combination of internal or 
external. This controller has been tested for 
compatibility with TRSDOS 1 . LDOS-. and 
NEWDOS' Using TRSDOS 1 you may use 
either Tandon or MPI 40 or 80 track dnves 
With LOOS' or NEWDOS' you may use any 
combination or 5'/4" drives The controller 
supports any mix of 51*" drives including 
single or double density . single or double sided. 
35.40. 77 or 80 tracks 

TERMS: Cashier's Check, VISA, MAS- 
TERCARD, or COD. Personal checks ac- 
cepted, but will require 2-3 weeks to process. 
COD. add 3%. 

To Order, Call (505) 265-5072 

OR Mail order with payment 10 1 




JAM Systems. Ltd. 



605V2 San Mateo Blvd., N.E. 
Albuquerque, N.M. 87108 



TRSDOS is j Trademark ol Radio Shack ( orporaii. 
LDOS is t trademark ol Logical Svvierm. Inc 
VtWDOSiw IrKlemarkol APPARAT 




EDU WARE EAST 

P.O. Box 336 

Maynard, MA. 01754 

617-568-8641 

»^477 




MATH-PAK-I: MATH-PAK-2: MATH-PAK 3 

(Matt by digit, )uat Irka paper and pencil. With ueer 
■ataatad difficulty level*, omt ytmn , reducing. *lmprl- 
neatlon, pointing oil, ecortng, gamea, and more. U.ed 
by school* m mfttm*. Order MATH-PAK- 1 for Inte- 
ger*, MATH-PAK 2 for traction., MATH PAK 3 for 
decimal.. (L2-1BK) $14.95. a 

H-O-R-K-S 

Low coat, .Ingle entry * co ou n *»i g aystern for the home 
or office. With M ueer eeelaned account codee. auto 
audit trail, search with total*. 32 or 4SK, 1 to 4 drives, 
credit and debit summaries with 3 options, up to 9200 
•"tries. S24.95rcaa.etta S2» 95/dlac 

INVENTORY + 

Why settle for )uat an Inventory Mating? Gat aging 
reports with 2 options, reorder, total Hating, with pur 
chase date* and amounts, total coats. Items sold, pro- 
fft/loss and more. Use as s stand alone system with 
dairy update., delete, change, and Ilia packing 
routines. (32K f disc minimum) S24 95/caaaerta 

S29.95rdr*c. 

CASH REGISTER 80 

Us* your TRS-80 ss a point of sal* terminal with 
automatic Inventory lookup, pricing, update, and more. 
Print sale* slips with user adfusted format., and of 
day report* with all cash, charge, end check tale* by 
salesperson. CRdO requires INVENTORY*. 4aK. and 
1 disc minimum (2 drives recommended). 

S24 »Vc****rte *2S.Krdl*c. 



Mass resident* and 5% tax. VISA, M.C., AND PHONE 
ORDERS ACCEPTED. Dealer Inquiries Invited. Over 
seas orders add 12.00 for air shipment. TRS-M la a 
trademark of Tandy Corp. 



■See List of Advertisers on page 418 
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Program contmuGd 

MS PAST THE SLOW MOVING ROBOTS.' 

1461 PRINT'HARRY QUICKLY HIDES THE SLED AMOUNG THE CLUSTER OF HU 

TS." 

1478 PRINT'WITH LASER G'JN DRAWN, HE CHARGES INTO THE NEAREST STR 

UCTURE. 

IT TURNS OUT TO BE AN ELEVATOR THAT PLUNGES DOWNWARD .": PRI NTIH , H 

$; :GOSL'B2l 

148* PRINTIP, "HE IS IN A HUGE COMPLEX OF SILVER GLASS PANES. 

EACH PANE IS SCORED INTO 5 CM SOUARES , AND EACH SQUARE IS 

PERFORATED BY A SHALL HOLE . * : PRI NT*H , H$ ; : GOSUB2I 

1491 FRINT|W,WS 

ISM PRINT*328,"1) EXPLORE MORE 

1511 PRINT*384,"2) EXAMINE PANE 

1528 INPUTN:CLS: IPN-.10RN>2THEN14 98 

1538 ONNGOT0154»,161B 

1548 PRI NTIP, 'HARRY GOES BACK UP THE ELEVATOR. ONCE OUTSIDE HE 

GOES INTO ANOTHER HUT, BUT FINDS NOTH INC. * : PRI NT|H , H$, : GOSUB28 

1558 PRINT**, WS 

1568 PRINT*328,"1) CONTINUE EXPLORING 

1578 PRINT*384,"2) CO BACK TO GLASS PANE COMPLEX 

1588 INPUTN:CLS: IFN<10RN>2THEN155B 

1598 ONNGOT01688 ,1488 

1688 PR1NT#P,"HE RUNS FOR ANOTHER HUT, BUT THIS TINE HE MEETS 

THE ROBOTS INSTEAD. " i PRINTIH ,H$j 

1681 IPINKEYSO*/"THEN1681ELSE1375 

1618 PRINTIP, *AS HE TOUCHES THE PANE, HE IS STUNNED UNCONSCIOUS. 

WHEN HE AWAKENS, HE IS SURROUNDED BY A SECURITY TEAM. A MAN 
WITH GOLD TEETH IS SMILING. THE MAN SPEAKS .": PRI NT|H , HS :: COSUB2 

1628 PRINTIP," 'THE GREAT HARRY PLYNN. I NEVER THOUGHT I'D MEET 

YOU IN PERSON. '": PRINTIH ,HSj : GOSUB2I 

1638 PRINTIP,* (STANDING UP, HARRY RETORTS) 

•THE INFAMOUS DR. HON FROM KRUEL .'*: PRINTIH , H$, : GOSUB2I 

1648 PRINTIP, "YES, KRUEL. KIDNAPPING, REVOLT, USURPATION, EXTO 

RTION LEAGUE. 

YOU, MR. PLYNN, HAVE INVADED OUR HOSTAGE STORACE CENTER. ' V PRINT 

*H,HSj :GOSUB2t 

1658 PRINT*?,* (HARRY PROBES) 'TELL ME MORE. ' * ! PRINTfR ,H$| : COSU8 

166* PRINT*328,*'OF COURSE. EACH HOSTAGE IS KEPT FOR FUTURE POL 

ITICAL USE. 

THEY ARE DATA PATTERNED AND LASER STAMPED ON THOSE SLIDES YOU 

CARELESSLY TOUCHED. INSERT A PELLET LIKE THIS, AND THEY ARE 

RECONSTRUCTED — UNHARMED.* 

1678 PRINT:PRINT* 'WITHOUT A PELLET, A NASTY SHOCK IS APPLIED. 

YOU MAY HAVE THIS ONE AS A SOUVENIR.' 

(DR. NON SLIPS A PELLET INTO HARRY'S SHIRT POCKET)* 

1675 PRINT* 'TOO BAD YOU MUST LEAVE OS NOW, MR. PLYNN 

... PERMANENTLY. '* : PRI NTIH , HS; :GOSUB28 

1688 PRINTIP, "HARRY IS TAKEN TO THE SOLAR MIRROR. ONE OF THE GU 

ARDS 

EXPLAINS THAT DR. NON RESERVES THIS FORM OF EXECUTION FOR 

SPECIAL GUESTS.* 

1698 PRINT'HARRY IS STRAPPED TO THE MIRROR. AT SUNRISE HE WILL 

BE INSTANTLY TOASTED. THE GUARDS LEAVE. *: PRINT*H ,HS, :GOSUB28 

17M PRINT*H,W$ 

171* PRINT*328,*I) BREAK BONDS 

1728 PRINT*38«,*2) ROTATE MIRROR rWM SUN 

1738 PRINT*P,*3) USE HEAD CELL 

1748 PR1NT|512,"4) PRAY 

1758 INPUTN:CLS:IPNUORN>4THEN17S8 

1768 ONNGOT0177S, 1818, 1858, 1848 

177* PRINT*P,*THE BONDS LOOSEN BUT DO NOT BREAK. 

SHOULD HARRY i 1) KEEP TRYING 2) TRY SOMETHINC ELSE.* 

1788 INPUiN:CLS:ONNCOT0179f ,1888 

17 98 PRI NTfP, 'HARRY CAN'T LOOSEN THEM ENOUGH BEFORE SUNRISE.': PR 

INT*H,HSi :G0SUB28:GOTO1375 

1888 GOT017B8 

1818 PRI WT*P, 'MIRROR BUDGES A LITTLE AS BONDS STRETCH. 

SHOULD HARRY i 1) KEEP TRYING 2) TRY SOMETHING ELSE.* 

1828 INPUiN:CLS:ONNGOT0183l,17*» 

1838 PRINT*P,*THE MIRROR DOESN'T TURN FAR ENOUGH .*: PRINTIH ,HS c G 

OSUB2*iGOT01375 

1848 PRINT«P,'AS HE PRAYS, HE GETS THE IDEA OF USING THE MEAD CE 

LL.*: PRINTIH, H$| :GOSUB2* ! GOT01788 

1858 PRINT*P, 'HARRY REMEMBERS WHAT ORR SAID ABOUT THE CELL AMPLI 

FYINC 

THOUGHT WAVES. HE CONCENTRATES ON MOVING THE MIRROR'S POSITION 

CONTROL LEVER.*: PRINT 

1868 PRINT'NOTHINC HAPPENS. 

SHOULD HARRY: 1) KEEP TRYING 2) TRY SOMETHING ELSE.* 

1878 INPU»N:CLS:ONNGOT0189*,188* 

1888 GOT01788 

1898 PRINTIP, 'FINALLY THE LEVER MOVES AND ROTATES THE MIRROR AWA 

Y 

FROM THE SUN. THIS GIVES HARRY THE TIME HE NEEDS TO BREAK TREE. 

":PRINT|H,HS;:GOSUB2l 

1988 PRINT*W,W$ 

1918 PRINT*328,"1) SNEAK BACK TO HOSTAGE STORAGE AND USE PELLET 

192* PRINT*384,*2) ESCAPE AND RETURN WITH REINFORCEMENTS 

1938 PRINT*P,*3) CAPTURE DR. NON AND USE HIM TO BARGIN FOR THE G 

IRL 

AND FREEDOM 

1948 PRINT«576,'4) FAKE HIS DEATH BY TURNING MIRROR BACK INTO SU 

N 

1958 PRINT*648,'5) USE MIRROR AS WEAPON 

1968 INPUTN:CLS: IFN<10RN>STHEN198B 

1978 ONNGOT0198S, 1998, 2*88, 2818, 2858 

1988 PRINT*P,'AS HARRY SNEAKS BACK HE IS SURPRISED BY A SECURITY 

TEAM. *: PRINT *H,HS;:COSUB28:GOT01 375 
199* PRI NT*P, 'HARRY MAKES IT OUT OP THE COMPLEX, BUT WITHOUT 
THE SLED. HE PERISHES IN THE DESERT. " : PRINTIH , HSl :GOSUB28 :GOT02 
548 

2888 PRINT*P,'FOR THIS PLAN HARRY NEEDS A WEAPON. HE SNEAKS BAC 
X TO 

THE SLED AND REMOVES A LASER CANNON. HE THEN CONFRONTS DR. NON 
AND A SECURITY TEAM. 

UNFORTUNATELY, HARRY'S LASER PAILS TO OPERATE. ': PRI NT*S ,H$ , : GOSU 
B2B:GOT01375 

281* PRINT*P,'NO ONE WILL BE LOOKING FOR HIM NOW. 
SHOULD HE: 1) ESCAPE 2) TRY TO CAPTURE DR. NON 31GET THE GIRL 
2828 INPUiN:CLS:0NNCOTO2838, 2*48, 2838 
2*3* PRINTIP,* HARRY DASHES THROUGH THE CLUSTER Of HUTS, BUT STEP 



ON A SONIC ANTI-PERSONNEL MINE. ': PRINTIH ,HS> : GOSUB28:GOT01 375 

2848 GOT028BB 

2lb8 PRINTIP, "HARRY TURNS THE MIRROR ON THE INSTALLATION AND DES 

TROYS IT. 

DR. NON, HOWEVEh, ESCAPES IN HIS PERSONAL SH7TTLE. 

SHOULD HARRY: 1) GO AFTER DR. NON 2) GET THE GIRL" : INPUTN : CLS : 

0NNGOTO2*68,2B78 

2868 PRINT*P,'HITH HIS HEAD START, DR. NON EASILY ESCAPES PURSLI 

T. 

HARRY WASTED VALUABLE HOURS. BY THE TIME HE RESCUES THE GIRL, 

WAR HAS BROKEN OCT WITH SIRA. HARRY FAI LED . ' : PRI NTIH , HS i : GOS'JB2 

8:GOT0254B 

2878 PRINTIP, 'HARRY MAKES HIS WAY TO THE HOSTAGE STORAGE AREA. 

BY NOW DR. NON HAS RADIOED FOR HELP. 

KRUEL REINFORCEMENTS ARE ON THEIR WAY . * : PRI NTIH , H S : : GOSUB2B 

2888 PRINT*W,W$ 

2898 PRINTI32*,"1) STUDY THE STORAGE SYSTEM 

2188 PR:NT*384,*2) FREE EVERYONE BY DISABLING LOCK MECHANISM 

211* PR1NT*P,'3) EXAMINE THE FILES 

212B PRINT|S12,"4) CALL UEC ON SLED RADIO 

2138 PRINT*576,'5) GET MECHANISM TO PROOUCE MORE PELLET KEYS 

2148 INPUvN:CLS:IPN<10RN>5THEN2B88 

215B ONNGOT0216B, 2178, 2228, 2238, 2278 

2168 PRINTIP, "THE SYSTEM HAS 3 PARTS: 

PILES 

PELLET PRODUCER 

LOCKING MECHANISH':PRINT*H,H$,:GOSUB28:GOT02B8B 

217B PRINT*?, 'TAMPERING WITH THE LOCK STARTED A BASE DESTRUCTION 

SEQUENCE. HARRY HAS 68 SECONDS TO DECIDE WHETHER TO: 

1) ABANDON THE BASE 2) TRY TO ABORT SEQUENCE 

218* INPUTN:CLSiIPN<10RN>2THEN217* 

2191 ONNGOT022SB,2218 

22*1 PRItTTfP, "HARRY LIVES, BUT THE MISSION IS LOST. * : PRINTIH, HS| 

:GOSUB2*:GOT0254B 

2218 PRINT(P,*HE ALMOST HAD IT, THEN •BOOH I •": PRINTIH ,HS| : GOSUB2 

•iGOT01375 

2228 PRINTIP, 'THERE ARE MANY PILES. SINCE THE GIRL WAS JUST TAK 

EN, SHE 

SHOULD BE AMOUNG THE LAST ENTRIES. BUT HARRY HAS ONLY 1 PELLET. 

WHICH PILE IS THE RIGHT ONE?" : PRINTJH , H$ J . GOSUB2* :GOT02288 

2238 PRINTtP, 'HARRY FINDS THE SLED RADIO BROKEN. 

SHOULD HE: 1) TRY TO FIX IT 2) GO BACK TO STORAGE AREA 

224* IHPUTNiCLS:0NNCOTO2258,2268 

2258 PRINT*P, "HARRY GETS IT TO RECEIVE, BUT HE CAN'T TRANSMIT.': 

PRINT*H,HS;:GOSUB28:COT028BS 

2268 GOT02888 

2278 PRINT*P,'BY ATTEMPTING TO BYPASS THE PELLET TIMER, HARRY SE 

TS OFF 

A SIGNAL WHICH ERASES ALL THE FILES1 MISSION IS A FAILURE. ': PRI 

NT*H,H$| :GOSUB28 :GOT02548 

2288 PRINT*W,W$ 

2298 PRINT*32B,"1) LOAD THE FILES UP AND BRING THEM TO UEC 

23M PRINT*384,'2) DISABLE LOCK MECHANISM 

2318 PRINT*P,*3) TAKE A GUESS 

232* PRINT*512,'4) GET MECHANISM TO PRODUCE MORE PELLETS 

233* PRINT*576,"5) CUT OFF POWER TO STORAGE COMPUTER 

2348 PRIST*6 4B,'6) GO BACK TO SHIP AND USE RADIO 

235* INPUTN:CLS:IFN<10RN>6THEN228* 

2368 ONNGOT02378, 2178, 23 88, 2278, 2398, 2438 

237* PRINT*P,*WHEN HARRY ATTEMPTS TO REMOVE A PANE FROM ITS HOLD 

at, 

THE FILE DISSOLVES. THE GIRL AND ALL OTHER HOSTAGES ON THE 
PANE ARE DESTROYED. MISSION FAI LED. * : PRINTIH , HS, : GOSUB28 .GOT025 

23 88 PRINTIP, 'BAD ODDS I HARRY'S PELLET FREES A HUNGRY GORGON WO 

LP HAN.":PRINT*H,HSj:GOSUB2l:GOT01375 

239* PRINTIP, 'WITH THE POWER OFF THE SYSTEM BECOMES TOTALLY INOP 

ERATIVE. 

SHOULD HARRY: 

1) TURN POWER BACK ON 

2) EXAM SYSTEM WITH POWER OFF 
2488 INPUrN:CLS:ONNGOT0241 8,242* 
2418 GOT0228B 

242* PRINTIP, 'A SECONDARY POWER CIRCUIT SNAPS ON WHILE HARRY IS 

STUDYING 

CONNECTIONS. HE IS ELECTROCUTED 1 ': PRINT8H ,H$| : COSUB28 : GOTO1375 

2438 PRI NT*P, "HARRY DRIVES BACK TO THE SHIP AND CALLS UEC. 

COMPU-CEN SUGCESTS TAKING MICRO-PHOTOS USING THE HEAD CELL 

AND ANALYIINC THEM ON THE SHIP'S COMPUTER.' 

244* PRINT'IN ADDITION, UEC IS SENDING A TASK FORCE TO SECURE TH 

E BASE.':PRINT*H,H$j:GOSUB28 

2458 PRINTIP, 'HARRY RETURNS TO THE STORAGE AREA, AND FOLLOWING 

COMPU-CEN'S ADVICE IS ABLE TO IDENTIFY THE GIRL'S PILE." 

2468 PRINT'HE SLIPS THE PELLET IN AND A HOLOGRAPHIC IMAGE APPEAR 

S. 

IT IS KURVI CALLEASE. SHE IS ALMOST MAGICALLY 

BEAUTIFUL. THE IMAGE PILLS AND SHE COMES TO LIFE, BUT 

IMMEDIATELY FAINTS .*: PRINTIH , HS; : GOSUB28 

247* PRINT*P, 'HARRY CATCHES HER AND CARRIES HER TO THE SLED. 

THEY SPEED OVER THE YELLOW SANDS TO HIS SHIP. ABOVE, THE SKY 

FLASHES WITH RED AND BLUE LASER STROBES AS UEC AND KRUEL 

FORCES BATTLE IT OUT.' 

2488 PRINT'THE GIRL AWAKENS. A TEAR IN HER EYE REFLECTS THE FLA 

SHES 

OVERHEAD. ':PRINT»H, HS| :COSUB28 

249* PRINT*P,"WHO ARE YOU? " : PRINTIH , H $ : : GOSUB2I 

25*8 PRINTIP, "HARRY PLYNN FROM UEC AT YOUR SERVICE. ": PRINTIH , H 

Si:COSUB28 

251* PRINTIP, 'SHE PRESSED CLOSE TO HIM, HER HEAD ON HIS SHOULDER 

'TAKE HE HOME, PLEASE, HARRY. ": PRINTIH ,HS| : GOSUB2* 

2521 PRINTIP, "YOU'RE AS GOOD AS THERE. '*: PRINTIH ,H$j : GOSUB2* 

253* PRINT*4M,CHR$<23) "CONGRATULATIONS, •:PRINT!524, 'MISSION ACC 

ONPLISHEDI':FORT-lT03***:HEXT:END 

254* CLS:PRINT|47*,"WANT TO TRY AGAIN (Y/N)*; 

255* INPU»D$iIFDS-*Y*THEN58* 

256* IPDS-*N*THEN25«* 

257* IPDS<>*Y*ORDSO*N*THENCLS:PRINT*464, "ANSWER ONLY WITH A Y 

R N*,tCOT0255* 

25*1 CLS:PRINT|448,*YOU BETTER GO BACK TO UEC OFFICER ACADEMY FC 

R A REFRESHER COURSE" : FORT-1T03*** : NEXT: END 
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NEW PROGRAMS 
FOR THE TRS-80 

incoPROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: Basec upon 5tancWfcii/«»a methods 

O' properly analysis used throughout th»> real 
psiatp industry Generates a 3 page report contain 
mq an annua' property opera 
comprehensive 10 year cash 
'an- IPS ta> table to (^roi 
stream and myestor s I P R 

• Hannlr^ f> rJi'li»r*ni m#iho(H c 

• Mandr-, up re 1 loanr. ft 3 di"f 

■ Highly inii.rariive'o>ma'pe>min Sensii.viiy »nai.-, •■ 

• D«r*h r, rs r'raltl lm pftmineni Mo'agr r>* ddla 
Mmimjn. iysler' 'equi'em»ol» 37li HAM ' rtr.»e *>Hl 
prinrer S<| *,!r> ■r'n'malirf 7H page uw 5. manual ' nvpr 

r>g Banc a»pec n o" mcon-e P'operiy r v »Mmrni A V. 

c.j'A onrknheeK 

MnOf . •. ii m- ta»eiie lor easy Handler 

li o.sk V20 0C 

Mooe ii on 8 .rtnO'Wei'e i'«*>00 

Mooei » Version a«anat><>- i UBASil 

MAINDEX: An easy to use p'oqrarr io aid you m 

the inOfimg ot your ti'es on disk Can i I nd thai 
program you arrote last month* 1 Put your computer 
:o *orli ' Fmd any program or data ine n you' sys 
tem m seconds 

■ A Mam InOei or a>' >uur o-rier 0i»« % d—CIOr m 

" Alphabetizes list o ( 'I'es anc Qi*es »o^ names Q'ans 



O* analysis Con 
t a'ler ta> nromp 



i rtep'er • , 



* f. 



■ aescript.ons 
d'S* and categories 

• File descriptions can be searched tor key *ords 

• Prints d'Sk labels *'th d-Sk nam* and tile name-. 

• Uses an the advanced and e*t'eme'» *av ri e maripu 
mtron caoac-iities o' Aoparat H«c sNEWDOS'BP 

Mequnes Lev« li 48K i o>s» dnve and NEWOOS*90 or 
cassette 'ex easy transrer to O-J U0 9S 

■ma ■■--■ 




DEPT EM. PO BOX SI1.NOVATO. CA »4tui7 



TRS40™* Models 1 & 3 

SOFTWARE 

SYSTEM DIAGNOSTIC $99.95 

Tests every component of your TRS-80 
for proper operation: ROM. RAM. Video 
Display. Keyboard. Line Printer. Cassette 
Recorder. Disk Drives. RS-232 lnterfa<e 
Continuous or monitored operation 

SMART TERMINAL $69.95 

The intelligent telecommunication pro- 
gram that enables your TRS-80 to be 
used as a timesharing terminal. Automatic 
Ir a n u n it mow to and from another c om- 
puter. Control keys, break key. lower 
case, cassette and disk files compatible 
with both Electric Pencil* and St ripsrt 
programs. 

MONITOR #3 $39.95 

Disassembler, memory display, move, 
search, verify, modify, read and write 
machine language cassettes, object t odp 
relocator. hexadecimal arithmetic . 
symbolic disassembly output 

MONITOR #4 $49.95 

Same as Monitor #J but adds disk file and sec- 
tor input/output. RS-2 32 communications. 

PENCIL PATCH $19.95 

Fixes the Electric Pencil* Model 1 ver- 
sion so that it runs on the Model 3 (You 
must already own the Model 1 version.) 

GRAPH PRINT $19.95 

Creates formatted print-out on the 
Epson MX-M printer Enhanced p.'int 
modes print quality text surrounded by 
graphic border Editing, disk save/reload 
text entry, error testing 

Send S.A.S.E. for FREE Catalog. 

HOWE SOFTWARE 

14 Lexington Road, New City. NY 10956 
•TRS-80 is a registered trademark o' the 

Radio Shack division of Tandy Corp ^ 'C^ 



Bayesian 

Investment 

Services 

Send for free catalog 
discussing TRS-80 
programs available for 
evaluating: 

Options & Futures 
Stocks & Bonds 
Convertible 
& Other Hedges 
Portfolio Position 
Tax Positions 
Market Timing 

Write or call: 
Bayesian ^m 
Investment 
Services 

Dept. H3 
757 Santa Rosita 
Solana Beach, CA 92075 
(714) 755-6225 



r 



SAVE UP TO $600.00 NOW 
on TRS-80 ™ Computers & Accessories 

With This Coupon* 

Now you can own a great little computer at a great big discount off the manufacturer s 
list price For home or office use. the Radio Shack* line of computers is first in quality. 
performance and price. 

• FREE SHIPPING in the 48 continental contigious states Model II 

• NO SALES TAX collected on out-of-state orders 

• CONVENIENT ORDERING - Call us TOLL FREE - 1— 800/531 -7466 

• FREE COMPLETE PRICE LIST available upon request 




Description 



Catalog 
Number 
Radio Shack* TRS-80 Model II 

26-4002 64K 1 Disk Model II 

Radio Shack- TRS-80 Model III 

26-1062 Model III 16K 

26-1065 Model Ml 48K - 1 Disk 

26-1066 Model III 48K — 2 Disk 

Radio Shack* TRS-80 Color Computer 

26-3001 4K Color Computer 

26-3002 16K Color Computer 

26-3003 32K Color Computer 

Epson' MX-80 Printer 

Hewlett-Packard' HP-BO Personal Computer 
Magna vox" Odyssey 3 Home Video System 
Magna vox' Magna vision' Videodisc Player 



List Price 

3,899.00 

999.00 
1.995.00 
2.495.00 

399 00 
599.00 
74900 
64500 
3,250.00 
199.95 
72500 



Cashier's 
Check 

3,299.00 

85900 
1,795.50 
2.099.00 

315.00 
475.00 
674.00 
499 00 
2.499 00 
164.95 
599 00 



Cash Price 
You Save 

600.00 

140.00 
199.50 
396.00 

84 00 
12400 

75.00 
146.00 
751.00 

35.00 
126.00 



Pan American Electronics 



S 64 



CALL TOLL FREE 800/531-7466 • (Operator 33) • Texas & Principal Number 512/581-2766 • Telex 767339 

Dept. 33 • 1117 Conway Avenue • Mission, Texas 78572 

NEW BRANCH 

2912 N. Main, Fort Worth, Texas 76106 • Phone Number 817/625-6333 • Telex 794836 



TRS-M I* • Trademark ot Tandy Corp 



•With Thla Coupon Only < - Offer eiplret 1/1S/82 



Prtcat subject 10 change without nolle a — Slightly higher lor Credit Card Order* 



• See List ol A dvwrlis wrs on pay 418 
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Aerocomp's 
Proven 
Best-By Test! 
The 



u 



II 




Double Density Controller 

* Technical Superiority 




At last' a douoie aensitv controller 'or wooei i with higher probability of data recovery than with any other 
DOUBLE DENSITY controller ON THE market TODAY! Trie DDC from Aer ocomp No need to worry about the pro- 
blems that keep cropping up on existing products aerocomps new analog design phase lock loop data separator 
has a wider capture window than the dfaltal types currently on the market This allows high resolution data center- 
ing. The finest resolution available with digital circuitry is 125 ns (nano seconds!. The DOC analog circuit allows irv 
f inateiy variable tuning Attack and settling times are optimum for 5-1 '4 inch diskettes. 
The units presently pn the market use a write precompensation circuit that is very ■ sloppy Board to board 
tolerance is extremely wide • in the order of • 100 ns The DDC ' is accurate to within ♦ 20 ns. 
The bottom line is state of the art reliability 1 

• Test Proven 

Tests were conducted on aerocomp S DDC Percoms " Doubler A" and ' Doubler n " and LNWs ' LNDoubier • • using 
a Radio Shack TRS80* * • Model I Level 2 48 K with TRS80 Expansion interface and a Percom TFD100 ' disk drive 
(Siemens Model 82). Diskette was Memorex 3401 The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed seauentialiy In the 
expansion interface 

The test consisted of formatting 40 tracks on the diskette and writing a 6066 data pattern on ail tracks The 6DB6 
pattern was chosen because it is recommended as a worst case test by manufacturers of drives and diskettes. An 
attempt was then made to read eacr\ sector on the disk once - no retrys Operating system was Newdos'80, Version 
1.0. with Double Zap version 2.0 unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown in the table. 



* Features 

TRS80 Model I owners who are ready for reliable double 
density operation will get M> 80^ more storage per 
diskette. (2) single and double density data separation 
with far fewer disk i<0 errors, (3) single density com- 
patibility and (4) simple plug-in installation, compatible 
with all existing double density software 

• value 

$149.95 for the best double density 
controller on the market. 

$198.95 for DOC complete with DOSPLUS 3. 3D 
$239.95 for DDC complete with LDOS 



* TEST RESULTS * 



MFR & PRODUCT 


SECTORS LOCKED OUT - 


AEROCOMP DDC 





PERCOM ' DOUBLER II 


18 


PERCOM DOUBLER A 


250 


LNW LNDOUBLER' 


202 



Not* test results availawe upon «ntt*n reouest an test* conducted prior to 8-3S-41 

Aerocomo s u day money oadt auarantee applies to rurfliwar* omv- 

Speciatt win be prorated swiping $2 00 in Cent us See opposite page for oet*i* 



Data Separators m n c 

The advances that make the DOC' great are incorporated in the new aerocomp Single Density Data Separator i SDS ) 
and Douoie Density Data separator ( DOS > 



• Has your original manufac- 
turer left you holding the bag? 

if you aireaoy own a Percom "Oouoier A oojofer m or uiw 
iMOouMer trie ahocomp dps wtii mate ft ngnt. look at trie test 
nHtt 



MFR & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT DOS 


WITH DOS 


PERCOM DOUBLER II 


18 


1 


PERCOM " DOUBLER A ' 


250 





LNW LNDOUBLER' 


202 






• "DPS" $49.95 

•use 1791 etiip from your DO Con- 
tro«er> 

^t UUS iMitn disk controller 

cnp included. $79.95 

• Disk controller 

Chip $34.95 

•supping $2 oo com us ■ see opposite 

page fori 



Note same test procedures as ooc . 

* TraoemafK of f» ertom oata Co 
•• Trademark of LNW 

• • • Trademark of Tandy Corporation 



Plugs directly Into your existing 
Double Density Controller. 



Do you need a 
single Density Data 
Separator? 

Tn* internal oata seoarator m the 
WD1771 en* »,$ Expansion interface! 
Ii not recommended ev wd for 
rename oata crarofer oo you nave any 
of tnese promems- lor data, tracw 
locked out CRC errors dfcfc retry* you 
NEEOONF 

• "SDS" $29.95 

IFor Uod l: sNppmg $2 001 



See opposite 

pageMMM 
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TRS80 



DISK DRIVES 

40 & 80 TRACK 



as low as 



$299. 



95 



NEW LOW PRICES 



Thanks to you our sales volume has 
allowed us to cut costs arid we're pass- 
ing the savings along We offer the best 
dBK drive value m the market place. 
Refcabiiity. features and cost tough to 
Peat. We deWer and we stand behind 
our products AEROCOMP is the onry 
manufacturer to offer FREE TRIAL i Buy 
Aerocomp dnves today. You deserve the 
best 

BEST FEATURES 

* Fast 5 ms track track access time 

* Operates sngle or double density 

* "I PPY f.rture for lower media cost 
140-1 &80I) 

* Head load solenoid 

* Disk ejector 

* ••/ entry door. 

* MEW EXTERNAL DRIVE CABLE 
CONNECTION 



EPSON 

MX80 

PRINTERS 

$479.00 

TRS80 Cable (I & III] $29.95 

APPLE Cable & Interface. $96.00 

RS2 32 Interface $69 95 

Ribbon Cartridge. Black $ 1 3 95 
Add S6.00 V*Pfxn9 (Com. U S.j does not 
mcJudccao* 

MX80 F/T 

Ai fr* feature of V1X80 plus Friction 
Feed Supping & cables as above 

$ 599.00 



ORDER TODAY I 

* 40- Track Drive 5299.95 

* 80 Track Drive. $429.95 

* 40-Track FLIPPY Dnve S329.95 

* BOTrack FLIPPY Dnve S449.95 

* 40Track Dual Head Drive S449.95 

* 80-Track Dual-Head Dnve S579.95 

. | 

* 40Track Bare Dnve S269 95 

* BOTrack Bare Drive. . S 399 95 

* 40Track "FLIPPY" Bare DnveS299 95 

* BOTrack "FLIPPY" BareDnve$4l9 95 

* SPECIAL PACKAGES* 

STARTER A SJJ9 95 

40Track Drrve. 2^Jrrve cable TRSDOS 
2 3 Dtsk & Manual. Freight & Ins 

SRARTER B $369 95 

40-Track "FL^PY" Drrve. cable. TRSDOS 
2 3 Disk & Manual. Freight & ins 

COMBO C . S465.00 

40-Track 'FLIPPY" Drive. 2-dnve cable. 
LOOS Freights ins 

COMBO D. . ..S585 00 

BOTm. I 1 1 IPPY" Drrve. 2-dnve cable. 
LDOS Freight & ins 

COMBO E S709 00 

Two 40Track FLPPY ' Drives. 4-Dnve 
cable. TRSDOS 2.3 Dsk & Mannual. 
Freight & ins. 

COMBO F S999.00 

Tat BOTrack 'FLIPPY " Drives. 4-dnve 
LDOS Freight* ins 

COMBO G $909.00 

Two 40Track Dual-Head Drives, cable. 
TRSDOS 2.3 Disk & Manual. Freight & 
ins 

COMBO H SI2990C 

Two BOTrack Duai-Head Drrves cable. 
LDOS height & INS 

DOSPLUS 3 3 or NEWDOS t 80.2 
available w«h any package 

FREE TRIAL OFFER 
Order your AEROCOMP Disk Drrve and 
use it with your system for up to 14 
days, if you arc not satisfied for ANY 
REASON (except mrsuse or improper 
handling), return it. packed m the 
original shipping container, for a fun re 
fund. isp«i«*u*»Hqr.*«uir(nMwi We nj^e 
complete confidence m our products 3nc 
we know you wil be satis'* 1 *: ORDER 
TODAYII 



WARRANTY 

We ufVr you a 1 20 day uncondlional 
warranty on parts and labor against any 
defect in materials and workmanship, in 
the event service for any reason. 
becomes nescessary. out service depart 
merit rs fast, friendly and cooperative 

100% TESTED 

AEROCOMP Dsk Drrves are completely 
bled at the factory and ready to 
plug m when you receive them Eacn 
drrve is 1 00% bench tested pnor to ship- 
ment We even enclose a copy of the 
test checklist signed by the test lechm 
cian. with every drive AEROCOMP 
MEANS RELLABJLJTY'I 

ORDER NOWII 

To order by mail, specify Model 
NumberfSj of Drrve. cable etc (above) 
enclose check, money order VISA or 
MASTERCHARGE card numtxt and ex- 
piration dale or request COD shp- 
ment Texas residents add 5% sales tax 
Add S 5 00 per dnve for shipping & handF 
ing (Com. USj Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
COD shipments-cash, money orders or 
certfied checks only You will receive a 
card showing the exact COD amount 
before your shipment arrives Be sure to 
nclude your name and shipping address 
You wHi be notified of the scheduled 
shipping date Your bank credit card will 
NOT De charged unui the day we ship m 

DRIVE CABLES 



S34 9S 



WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 8247M« OPERATOR 24 

FOB VlftA.'MA*TltCHAM>l'C.O.D. O»0Urt 

CoMo«n,a d-oi ItOO! 837 7777 Op»'otot 34 Aimho 
ond Mows" d>ol tOO n* 79I9. Opa'olo' 74 
TOIL Fill LINffS Will ACCtFT OMMM ONITI 

For ApelKo'to*t one) Toctimcol »*c"T>o'ior coll 
314 337 4346 or drop \j% e cart) 



D*Cl«'t rtovtr.m invittd 



Redbird Airport. Bldg. 8 
P.O. Box 24829 
Dallas. TX 75224 



.-36' 



' S— l >*t ot AA¥»/f ''90/S en pso* * IS 
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GAME 



Focus your attention on this winning Color Computer version. 



Color Concentration 



Charles T. Wrye 

600 Toftrees Ave., Apt. 352 

State College, PA 16801 



Among the many strong 
joints of the TRS-80 Color 
Computer are the color graphics 
and sound capabilities. Color 
Squares, my version of Concen- 
tration, shows off these fea- 
tures and is fun to play. It makes 
extensive use of the color graph- 
ics capabilities, but due to the 



limits of the 4K memory, only 
limited use of sound. 



How to Play 

In the game, two players com- 
pete to see who can match the 
pairs of figures hidden behind 
the 16 squares. To begin, enter 
RUN. After a short delay to ran- 
domly distribute the patterns 
on the screen, 16 yellow squares 
will appear. They will be num- 
bered 01 through 16 (Fig. 1). 





Program Listing 


1 DIM A(16) ,L(16) 


3 CLS: PRINT@234, "INITIALIZING" 


5 FOR A=1T016 


7 N=RND(8) 


9 T=T+1 


10 


IF T=N THEN C(T)=C(T)+1 


12 


IF C(T)>2 THEN C (T) =2:T=0 -.GOTO 7 


14 


IF T<8 THEN 9 


16 


T=0:L(A)=N 


18 


NEXT A 


20 


CLS:Y=0:P=2:FOR A=1T016 


22 


READ L,T 


24 


GOSUB 310 


26 


NEXT A 


28 


RESTORE 


30 


N«l:FOR B=1T04:F0R A=lT04 


32 


T=(A*8)-6:L»(B*128)-32 


34 


PRINT @(T+L) ,N; :N=N+1 


36 


NEXT A r B:SOUND 120,6 


38 


Q=3 


40 


SET(30,15,Q) :SET(31,15,Q) 


42 


SET(30 f 14 f Q) :SET(31 f 14 f Q) 


44 


D(2)=0:FOR C=1T02 


46 


B$="" 




Program continues 



Then a small colored block will 
appear in the middle of the 
screen. This square will be 
either blue or orange, blue for 
player one and orange for player 
two. 

The player enters his choice, 
01 through 16. A high tone is 
emitted for a valid guess and a 
low tone for an illegal guess. 
On a valid guess, that block is 
cleared and the pattern as- 
signed to that square is dis- 
played. The player then picks a 
second square. If they match, 
the two blocks are colored over 
with that player's color, blue or 
orange. That player then gets 
another pair of guesses. How- 
ever, if the two blocks do not 
match they are restored to yel- 



low, a tone sounds, and the 
player indicator changes col- 
ors. This continues until all 16 
squares have been guessed. To 
start a new game, Break and 
enter RUN. 

How the Program Works 

After the machine is initialized 
by lines 1 and 3, the machine 
lines 5-26 randomly store eight 
pairs of numbers, one through 
eight, in array L(1) through L(16). 
Array C(1) through Q8) keeps 
track of how many times each 
number is used (Fig. 2). When a 
random number between one 
and eight is generated, lines 9 
through 14 check to see how 
many times that number has 
been used. If it is less than 
twice, that number is stored in 




PLAYER COLOR 
BLOCK 



Fig. 1. CRT Display at Beginning of Game. 
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You've Got 



TOTAL ACCESS 



( specializing In meo •> 



Rose 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



iv'e got 




* DISK DRIVES 




TA400 (40-T) 


. . . $289 


TA800 (80-T) 


..$419 


TA400 Flippy 


$319 


TA800 Flippy 


. ..$439 


TA400-2 Dual Head 


.. .$439 


TA800-2 Dual Head. . . . 


...S549 


* CABLES 




2-Drive 


.523.95 


4-Drive 


. . S33 95 


Extender Cable 


..S14.95 


* BARE DRIVES 




TA400B 


.... S259 


TA800B 


.... S389 


TA400B Flippy 


. ...S289 


TA800B Flippy 


.. $409 


* EPSON PRINTERS 




MX80 


. $475.00 


MX80 FT 


. S589.00 


MX100 


. S799 00 


Parallel Cables 


.529.95 


■ Delivery slow on some models 




* OPERATINC SYSTEMS 




TRSDOS2.3 Disk & Manual. 


..S17.95 


LDOS 


. S129.95 


NEWDOS 80 


. 5129 95 


DOSPLUS 3 3. 3. 3D 


.S89.95 


* IRON 




Disk Drive Power Supply. 




Single 


S37 


Disk Drive Case (silver) 




and Base 


519 


Memo rex Diskettes (bx of 10> 




S25 



30 Clay warranty on DRIVES. Acid S5 00 freignt oer 
drive in Cont JS UPS COD charge Si SO There is. use 
a 15 day free trial on TA drives if not completely 
satisfied ill refund your money iless shipping) Ml 
take exception to improper use or mishandling 



* RADIO SHACK COMPUTERS 

26-1061 Mill. LI. 4K S595 

26-1062 Mill. LII.16K 5850 

26-1065 Mill, 48K, 1 Drive S1695 

26-1066 Mill. 48K-2 Dr-RS232. $2150 

26-4002 Mil, 64K, 1 drive S3299 

26-3501 Pocket Computer. . . . $185 

• PERIPHERALS - MOdel I, II, III 

26-1 140 OK Exp. interface S255 

26-1140 witn 16K Mem. testedS305 
26-1140 With 32K Mem. testedS355 

26-1145 Ml RS232 W/cable $85 

26-1148 Mill RS232 W/cable S95 

26-1 172 D.C. Modem 1 5135 

26-1173 D.C. Modem II. AutoAns. 

S169 

26-1206 CTR-80 Recorder 551 

26-4150 Mil 8.4M Hard Disk. . . S3820 

26-4151 MM Hard Disk -2 S2970 

16K Memory, 200nsec, Guar. lyr. . . 
$29 



The complete line of Radio Shack products is 
available through ta with standard RS limited 
warranty Call me for price and delivery. Just 
cause you don t see it don t mean we am t got it. 

ROSE 



* OTHER PRINTERS & ACCESSORIES 

26-1158 Daisy Wheel II S1694 

26-1455 Acoustic Cover $339 

26-1447 Tractor Assy S249 

26-1448 Sheet Feeder $1275 

26-1165 Line Printer V $1581 

26-1166 Line Printer VI 5986 

26-1167 Line Printer VII S339 

26-1168 Line Printer VIII S679 

26-1191 Flat Bed Plotter S1695 

26-1195 Digitizer S379 

AINJADEX DP-9500, 9501 $1295 

NEC 7730 Spinwriter, 55cps. . 52484 
Daisy Wheel Printer. 45cps $1779 

Tractor for above $237 

Sheet Feeder for above $1250 

26-1 308 Printer Stand 588 

26-4302 Printer Stand 5129 

26-1401 or 4401 Printer cable. .532 

* NEC COMPUTERS 

PC-8001A Keyboard & Processor. . . 

$1099 

PC801 1 A Expansion unit $699 

PC-8031A Dual Disk Drive UnitS1099 
PC-8041A Green Phospher Monitor 

5225 

PC-8043A HighRes Color Monitor. . . 

5925 

13 Color Monitor $381 



ROSES 
SPECIAL 
OF THE 
MONTH 

• AEROCOMPS * 

ALL NEW 

double density 
controller 

ddc" $149.95 

Heres a Double Density Controller for 
Mod. 1 that does away with all those data 
separation problems that seem to keep 
cropping up! Rose wouldn t fun ya now, 
would she? Don t be scared of Double 
Density any more. AEROCOMP has design- 
ed some advanced circuitry that even I 
don t understand - Put i do know it 
works. Better order now Quanities are 
going to be a bit short. 

$189.95 complete 

with Dosplus 3.3D. 

how many do you 

want? 12? 



YEAR END 

COLOR COMPUTER 

SPECIALS 

26-3001 4K Color Computer. . . . $323 

26-3002 16K Ext. BASIC C C $485 

26-3003 32K Ext. BASIC C C $566 

26-3010 13 Color Video 5323 

26-3022 Disk Drive -0. complete. . . . 

S485 

26-3023 Disk Drive -1. complete. . . . 

S323 

26-3008 Joysticks, pair $21 



* RADIO SHACK SOFTWARE 

I have most all R. S software instock 
and it can be yours at 15 % off the 
R 5 retail price. Call me for the 
latest availibility. 

DOUBLE DENSITY 
DATA SEPARATOR 
FROM AEROCOMP 
$49.95 

If you own a PERCOM DOUBLER A ' DOUBLER 

ii ' or LNDOubler • ■ uognde it with me DOS 
Plugs ngnt in \o more lock-out' voli deserve 
one of these- 

ORDER NOW! 
TOLL FREE 
800-527-3582 

Write or call ROSE TOLL FREE at 
1-800-527-3582. Texas residents call 
214-234-1770. Please use the toll 
free lines for orders and literature 
requests only. Technical help or ser- 
vice use the Texas line. You pay by 
visa or mastercard, you can send 
check or money order (allow a cou- 
ple of weeks for personal checks to 
clear) or order COD (we ship CODS 
cash, certified check or money 
order only). 25% deposit required 
on all COD orders. Rose will take 
Americanmoney in just about any 
form. Add freight (UPS where possi- 
ble) on all orders under S1000. if you 
buy S1000 or more Rose eats the 
freight! Texas residents cough up 
5% sales tax. Allow 2-4 weeks for 
delivery, order today - I need the 
money! 

TOTAL ACCESS 

P.O. BOX 3002 
RICHARDSON, TX 75080 

214-234-1770 »* 



" Trademjrk of PERCOM DATA CO ' "Trademark of lnw ' TRS80 & Radio Shack are trademarks of Tandy Corp copyright 198 1 TOTA;. ACCESS 



►-See List ot Advertisers on page 4 18 
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the next location in array L The 
position is array C correspond- 
ing to the number chosen is in- 
cremented by one. This contin- 
ues until all 16 positions in array 
L are filled. 

For example, when A equals 
1, line 7 generates a random 
number, 3. Line 10 checks to 
see if T equals 3. Since T is 1 
there is no match. Line 12 ex- 
amines the contents of the first 
position in array C, that is, C(1) 
to see if it is over 2. Since C(1) 
equals we go to line 14. T is 1 
so we branch back to line 9. 

When T equals 3 we have a 
match in line 10. Now C{3) is in- 
cremented to 1. Line 12 now 
checks to see if C(3) is greater 
than 2. Since it isn't, we go to 
line 14 and back to 9. This con- 
tinues until T equals 8. When 
this happens, L( 1 ) is set to 3 and 
line 18 sends us back to 5 to in- 
crement A to 2 and start this 
process again. The third time 
the random number is 3, line 10 
sets C(3) to 3. Line 12 then sets 
C(3) back to 2 and branch to line 
7 for a new random number. 

Lines 20-36 draw and 
number the grid of four-by-four 
yellow squares. Lines 38-42 set 
Q which is the color (3 or 8) for 
the two players. It is used to 
color the player indicator block, 
and in line 92 to color the 
squares after a correct guess. 

A two-digit number is input in 
lines 46 through 54. The number 
is checked to be certain that it 
is between 01 and 16, that it has 



not been guessed previously 
and that guess one is not the 
same as guess two. Lines 
66-82 display the pattern as- 
signed to that number by array 
L in that block (Fig. 3). The pro- 
cess is repeated for the second 
guess. 

If the two blocks match, the 
array L blocks for these two 
numbers are set to zero and the 
blocks are colored Q by lines 
84, 90 and 92. If there is no 
match, then Q is changed to the 
other player in line 86. and the 
whole guess input procedure is 
repeated starting in line 88. 

If there is a match, lines 96 
through 100 check to see if all 
blocks in array L are zero. If 
they are not, the program 
returns to line 40 to begin the 



Array C 




A(6) 



A<7) 



A(8) 



A(12) 



A(13) 



A(14) 



A(15) 



A(16) 



qi) 


1 


Q2) 


2 


q3) 


2 


q4) 


1 


Q5) 


1 


C<6) 





C<7) 


1 


C<8) 






Fig. 2. Contents of Arrays Half 
Way through Loading. 




CYAN 






BUFF K[} BUFF MAGENTA MA6ENTA 



\ RED 

MM 



-BUFF 



guessing again. If all blocks 
have been guessed, Game 
Over! ! is indicated on the screen 
and a tone sounds. 

Line 150 is the tone for an in- 
correct guess. Subroutine 200 
returns the two blocks back to 
yellow. Subroutine 300 colors 
or clears the blocks required. 
Data lines 400 through 430 
store the starting locations for 
the sixteen blocks. The rest of 
the data stores the patterns for 
the eight different blocks. 



This program uses up the 
memory available (less than 
2.4K). There may be 50 bytes 
left if you are very careful not to 
waste any when loading Color 
Squares. There was just no 
space for remark statements, 
so you'll have to refer to this ar- 
ticle to find out what the pro- 
gram is doing. 

So there it is. a colorful game 
for two players that will run on a 
TRS-80 Color Computer with 
only 4K of RAM. ■ 



Fig. 3. Patterns for the Eight Number Pairs. 
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Program continued 
48 A$=INKEY$ 
50 B$=B$+A$ 

52 IF LEN(B$)<>2 THEN 48 
54 A=VAL(B$) 

56 IF A<1 OR A>16 THEN 150 
58 IF L(A)=0 THEN 150 
60 Y=1:D(C)=A:E(C)=L(A) 
62 IF D(1)=D(2) THEN 150 
64 SOUND 120,6 
66 GOSUB 300 

6 8 RESTORE: FOR Z=lTOA:READ L,T:NEXT Z 
70 RESTORE:FOR Z=1T032:READ M:NEXT Z 
72 FOR Z«1T0( (L(A)*15)-15) :READ M:NEXT Z 
74 FOR V«T TO T+5 STEP 2 
76 FOR H=L TO L+9 STEP 2 
78 READ M:SET(H r V,M) :SET(H+1 ,V,M) 
80 SET(H+l r V+l,M) :SET(H,V+1,M) 
82 NEXT H f V: RESTORE: NEXT C 
84 IF E(l)OE(2) THEN GOSUB 200 ELSE 90 
86 IF Q«3 THEN Q»8 ELSE Q=3 
88 SOUND 180, 6: GOTO 40 
90 FOR C=1T02 

92 A=D(C) :Y=0:P«Q : GOSUB 300 
94 NEXT C:L(D(l))*0:L(D(2))-0 
96 FOR A=lT016 
98 IF L(A)<>0 THEN 40 
100 NEXT A 

102 PRINT§234,"GAME OVERI1"; 
104 FOR C=1TO10: SOUND 80,2 
106 SOUND 120, 2: NEXT C 
108 GOTO 108 
150 SOUND 1,5: GOTO 46 
200 FOR Z=1T02 

205 Y=0:P=2:A=D(Z) :GOSUB 300 
210 NEXT Z: RETURN 

300 RESTORE:FOR X=lTOA:READ L,T:NEXT X 
310 FOR H=L TO L+9: FOR V=T TO T+5 
315 IF Y=l THEN RESET(H,V) ELSE SET(H,V,P) 
320 NEXT V,H:RETURN 
400 DATA 2,0,18,0,34,0,50,0 
410 DATA 2,8,18,8,34,8,50,8 
420 DATA 2,16,18,16,34,16,50,16 
430 DATA 2,24,18,24,34,24,50,24 
440 DATA 0,2,2,5,2,2,2,5,2,5 
450 DATA 2,2,2,5,2 
460 DATA 2,6,2,6,2,2,2,6,2,2 
470 DATA 2,6,2,6,2 
480 DATA 5,7,7,7,5,5,7,5,7,5 
490 DATA 5,7,7,7,5 
500 DATA 5,5,4,5,5,4,4,4,4,4 
510 DATA 5,5,4,5,5 
520 DATA 7,5,5,5,7,7,7,7,7,7 
530 DATA 7,5,5,5,7 
540 DATA 2,2,6,2,2,2,6,7,6,2 
550 DATA 6,2,2,2,6 
560 DATA 7,2,7,2,2,2,7,2,7,2 
570 DATA 2,2,7,2,7 
580 DATA 4,5,5,5,4,5,4,5,4,5 
590 DATA 5,5,4,5,5 
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DISPLAYED VIDEO IS DRIVING 
DOWN PRICES ON DISKS 

DISPLAYED VIDEO l« now offering TRS-80* MODEI III with disk drives, on of t\w 
most reliable disk drive systems « ,n 'be market, (or im ndihlv low prfi »•>'' 

MODI I III with 4KK ram. dual 80 track double-density ditk drives, romplele. 

PLUG IT IN AND GO $2,275 

MODEL III with 48K ram. dual 40 track double-density disk dm.v < omplete. 

PLUG IT IN AND GO $ 1 .875 

Disk Drive*: Includes case and power suppK' 

40 track disk drive $289 

80 track disk drive $395 

80, 80 track disk dnvr $520 

Disk Drives: Not hk hiding case and power supply 

40 track (bare) disk drive $250 

B0 trai k (bar*) disk drivr $345 

k«i SO (rack (barel disk drive $450 

Drive Case* and Power Supplies: 

5^ inch sln<|U' dm t unit and power supply $ 80 

5Vi inch dual drive unit and power supply $110 

8 inch single drivR unit and power supply . $140 

16K RAM Memory Chip (200 NS) $1 .95 each 

TNS-80' MODEL III 16K $839 

MODEL III Internal Drive Kit: Iik -hides controller board, dual drive mounting brncket. 
dual power supply, all hardware, cables and connectors $410 
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IMMEDIATE DELIVERY 

90 Days Parts and Labor Warranty 

Dealer inquiries Invited 




Displaced Vidro 

7538 |jckson Road 

Ann Arbor. Michigan 48 Mil 

; I IV I2n -.081. 



►■» x 



To Order Call (313) 426-5086 «»r (313) 482-4124 or write DISPLAYED VIDEO. 
7538 Jackson Road. Ann Arbor. Mm RtfRR 48103 
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CONSTRUCTION 



Give 16 karats to all your contacts. 



A Gold-Plated 80 



George W. Martin 

Box 433 

Hatch, NM 87937 



My TRS-80 is over two years 
old and the tarnishing of 
the contacts on the interface 
unit has always been a problem. 
Often a program goes into a tail- 
spin, or it locks up. Cleaning the 
contacts on the interface unit 
usually clears the trouble for a 
short while. 

These solder-coated con- 
tacts tarnish over a period of 
time and form a bad contact. 
The contact surfaces on the 
plugs are gold plated, so why 
not gold plate the contacts on 
the printed circuit board? 

The usual method of plating 
is to immerse the article in a 
plating solution and pass an 
electric current from the gold 
anode, but the printed circuit 
board the size of the one in the 
interface is a little large to get 
302 • 80 Microcomputing, December 1961 



into a tank that is usually 
available for gold plating. 

On the market there is a 
brush-on gold or silver-plating 
device, which a number of 
jewelers have. It can be pur- 
chased for approximately $80, 
or you could find a jeweler who 
has one and will do the job for 
you for a great deal less. 

Making Your Own 

The other alternative is to 
make your own plater, and that 
can be accomplished as fol- 
lows. Purchase a small artist's 
brush with a nice round body '/, 
to %-inches in diameter. Go to 
your local jeweler and purchase 
a small piece of pure gold about 
3/16 by 1/32 by 1/2 inch. Sol- 
der a connecting wire to this 
small piece of gold and bury it 
in the bristle of the brush so it is 
completely covered. At the 
same time you purchase this 
gold, get about an ounce of 
24kt gold-plating solution. (Use 



caution, this is deadly poison. 
Wash your hands thoroughly 
after using this solution.) 

The other items you will need 
are: a six-volt battery and two 
pieces of #18 stranded in- 
sulated wire about 24 inches 
long. Attach a wire from the 
positive terminal of the battery 
to the wire previously soldered 
to the gold. Remove the insula- 
tion from another wire at both 
ends for about a half inch and 
solder one end to the negative 
terminal of the battery; the 
other end of this wire goes to 
each contact on the printed cir- 
cuit board that you are going to 
plate. 

Thoroughly clean the con- 
tacts on the P.C. board until 
they are bright by using a pencil 
eraser. Now hold the wire from 
the negative terminal of the bat- 
tery to the P.C. board contact 
and dip the brush in the plating 
solution. Start brushing the 
contact. You will see that it will 



gradually become plated with 
pure gold. Be careful not to let 
the anode buried in the brush 
touch the contact you are work- 
ing on. The cyanide in the 
plating solution will also have 
a tendency to clean the P.C. 
board contacts as you plate, so 
if the terminals are bright and 
clean when you get through rub- 
bing with the eraser, no prob- 
lems should develop. 

I have found it necessary to 
remove the P.C. board from the 
interface unit in order to do this 
job properly, and you will be 
breaking the warranty if your 
unit is still under the 90-day 
period. 

The result of this is a machine 
that has its dependability in- 
creased 100 percent— no more 
crashing programs when they 
have been left in the machine for 
two or three days. 

If you have trouble finding the 
24kt. gold or solution I can put 
you in touch with suppliers. ■ 
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O ft M SOFTWARE ,*»* 
1610 SOUTH 97TH 
TACOMA WASHINGTON 9944*i 



aooottoocoooooi 



WHEN OUR PROGRAMS 
TALK PEOPLE LISTEN 



FREE COMPUTER 

CATALOG 

UPON REQUEST 



PHONE JOft-J3 7-1155 

flQCl OO O OOOOOOtt 



V*VV'.VV*fe*VVV*'M!, 

CROSS REFERENCE DICTIONARY 

The largesi itruwvr cross reference manual for use *. i • 
TRS SO Vntrp Svmiesi/er No need lo spend more long hours 
earning another computer language Want ycvr computer to say a 
Aixo> Look up tne Entjhsh spelling Right n««i io H you N find the 
phonet.c spell r« t*ei rot* sy-ni>-ewer need* to *a> it conectry 
'Pduded s a large I »t o» con-nonh used p-o">et cHy spelled 
ohrases and sentences ready 10 type mto your program rviljafe 
as a t<me savng daw • 

SAILING SEE (A 3 PART PROGRAM) »1« 86 

The computer administers a lesson consisting of ten words When 
the student has learned them he is given an oral gun m true spelling 
bee fashion When the lesson tss been completed stuoeni may 
advance to new lesson The program is structured so that a~ jo- 
lirmted number o* leteons can be gved with D'oo/es-veiy greater 
degrees old>Hir u ity Esceilem for any grade o» age level Includes ten 
sample lessons ol ten words each The second part of the program 
allows one to create his own spelling lessons on cassette li 
needed ftembility A third pari enables one to practice creat 
worde u»mg the p»onet c spellings needed bv the svntnesie 
trapped and bug free 

MOO 1 16*1 I 

iposooooooooooooooooocoooiooooog 




THE BOOKKEEPERS 



FOR INFO CALL (6031-447 2745 



Ann Rose, our Accounts Receivable Clerk— 

48K. 2 Drive* Printer SI 50.00 

The Count— A variety of utilities such as weight, area and capacity conversions 
ban amortization; hex code conversion, etc 

•WK disk $49.95 

All programs air lor TRS**rTV Mnddl \ „ [| 

STURDIV ANT & DUNN, INC. •" 
BOX 277, 124 WASHINGTON ST., CONWAY, N.H. 03818 

flXs*: » .1 nfcsiark rf tr Tan* tirp. 



MIRA GE S OFT WA RE 

VAi\ a^I&i|Hi^jynifi 
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TOR YCX'R 10OEL 1/3 n K) 
WB PROVDLY PRESENT 



rno challehgm series 
flconomi c iiaj.'rt j on« ) 

fioaa.i Conjuost 
Attack of t/ie fetj 
ftJeaeter at Scalab 
Timo for efle Sheriff 

$14.95 each (cassette? 

A\D. .. 

riGKTt* m...l faee-eaced 

arcade gene wufi eound. 

Me'.ffJ for mach. lar<j. cassette 

CHICKS OR MOSEY ORDERS ACCEPTED. 
CIALE1 !\gillRI»> \R| WElCOHfc. 



Mirage Software ^23S 
Suite 306-70 
1430 Mate. Ave. 
Ca.-abrid.ae, Mesa. 02131 
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It's your choice: 

do it the hard way, or 
get the Information you need from 




THE B00K 



VOLUME 
I &II 



VOLUME I 

The most complete book yet 
on the math routines ol the 
BASIC ROM. Models I & III 
Contains a wealth ol detail 
about Integer, single and dou- 
ble precision formats, advanc- 
ed math, data manipulation. 
and assembly language inter- 
facing, with examples In- 
cludes commented listing 
(0708H-t607H). plus a highly 
detailed map of the ROM and 
reserved RAM 



Comprehensive Guide to TRS-80* Assembly Language Routines 

Each Volume Priced At $14.95 Plus $1.50 ShlppingrHandlmg 
VA residents add 4% tax • Foreign: aend U.S. funds, add $4 ea. for overseas delivery 

'T-aiar-arii c ^anOr ZotQ 



.- T • 



INSIDERS SOFTWARE CONSULTANTS, INC. 
P.O. Box 7066. Dept. SUM3 • Alexandria, VA 22307 

Please send THE BOGK. J Volume I '3 Volume II 

Name 

Address 

Ctly 



State 



Zip 



Enclosed % 1 cnack D M.O. foe $ _ 

Owirje to fry I VISA I MasterCard Bar* Cod* 

Exo date Card No 

Signa'ure 



VOLUME II 

Packed full of useful informa- 
tion on the model I Input; 
output routines, with de- 
tailed listings to illustrate the 
commented source code 
Learn to control and 
manipulate the keyboard, 
video, printer port, and 
cassette port. Essential for 
assembly language program- 
mers, you can write voir own 
routines or use fhe many pro- 
gramming examples included. 



k See Litt oi AeVenviers or aapa * i$ 
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Tape users, take 150 bytes out of your reserved RAM. 



The Freebie 



John C. Adams, Jr. 
208 Kay wood Avenue 
Tullahoma, TN 37388 

All non-disk Level II Basic 
owners, take heed: 150 
bytes of unused RAM in the re- 
served portion of memory can 
be "freebie" storage locations, 
freely PEEKed and POKEd from 
Level II Basic programs. These 
memory locations are only used 
by the Disk Operating System 
and Disk Basic for the real time 
clock, Debug, interrupt process- 
ing, and jump vector commands. 
If you own a Level II Basic 
TRS-80 running cassette tape 
for program storage, we have 
good news for you. 

Background 

The free RAM is at memory 
locations 403EH-407FH (a total 
of 66 bytes) and 4152H-41A5H 



(a total of 84 bytes), a combined 
total of 150 available bytes of 
storage. Level II Basic assumes 
that locations 403EH-407FH 
store Disk Operating System in- 
formation concerning the real 
time clock, interrupt processing, 
and Debug while locations 
4152H-41 A5H contain a total of 
28 command (jump) vectors for 
Disk Basic. In a disk-based sys- 
tem these command vectors are 
filled with jumps to Disk Basic, 
but in a diskless system the lo- 
cations are filled with jumps to 
012DH, causing L3 ERROR on 
the video screen. The Reset but- 
ton at the left rear of the 
keyboard has no effect on infor- 
mation stored in these loca- 
tions. 

When a major wipe-out re- 
sults in the Memory Size? 
prompt all information in loca- 
tions 403EH-405CH and 4152H- 



"If you own a Level II Basic 

TRS-80 running cassette tape 

for program storage, we have 

good news for you." 



41A5H will be lost upon press- 
ing the Enter key. However, any 
information stored in locations 
405DH-407FH is preserved; 
these 35 bytes are permanently 
protected! 

Examples 

Program Listing 1 shows a 
Level II Basic program POKEing 
the Z80 machine language rou- 
tine Simple Debounce (Septem- 
ber 1980, 80 Microcomputing, 
Page 13) into permanently pro- 
tected memory locations 4061 H- 



10 CLS : DEFINT I-M : PRINT "LOADING SIMPLE DEBOUNCE (80-MICROCO 

MPUTING, SEPT. 1980, P. 13)" : PRINT "INTO RESERVED RAM AT MEMOR 

Y LOCATIONS 4061H - 407FH" 

20 POR ML > 16481 TO 16511 : READ I : POKE ML, I : K = K + I : NE 

XT ML 

30 DATA 33,106,64,34,22,64,195,114,0,17,128,56,33,53,64,203,3,24 

8,44,26,17 4,40,248,6,5,205,96,0,195,227,3 

40 PRINT : IF K <> 2706 THEN PRINT "ERROR IN READING SIMPLE DEBO 

UNCE INPUT DATA «> BUG": STOP ELSE PRINT "SIMPLE DEBOUNCE 

LOADED «> ENTER / AFTER *? TO ACTIVATE" 

50 POKE 16607,97 : POKE 16608,64 : SYSTEM 

Program Listing 1. 



407FH. The System command 
(see line 50) activates the pro- 
gram starting at location 4061 H; 
the program patches its starting 
address (406AH) into memory 
location 4016H and jumps to 
Level II Basic ready. Press Reset 
or enter System followed by /0 to 
destroy the program; then PEEK 
memory locations 4061 H-407FH. 
The program is permanently 
protected. However, the pro- 
gram starting address (406AH) 
must be repatched into memory 
locations 4016H-4017H as 
these locations are reset to 
03E3H during system initializa- 
tion. Simply reenter line 50 using 
the Command mode, i.e.: 

POKE 16607,97: POKE 16608, 

64:SYSTEM 
and enter / after *? to re-activate 
the program. 

Freebie memory in conjunction 
with machine language program- 
ming is illustrated in Program 
Listing 2. Here the KBEEPFIX 
Z80 machine language program 
(February 1980. 80 Micro- 
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4152 
4152 
4155 
4158 
415B 
415E 
4161 
4163 
4164 
4165 

4166 
4168 
4169 
416A 
416B 
4160 
416E 
4170 
4172 
4173 

4175 
4176 
4177 
4179 
417B 
417D 
417E 
4181 
4182 
4183 

4185 
4188 
4189 
41 8C 
418E 
4190 
4191 
4194 
4195 
4196 

4197 
419A 
419D 
419E 
419F 
41A0 
41A1 



••Iff 
Mill 

00120 
00131 
00140 
00150 

00160 
00170 
00180 
00190 



215B41 

221640 

C37200 

213640 

010138 

1600 

0A 

5F 

A3 

201A 
77 

14 
2C 

CB01 
79 

D680 
20F1 
00 
0607 

2D 
86 

10FC 

FE00 

3E00 

C0 

321A40 

C9 

A6 

2810 

3A1A40 

3C 

321A40 

FEFF 

20D9 

3D 

321A40 

7B 

73 

C5 

010002 

CD6000 

CI 

0A 

A3 

C8 

C33E40 



RESERVED 



RAN 



KBEEPPIX 



403E 
403E C5 

403F E5 

4040 F5 

4041 0640 
4043 3A3D40 
4046 E6FD 

4048 67 

4049 F602 
404B 6F 
404C 7D 
404D D3FF 

404F 7C 

4050 D3FF 

4052 C5 

4053 0640 
4055 10FE 

4057 CI 

4058 10F2 
405A Fl 
405B El 
405C CI 
405D C3FB03 
4152 



* REFERENCE: "KBEEPFIX" BY DENNIS KITS* 

* 80-MICROCOMPUTING, FEBRUARY 1980, 

* PAGES 14 THR00GB 15, WITH 

* CORRECTION IN 80 -MICROCOMPUTING, 

* APRIL 1980, PAGE 9. 



00200 

00210 KBEEPF 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 



JUMPl 



00300 

00310 

00320 JUMP2 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 JUMP3 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 JUMP4 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 JUMP5 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 ; 

00680 

006 90 CONT 

00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 

007 80 JUMP6 
00790 

00800 

00810 

00820 

00830 

00840 JUMP7 

00850 

00860 

00870 

00880 

00890 

00900 

00910 



ORG 

LD 
LD 
JP 
LD 
LD 
LD 
LD 
LD 
AND 

JR 

LD 

INC 

INC 

RLC 

LD 

SUB 

JR 

NOP 

LD 

DEC 
ADD 
DJNZ 
CP 

LD 

RET 

LD 

RET 

AND 

JR 

LD 

INC 

LD 

CP 

JR 

DEC 

LD 

LD 

LD 

PUSH 

LD 

CALL 

POP 

LD 

AND 

RET 

JP 

ORG 
PUSH 

PUSH 

PUSH 

LD 

LD 

AND 

LD 

OB 

LD 

LD 

OUT 

LD 

OUT 

PUSH 

LD 

DJNZ 

POP 

DJNZ 

POP 

POP 

POP 

JP 

END 



4152H 

HL,415BH 

(4016H) ,HL 

0072H 

HL,4036B 

BC,3801H 

D,00H 

A,(BC) 

E,A 

E 

NZ,JUMP4 
(HL),A 
D 
L 
C 

A,C 
80H 
NZ, JUMPl 

B,07H 

L 

A,(HL) 
JUMP3 
00H 
A,00H 
NZ 
(401AH) ,A 

(HL) 

Z,JUMP5 

A, (401AH) 
A 

(401AH) ,A 
0FFH 

NZ r JUMP2 
A 

(401AH) ,A 
A,E 
(HL) ,E 
BC 

BC,0200H 

0060H 

BC 

A,(BC) 

E 

Z 

CONT 

403EH 
BC 

HL 

AF 

B,40H 

A, (403DH) 

0FDH 

H,A 

02K 

L,A 

A,L 

(0FFH) ,A 

A,H 

(3FFH) ,A 

BC 

B r 40H 

JLMP7 

PC 

JUMP6 

AF 

HL 

BC 

03FBH 

KBEEPF 



Program Listing 2. 



computing, pages 14 and 15, 
and April 1980, 80 Microcom- 
puting, page 9) is assembled in- 
to memory locations 4152H- 
41A3H and 403EH-405FH. The 
jump command beginning at 
memory location 41A1H jumps 
to 403EH and patches the two 
portions of memory together. 

Store machine language utili- 
ty routines in these 150 free 
bytes, and save reserved memo- 
ry for other uses. 

Homework 

Convert the machine language 
version of KBEEPFIX given in 
Program Listing 2 to a Level II 
Basic program which POKEs 
the KBEEPFIX routine into pro- 
tected memory locations 16722- 
16803 and 16446-16479. (See 
Page 15 of SO Microcomputing, 
February 1980), for an example. 
Note that 16722 = 4152H. 
16803 = 41 A3H, 16446 = 403EH, 
and 16479 ■ 405FH. Brush up on 
your hexadecimal to decimal 
conversions or use Appendix G 
of the Level II Basic Reference 
Manual, Second Edition. ■ 




ZIP UP YOUR 
, MODEL I 



SPEEO-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times faster. It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed - no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z80B microprocessor and delay line - not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keyboard power-on light changes color to indicate operating 
speed. 

$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen for a much easier to read presentation. 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only 
Assembled. 

$24.00 



"SATISFACTION GUARANTEED" 



Add S2.00 postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

(916) 635-5408 

Dealer inquiries invited 



*• See List ol Advertisers on page 4 18 
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One user analyzes if Apparat's latest evolution is worth the money. 



NEWDOS/80 



Ken Jackman 

West Chester State College 

West Chester, PA 19380 



NEW DOS/80 retains all of the 
functions of NEWDOS + , 
so users who have become ac- 
customed to the latter can cer- 
tainly use the new system. 
Some of the programs have 
been revised, and several new 
programs or functions have 
been added. However, the major 
changes lie in new sophisti- 
cated file formats and methods. 
One other aspect of the program 
appears to be for the sophisti- 
cated programmer: the price! 
One hundred and fifty dollars 
does require some justification. 
Briefly, for those not familiar 
with NEWDOS or NEWDOS + , 
these systems cleaned up a lot 
of the bugs in Tandy's DOS. In 
addition, they provided utility 
programs that worked! You 
could junk Radio Shack's Tape- 
Disk, because LMOFFSET did 
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the same job, but did it right! A 
directory check program was 
included which could warn the 
unwary TRSDOS user of im- 
pending crashes due to direc- 
tory overwrites— the first really 
good preventive diagnostic 
routine I've seen. A disassem- 
bler and editor/assembler were 
included for the Assembly lan- 
guage programmer, and for the 
Level I user, two programs per- 
mitted the use of Level I terms 
in Disk Basic, and storage on 
the disk. Superzap, the Basic 
language disk editor was really 
the first disk editor. Finally, 
Basic was enhanced with its 
own renumbering utility and a 
utility to list references to line 
numbers and to variables used 
in the program. 

DOS Commands 

NEWDOS/80 includes all of 
the functions of NEWDOS and 
NEWDOS + though some of 
them have been changed some- 
what. Let me list the additional 
functions in the DOS: 



• Break permits enabling or 
disabling the Break key from 
the keyboard. 

• Chain, like Randy Cook's 
VTOS command, permits 
building a file of commands 
which can be executed by call- 
ing the file from DOS. 

• HIMEM sets memory size 
from DOS. 

• MDBORT. MDCOPY. MDRET 
are commands which can be ex- 
ecuted from Minidos. 
MDBORT returns the user from 
Minidos to DOS. 

MDCOPY permits a restricted 
file copy function. 
MDRET returns the user from 
minidos to the main program. 
Program execution picks up 
where it left off. 

• PDRIVE lets the user specify 
the characteristics of each disk 
drive. This command permits 
the programmer to mix 50 and 
77 track drives and to mix five- 
inch disks with eight-inch 
disks. It even permits the use of 
the OMIKRON interface with 
eight-inch drives. Plans to pro- 



vide for utilizing the LOBO in- 
terface have evidently been 
dropped. Although provision is 
made for several different drive 
types, only a few have actually 
been implemented. Space is re- 
served for the additional 
entries. 

• System doesn't load machine 
language tapes! It does a mini 
SYSGEN, similar to those done 
on much larger systems. Pass- 
words may be enabled or disa- 
bled; the system can be set to run 
only; and the screen-print option 
Debug, and entry to the Mini- 
dos can be enabled or disabled. 
This function can tell DOS if 
lowercase mods have been in- 
stalled, enable or disable the 
Clear key, and perform a host of 
other useful but not so mind- 
boggling functions. 

• Purge, as in VTOS, permits a 
review of the entire disk con- 
tents, file by file, during which 
any of the files may be killed. 

Enhanced Commands 

How about enhancements to 



existing commands? Many of 
the commands which were im- 
proved from TRSDOS get addi- 
tional improvement in NEW- 
DOS/80. 

Careful use of the System 
command can enable or dis- 
able many of the following 
commands. 

Minidos 

First, we should look at the 
Minidos. It can be called by 
pressing D, F and G simultane- 
ously. In Minidos you can ex- 
ecute all of the DOS commands 
except Append, Chain, Copy, 
Format, and the commands. 
System and PDrive. Only DOS 
commands can be executed. 
For instance, you cannot load a 
new program from Minidos. 

Minidos has the advantage 
of permitting the operator to ex- 
ecute most DOS commands in 
the middle of a program, and 
then return to the program in 
progress. In other words, vari- 
ables, string space, and so forth 
are not cleared when a program 
is interrupted. Minidos lets the 
operator decide whether to 
return to DOS (MDBORT) or to 
resume execution of the pro- 
gram (MDRET). 

The Copy command was fair- 
ly complex in NEWDOS +. It 
permitted copying files from 
alien systems like TRSDOS. 
The more elaborate Copy com- 
mands in NEWDOS/80 permit 
copying by file, using the entire 
memory as a copy buffer, speci- 
fying the number of tracks to be 
used, and bypassing the For- 
mat function. It also offers 
several other options which are 
useful in recovering lost files. 

Format has some of the 
same options as Copy. One can 
still specify the number of 
tracks, whether to overwrite old 
data, and which dates, names, 
and passwords to use. Since no 
file copying is done, the param- 
eters controlling file copying do 
not make sense in the Format 
command. 

Debug can be started in the 
usual ways. It can also be 
started by pressing the numbers 
—1, 2, and 3 simultaneously. 

List now permits line num- 
bers to be specified. This has 
always been available in Basic, 
but now it is available in the 



DOS command as well. 

Enhancements to Basic are a 
bit more nebulous. The file de- 
velopment system receives 
special treatment in an ap- 
pendix in the NEWDOS/80 
manual. An operator can no 
longer delete a line by simply 
typing the line number followed 
by a carriage return. Deletion of 
a line requires the use of the 
Delete command. (Delete. Edit, 
List, and Auto can still be ini- 
tiated using only the first letter.) 
Scrolling commands appear to 
be unchanged from NEWDOS + . 
Period, down-arrow, up-arrow, 
semicolon, slash and comma 
still serve scroliing/editing func- 
tions. The Delete commands 
have been increased. In addition 
to the ability to delete a line, it is 
possible to move a line to a new 
location (Dl) or to make a copy of 
the line at a new location (DU). 

Of course, renumbering and 
referencing capabilities are re- 
tained. REF can be used to list 
all references to a given 
number or variable. The listing 
can be shown on the video or 
listed on a line printer. The 
renumbering function permits 
renumbering lines of Basic 
within the program and chang- 
ing the starting line number 
and the increment for line 
numbers. Careful use of this 
capability permits moving 
blocks of program from one 
place to another. 

CMD Command 

The CMD command has been 
modified. NEWDOS has always 
permitted the execution of DOS 
commands through the CMD 
command. In NEWDOS/80, the 
return is to Basic after a CMD 
call unless the call was one of 
the one-letter calls in TRSDOS. 
or 'S = — ' or 'F = — ' is 
specified. In the case of the S' 
command, return is to DOS. The 
'P command can clear the in- 
dices of For... Next loops, either 
selectively or all at once. 
Returns from GOSUBs can also 
be cleared. This variation on 
the CMD command is clearly 
one for advanced program- 
mers, enabling them to get out 
of loops and complex portions 
of the program without leaving 
confusing Nexts or Returns on 
the stacks. 



A Sophisticated System 

How does the operating 
system look so far? The com- 
puter novice (someone who can 
use TRSDOS) could use the 
system. Some of the enhance- 
ments probably would not get 
used. There are enough "bells 
and whistles" in the system 
that even an advanced pro- 
grammer will not use all of 
them regularly. Some of the 
commands look like they are 
imitations of VTOS. The Chain 
command is a good example of 
an aspect of VTOS that is worth 
imitating. Other desirable as- 
pects are missing. The ability to 
redirect output from one device 
to another, or to a file would be 
handy. Autorepeat on the 
keyboard shouldn't be too hard 
to implement either. I suppose 
that a creative systems pro- 
grammer (or some hobby buff 
with time on his hands) could 
use Superzap to install facilities 
for these functions. Maybe Ap- 
parat will provide zaps for them. 
At any rate, they are desirable 
functions not included in this 
DOS. 

The Sysgen functions (Sys- 
tem and PDrive) are a major 
step toward a truly sophisti- 
cated operating system. The 
absence of a sophisticated 
operating system is one of the 
reasons why the home micros 
are still regarded as imprac- 
tical toys by many computer 
professionals. In short, at this 
point, the DOS is a major im- 
provement on the older sys- 
tems, but there is still room for 
growth. 

Utilities 

Any major DOS provides a 
set of utilities for manipulating 
files, cleaning them up, testing 
the system, etc. What does 
NEWDOS/80 have? 

NEWDOS + and NEWDOS/ 
80 both have the DirCheck pro- 
gram that I mentioned earlier. 
DirCheck analyzes problems in 
locked out granules, granules 
which are allocated to more 
than one file, errors in file entry 
tables and GAT tables. Dir- 
Check should be run after any 
and every intensive use of a 
disk. If there are reasons to 
suspect a disk has been zapped 
magnetically or electrically, the 



diagnostic should be run. This 
program does not repair the 
damage— it simply lets you 
know where it is! 

The new version of SUPERZAP 
has more commands, and is writ- 
ten in machine language so it 
runs faster. It can read or write 
to any unprotected sector of 
the disk. Any program with that 
kind of power is also potentially 
dangerous, so the novice should 
practice with disks he can af- 
ford to clobber before under- 
taking major modifications. 

Other utilities present in both 
versions, as indicated before, 
are LMOFFSET to permit load- 
ing of machine language tapes 
to disk; the debugger, of course; 
the disassembler which per- 
mits disassembly of either 
main memory or a file on disk; 
and the Editor/Assembler. It is 
worth noting that older ver- 
sions of NEWDOS required the 
user to have a copy of TRSDOS 
and Radio Shack's Eaitor/ 
Assembler package. This is no 
longer the case for the DOS but 
remains the case for the Editor/ 
Assembler. 

Other utilities on both sys- 
tems permit running Level I pro- 
grams and loading or saving 
them on disk. Level I data files 
are not accessible from these 
programs. 

Extras 

In addition to the utilities and 
files on NEWDOS + , NEWDOS/ 
80 has a couple of extras. 
ASPOOL, according to Apparat. 
was added at the last minute 
"as a free program to NEWDOS/ 
80 owners." The program was 
written by H. S. Gentry, ac- 
cording to Apparat, but no refer- 
ences are given to where (or if) it 
was published. This spooler is 
not a very elegant system, but it 
does work. It will let the key- 
board take precedence over the 
printer in user-defined inter- 
vals, provided the keyboard is 
active. That is, if the keyboard 
is inactive for a user defined 
period of time, the spooler will 
print a line. As long as the 
keyboard is not active, the 
spooler will continue printing. 
As nearly as I can tell, the main 
program does not run while the 
spooler is printing. Rather, the 
spooler "times out" after each 
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RS204 



Attache style cases for carrying and protecting a complete computer set-up. 
Constructed ol the highest quality luggage material with saddle stitching Will 
accommodate equipment in a fully operational configuration along with 
manuals, working papers and disks. Never a need to remove equipment 
from case Simply remove lid. connect power and operate Lid can be 
replaced and locked for security and protection without disconnecting 
cables Fully tested 

• RS201 TRS-80 Model I, Expansion Unit & Drives . . $109 

• RS202 TRS-80 Monitor or TV set 84 

• RS204 TRS-80 Model III 129 

• RS205 Radio Shack Color Computer 89 

• P401 Paper Tiger 440 445 460 99 

• P402 Line Printer II IV 89 

• P403 Epson MX70 or MX80 89 

• P404 Epson MX1 00 99 

• CC90 Matching Attache Case 75 

compter case company ^ ,w 

5650 INDIAN MOUND CT COLUMBUS OHIO 43213 (614) 868 9464 



PIGGYBACK! 




ADD lowercase with our 
PLUG-IN piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 

96 character ASCII PLUS choice of 
128 character APL. TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add $50/set). 
Most printers convertible: specify logic board # 



SYDNEY SEZ: 

Shop Comparatively! 





• m 



Digital Systems Engineering 



12503 King's Lake Drive. Reston VA 22091 (703) 620-2994 

ALSO AVAILABLE: New Centronics and Integral Data Systems printers at 
15-20% bt-iow list also, used pnnters ol several makes Cal for information! 

Maslercard'VISA. Check. MO. PO ah aroducts wa'anleea 90 days 
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keyboard input, and during the 
time-out, the main program can 
run. 

If the keyboard is continually 
active, the spooler is effectively 
locked out and does not print. If 
the spooler uses the interrupt 
(an option), it operates when- 
ever the keyboard is not active, 
i.e. between key strokes. If it 
starts to print, key entry must 
wait until the end of the line. 
The spooler does permit a 
number of options, including 
serial or parallel printers, a way 
to inject an interrupt routine for 
the spooler, and a circular buf- 
fer. I used it in writing this arti- 
cle, but that certainly does not 
constitute a thorough test. 
Perhaps it works better than it 
appears. 

The other new utility program 
is the lowercase conversion 
program. Written by Tom Price, 
this is another program without 
references. It is a machine- 
code program that relocates 
itself into high memory, and 
permits shift to set or reset 
lowercase. It provides the soft- 
ware to accommodate lower- 
case hardware mods. 

Other programs included are 
tutorial in nature. SAMPLE01 is 
a mixed tutorial/program on the 
new filetypes. It is designed to 
be listed as well as run. The 
REM statements provide an ex- 
planation of what is going on 
while the program is running. It 
is designed to be listed on a line 
printer, though I suppose the 
screen would work in a pinch. It 
is a novel approach, but it 
didn't work all that well for me. 
The second program in this 
set is set up the same way, ex- 
cept that the program is run 
after you have studied the REM 
statements. Chaintst explains 
the chaining command and 
demonstrates its capabilities. 
The demo is impressive, though 
the explanation in the REM 
statements is not all that clear. 
The technique is slightly more 
complex than that used in 
VTOS. This version can specify 
section IDs and execution for 
only one section of the chain 
file. It is possible for one chain 
file to call another, or for one 
section of the file to call 
another section, so that very 
complex chaining sequences 
are possible. 



File Types 

What are these new file types 
that threaten to revolutionize 
microcomputing? Apparat has 
added five new file types! The 
old sequential and random files 
still work, so NEWDOS/80 can 
use seven different file types! 
All of these new file types have 
variable record lengths. There 
are basically two new types: 
marked-item files with three 
subtypes, and fixed-item files 
with two subtypes. The major 
difference between them is that 
the marked-item files use the 
first bytes of each item to 
describe it while fixed-item 
files have no such marker. Also, 
marked-item files of variable 
record lengths use the first byte 
of the record to mark the start 
of the record. 

All of the marked-file types 
enable you to keep track of 
where you are in the file and in 
the record. This is done by re- 
quiring extra variables in the 
OPEN, PUT or GET statements. 
Unfortunately, they have had to 
use the same symbols used for 
definition of variable types (!, #, 
$, and %). This adds something 
to the confusion. However, us- 
ing the LOC command, it is 
possible to determine exactly 
where you are within a file. Use 
of the file location symbols in 
PUT or GET statements permit 
reprocessing the same record 
or same byte within a record, as 
well as moving to another 
record (or another byte) at will. 
Building an index file using the 
file location capabilities pro- 
vides for true "indexed sequen- 
tial" access, as well as other in- 
dexed file methods. 

The fixed-item type files are 
probably the easiest to de- 
scribe, although the manual 
describes them as the hardest 
to use. One type is apparently 
the same as the random files in 
TRSDOS. It has a fixed record 
length, defined in the OPEN 
statement, and division into 
subrecords is essentially the 
programmer's problem. The 
other has no record segmenta- 
tion and is treated as a string of 
items. Again, the programmer 
must keep track of subdivisions 
or item lengths. 

In addition to the documen- 



tation in the manual proper, 
Apparat has included a large 
appendix to the manual that 
provides an expanded illustra- 
tion of the file types and how 
they work. This appendix is 
probably the clearest part of 
the manual as far as file 
manipulation is concerned. Ap- 
parat says it was written by one 
of their Denver customers, but 
the author's name is not men- 
tioned. Whoever it was certain- 
ly deserves credit. The appen- 
dix requires building some files 
and examining them with 
Superzap. It would be easier to 
follow had they included the 
output from Superzap in the 
appendix. Altogether, the man- 
ual, the appendix, and the 
SAMPLE01 program provide a 
reasonable introduction to the 
file types, but I wish they had in- 
cluded a brief discussion of the 
purposes for which each type 
could be used. 

Documentation 

Apparat assumes that you 
have the TRSDOS manual and 
other appropriate documenta- 
tion (i.e., the Editor/Assembler 
manual and software). The 
style of writing is not quite so 
terse as it was in the NEW- 
DOS + manual, although it still 
assumes considerable sophis- 
tication on the part of the user. 
It definitely is not on the same 
level as the Level I manual! The 
introductory section describes 
the process of duplicating the 
disk, but warns against trying 
to use the system before study- 
ing the manual. It is advice that 
should be taken seriously! The 
values used in the SYSTEM and 
PDRIVE commands can set up 
ways to overwrite the system 
disk! 

The section on the DOS com- 
mands includes all of the 
library commands, rather than 
just the new or modified com- 
mands, as was the case in the 
old manual. Most of the manual 
is what you would expect it to 
be: discussion of special 
features, enhancements, and 
minimum system configura- 
tion. They have included a 
glossary and a section on how 
to apply patches (zaps) to files 
on thedisk. A significant part of 
setting up and running involves 



application of the patches, 
which are listed and explained. 
They include patches to some 
non-NEWDOS files, such as 
Scripsit and APL/80, for those 
users who have them. Most of 
the patches on my disk had 
already been installed before I 
got it, but you still have to 
check it the first time. The 
patching process takes about 
half an hour the first time you 
doit. 

Basic 

NEWDOS/80 is a program- 
mer's DOS, as opposed to a 
simple file-handler like Tandy's 
DOS. For the Basic program- 
mer, the REF function and re- 
numbering capabilities are 
nearly indispensable. The abil- 
ity to shuffle lines about or 
to duplicate them (Dl and DU 
commands) is a significant im- 
provement in the programmer's 
toolkit. These functions are, I 
think, the most obviously 
useful functions to a Basic 
programmer. There are other, 
less obvious, functions that are 
also extremely valuable. For in- 
stance, I can best analyze a 
program when I can get my 
hands on it. The JKL function 
lists the video screen so I 
can get at it. If I'm in the pro- 
cess of debugging a program, 
and I need to know whether my 
files in the program match the 
files on the disk, I press DFG to 
get into MINIDOS, and list the 
Directory. If the files don't 
match, I can Rename the one in 
the Directory (not a good prac- 
tice if you've already opened 
the file in your Basic program). 
MDRET will return me to the 
point at which I left off debug- 
ging. The more I use the sys- 
tem, the more I appreciate the 
MINIDOS. 

Another benefit is the CMD 
"F = — " command. Consider 
the following program seg- 
ment: 

100 QOSUB 500 



500 FOR I = 1 100 



550 IF I = 50 GO TO 600 
560 NEXT I 
570 RETURN 



800 PROGRAM RESUMES HERE 
This demonstrates the CMD 



"F = — " function. When the 
program resumes at 600, the 
first NEXT I statement encoun- 
tered should send it back to line 
500. If not, some error message 
will be given because there is 
still the equivalent of 50 I's on 
the Basic index stack. CMD 
"F = POPS" cleans up the in- 
dex stack. The next RETURN 
statement will send the pro- 
gram back to 100 (or if there is 
another GOSUB, it will treat 
them as nested subroutines). 
CMD "F = POPR" clears both 
the index stack and the sub- 
routine stack. 

While CMD "F = — "should 
not be necessary in a well writ- 
ten program, it can be very 
useful during the debugging 
phase of program develop- 
ment. Attaching the name of 
the indexing variable clears the 
index for that variable only, so 
that in debugging nested loops, 
you can selectively clear index 
stacks. 

The new file types are an ob- 
vious change from the usual 
Basic file system. They appear 
to be most useful in business 
applications such as data base 
management. They certainly 
make understanding the file 
easier when using Superzap. 
MU files are especially useful 
during program development, 
because the pointers tell you 
the type of data (character, in- 
teger, single or double preci- 
sion) and the length of the data. 
It does take some getting used 
to, but it's worth it. 

Assembly 

Language Programming 

NEWDOS/80 includes a mod- 
ified version of Tandy's Editor/ 
Assembler. Only Apparat's 
modifications are documented, 
but an assembly language pro- 
grammer will find all he needs 
in NEWDOS/80. In addition to 
the Editor/Assembler, there is 
the debugger, LMOFFSET for 
relocating code, and the dis- 
assembler. Superzap is, of 
course, the valuable disk editor 
for both the assembly and 
Basic languages. Further, most 
of the DOS entry points are in- 
cluded in a separate section of 
the manual, so that for func- 



the disk, the programmer has a 
guide to follow. Overall, every- 
thing required for intelligent 
programming in assembly lan- 
guage is present on the disk. 

Conclusion 

What are the pros and cons 
of the system? Is it really for the 
more sophisticated user? Who 
can use it and for what? First, 
the system is a major improve- 
ment on existing operating 
systems. It is a big step closer 
to a "real" operating system. It 
can be used by anyone who 
uses Radio Shack's TRSDOS, 
but it is probably too expensive 
to justify use in a "load and go" 
situation, where the user buys 
programs, loads and runs 
them. Anyone who does their 
own programming, particularly 
where they are writing pro- 
grams for manipulating files, 
will find this DOS useful. The 
"serious" hobbyist who is in- 
terested in increasing his 
knowledge and mastery of 
computer science will find this 
system useful. There is still 
room for improvement. It is not 
a full fledged DOS— yet! For 
the sophisticated user, there 
are some desirable commands 
not implemented. The interrupt 
handling still leaves a great 
deal to be desired, and certain 
file handling techniques have 
yet to be implemented. (I'm not 
saying what they are! Look at 
the OS for a DEC or other large 
minicomputer system to find 
them!) 

The small business user 
could use this system to great 
advantage. I think it will greatly 
reduce run-time for programs 
that do a lot of file accessing. It 
does require some reprogram- 
ming to implement the new file 
types. 

Is it worth the cost? If you 
feel that your investment in 
your computer, interface and 
disk drive has been worthwhile, 
then the price of NEWDOS/80 is 
reasonable because of the ad- 
ditional capabilities it offers. 
The only user to whom I would 
not recommend this system is 
one who uses the computer 
only for game playing. He 
should spend his bucks on 
Scott Adams' next creation! ■ 
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APPLICATION 



On the whole, this author would rather be in Brattleboro. 



City Accessibility Calculator 



James M. Todd 
RD 3 Box 79 
Brattleboro, VT 05301 



I'm tired of meeting people in 
Burlington! 

I'm a member of a number of 
Vermont organizations that op- 
erate on a state level. Each 
group is continually debating 
the choice of a meeting place. 
The argument usually revolves 
around the distance each mem- 
ber has to travel. 

Burlington, located in the 
north of Vermont, is the most 
populous city in the state. And, 
because there are so many of 
them, the Burlington crowd usu- 
ally wins these arguments. 

Unfortunately, I live 150 miles 
from Burlington and have to 
drive six hours there and back. 

Since I live so far from Bur- 
lington, I wrote a program to 
determine which city is the most 
accessible in any given area for 
any given group. 

A Business Program Too 

Not Just for meeting places, 
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the program can help you to lo- 
cate a business. Suppose your 
business involves transporting 
people or things, or selling 
things in a number of cities in 
one general area. Where's the 
optimal place for you to live? 

In my City Accessibility pro- 
gram, simply punch in the dis- 
tances and the data for each 
city. The program then calcu- 
lates the distance from one city 
to every other. By entering the 
number of customers in each 
city, the program adjusts the fig- 
ures in terms of total travel or 
"stops" and displays the results 
or prints them out. 

it's simple to choose the city 
that involves the least travel for 
you. 

You can express this distance 
as any convenient unit— such 
as miles or kilometers — but for 
many people it could also be ex- 
pressed as time. 

(This might be important if, 
for instance, some persons have 
to drive 50 miles over dirt roads 
whereas another group drives 60 
miles on the interstate highway. 
For similar reasons, you may 
want to express the distances in 
dollar costs.) 

Typing the original distance 
data is tedious, but the city data 
is limited and does not take long 
to enter. For this reason, the pro- 
gram allows you to save and cor- 
rect the distance data but not 



the city data. 

The results are normally dis- 
played for thirteen cities at a 
time (all the screen will hold), 
but the program displays a sum- 
mary of the results to facilitate 
comparisons. If you own a line 
printer, you can print the com- 
plete results. 

The Program Works 

To make the program easier 
to understand, consider a set of 
four cities, A, B, C and D as in 
Fig. 1. 

In Fig. 1, the distances to city 
A are labeled w, u and z. Similar- 
ly, for city B, the distances are 
those labeled w, v and x. The 
program performs this addition 
for all the cities on the list. 

In order to allow for different 
numbers of persons from each 
city, each distance is multiplied 
by the number of persons travel- 
ing from that city. Thus, if we 
have four persons from city B, 
two from city C and five from 
city 0, the modified distance for 
city A are as follows: 

(W 4)4-01 «2) + (z'5) 

Though the program runs in 
Level II, originally I wrote it in 
Level I Basic without the city 
names, using numbers to desig- 
nate them. I stored the dis- 
tances and city numbers in one 
one-dimensional array, all that 
Level I allows. 



(3 people) A ^ w »■ B (* people) 

1 

x 
(5 people) D M y ^-C < 2 P«ople) 

Fig. 1. Cities Example 




The program stores the num- 
ber of the first city in the first 
digit (the tens) of the array label 
and the second city in the sec- 
ond digit (the ones). The pro- 
gram stores the actual distance 
data in the labeled segment of 
the array. 

I arbitrarily limited the num- 
ber of cities to 50, so the pro- 
gram could handle the dis- 
tances between all the state 
capitals. The program uses the 
arrays labeled (1000) and up to 
store the city data. 

Punch Lines 

I worked all of this out and now 
can't entirely understand it my- 
self—but it works, so I kept it. 

The punch line is that the pro- 
gram hasn't helped me travel 
less, because, if more than five 
or six people from Burlington at- 
tend the meeting the travel 
totals are less if the meeting is 
held there. My own invention 
may have defeated me, but I 
haven't told the other members 
yetll 



Program Listing 4 



199 CLEAR lilt: DIHA(2996): DIMK$(5I) 
lit MM — CITY ACCESSIBILITY PROGRAM 
121 REM (C) COPYRIGHT DEC 19M 

JANES M. TODD, RD3 , BOX 79 

BRATTLEBORO, VT 85391 
139 CLS: PRIHTTAB(7)*» ** CITY ACCESSIBILIT 
Y • • ■ 

*jTAB(18) '(C) 1986, JAMES M. TODD, BRATTLEBORO, VERMONT' 
141 PR I NT: PRINT "USE ANY DISTANCE OR TIKE UNITS VOL' WISH - K I LOME 
TERS, HOURS,* 

151 PRINT'HILES OR PACES - JUST BE CONSISTENT I (ALL DISTANCES 
ONE-MAY) " 

159 REN *•* INITIALIZATION - POR SPEED 

169 POR J-l TO 2999: A(J)-9: NEXTJ: A-9:B-t :C-8:D-9: E-9iP-9iG-9: 
H-9:I-9 

179 PRINT: PRINT* ENTER THE NUMBER OP THE OPERATION YOU WISH TO PE 
RPORM :-* 

179 REM ••• MENU 

181 Q*—"SCR':PRINT*1) NEW AREA/DISTANCE INPUT 2) D1ST. CORRN. 

3) CITY DATA INPUT 

4) SHOW RESULTS 5) SUMMARY 6) PRINTOUT 7) SAVE DIST. DATA "; 
199 INPUTJi IP (J<1) + (J>7) THEN 199 

289 ON J GOTO 211 ,599 ,399 ,449 ,989 ,999 ,729 

219 INPUT "INPUT VIA 1) KEYBOARD 2) DISK *;J: IP (J<l)-f(J>2) THE 

N 219 

229 ON J GOTO 239 ,838 

229 REM ••• INPUT NEK AREA/DISTANCE DATA 

239 CLS: INPUT-ENTER TITLE (8 CHARACTERS MAXIMUM: *;A$:IF AS-"* 

THEN 239 

249 INPUT" ENTER THE UNIT OP MEASUREMENT YOU WILL BE USING ";BS 

2S« IP 8$-" THEN 249 ELSE CLS: PRINT929 ,A$| * - ";BS 

289 INPUT-ENTER NUMBER OF CITIES (59 MAX) *;A: IF (A<2)+(A>59) T 

HEN 2(9 

279 FOR K-l TO A 

288 PRINT"NAME OF CITY l"|Ifl INPUT KS(K): IF KJ(K)-"* THEN 28 

299 NEXT K 

399 FOR C-l TO A-l I FOR D-C+l TO A 

319 G-C*19+D 

329 PRINT'FROM *;C;") "|Kf(C)| a TO *;D;*) *;KS(D)|* IS *>: IMP 

UT A(G) : 

IF A(G) <9 THEN 329 

339 NEXT D: NEXT C 

349 INPUT'DO YOU WISH TO CORRECT ANY DISTANCES 7 DYES 2) NO *j 

J 

359 IF (J>2)*(J<1) THEN 349 

369 ON J GOT0599 ,388 

379 INPUT'SAVE AREA/DISTANCE DATA ON DISK ? U-YES 2 -NO) *;J: IP 

(J<1) + (J>2) GOTO 379 

389 ON J GOTO 729 ,399 

389 REM ••• INPUT DATA POR EACH CITY 

399 CLS: PRINT? 29, AS 

499 FOR H-l TO A 

419 PRINT "NO. OF PEOPLE PROM (OR OUTLETS IN) * | H> * ) *KS (H) ; : 1 

NPUT A(lBB0tH) 

428 NEXT H 

429 REP •** CALCULATE AND DISPLAY RESULTS 
439 

REM ♦♦++ DISTANCE FROM CITY E TO CITY F«A(X) ♦♦♦+ 
449 GOSUB 949 
459 IF 05-*SLM* CLS: 

PRINT*(1ST ( » CITY) 2ND t - TOTAL DISTANCE / 3RD » - TOTAL TRAV 
EL* 

479 POR E-l TO A: B-9: 1-9: FOR F-l TO A 
489 V-E»19-fF: W>19*F*E 
499 IF W>V THEN X-V 
599 IF W-V THEN X-9 

519 IF V>H THEN X-W 



529 B-B+A(X, : I-I*(A(X)»A(P*1B99) ) 

539 NEXT F 

539 REM ••« PRINTING ROUTINES 

549 IP QS-*SUM* PRINT E;*) *;Bi */*| I; * •« 

558 IP 0S-*LIN"LPRINT"POR *;*.$(£) |* AS CENTER*; TAB (49) ;B;TAB(S1 

) jl;TAB(62);A(1999+E) 

568 IP QS-*SCR" PRINT "FOR *>K$lE)j* AS CENTER* | TAB(45) I B»TAB( 

55) 1 1 

579 IP Q$»*SCR" AND (E-13) »(E-26) +(E>39i GOSUB939 

588 NEXT E: IF Q$-*SUM* PRINT* *: GOTO 189 ELSE GOTO IBS 

589 REM **• CORRECTING DISTANCES BETWEEN CITIES 

599 PRINT 'PLEASE KEEP THE CITIES IN THEIR ORIGINAL LIST ORDER W 

HEN * 

699 PRINT 'INSERTING CORRECTIONS, I.E. CITY WITH SMALLER NUMBER 

FIRST.* 

619 PRINT TAB! 5) "DISTANCE FROM WHICH CITY 7 (CITY NUMBER) "j: IN 

PUT C 

629 PRIWCIT* #"jCj*1S *>K$(C) 

639 IP OA THEN PRINT'THAT CITY WASN'T ON THE LIST*: GOTO 619 

649 PRINTTAB(16)*TO WHICH CITY 7 (CITY NUMBER)*): INPUTD 

659 PRINT'CITY #*|D;*IS *jK$(D) 

669 IP D>A THEN PRINT'THAT CITY WASN'T ON THE LIST*: GOTO 649 

679 IP O-D THEN GOT0598 

689 G-C*19+D: PRINT'TBE DISTANCE RECORDED WAS*:A(G) 

699 INPUT 'ENTER CORRECT DISTANCE *;A(G): IF A(G)<9 THEN 699 

799 INPUT "ANY MORE CORRECTIONS 1)YES 2)NO *,J: IF (J<1)+(J>2) T 

HEN 799 

719 ON J GOTO 619 ,198 

719 REM ••• SAVE AREA/DI STANCE DATA TO DISK 

729 PRINT'FILENAME POR DISI DATA PILE IS TITLE - * I AS 

739 INPUT"PRESS -ENTER- WHEN REAP» TO SAVE TO DISK*:JS 

748 OPEN*0*,l,AS 

759 PRINTtl,ASj*,*;B$;*,*;A 

768 POR 1-1 TO A: PRINT* 1 ,K$(K) : NEXT K 

779 FOR C-l TO A-l: FOR D-C+l TO A 

788 G-C*18+D 

799 PRINT»1,A(G) 

888 NEXT D: NEXT C 
818 CLOSE 

829 PRINT* RECORDING COMPLETE "i GOTO 180 

829 REM •** INPUT AREA/DISTANCE DATA FROM DISK 

838 INPUT-ENTER FILENAME OP DISK DATA FILE ( TITLE ) *;A$: IF A$ 

-*" THEN 838 

648 0PEN"I*,1,A$ 

858 INPUTJI, AS,BS, A 

869 POR K-l TO A: INPUT41 ,KS(K) : NEXT K 

879 FOR C-l TO A-l: POR D-C+: TO A 

889 G-C*19+D 
9M INPUT*1,A(G) 
988 NEXT D: NEXT C 
919 CLOSE 

929 PRINTAS;' DISTANCE DATA ENTERED*: GOTO 188 

929 REM ••• TITLES FOR PAGE DISPLAY 

939 INPUT'PRESS -ENTER- TO CONTINUE*|JS 

949 CLS: IF QS-'LIN* LPRINT AS; " (ONE-WAY DISTANCES) - *|B$;: 

ELSE PRINT AS) '(ONE-WAY DISTANCES) - ";B$; 

959 IF QS«"LIN" LPRINT TAB (49) "TOTAL* (TAB (51) I "TOTAL" |TAB(62) *NU 

MBER" : 

ELSE PRINTTAB(45) * TOTAL*; TAB ( 56) 'TOTAL " 

969 IP Q$«*LIN* LPRINT TAB (49) "DISTANCE* )TAB( 51) 'TRAVEL* 1 TAB( 62) 

■PEOPLE*: 

ELSE PRINTTAB(45) 'DISTANCE* ; TAB ( 56) 'TRAVEL* 

979 RETURN 

979 REM ••• SET FLAG FOR SUMMARY OR LINEPRINT 

988 OS- "SUB": GOTO 458 

999 PRINT'WBEN PRINTER IS CONNECTED (AND SWITCHED ON) ENTER P 

(IF YOU'VE CHANGED YOUR MIND, ENTER R) * 

1999 INPUT J$: IF J$'*R* GOTO 188 ELSE IF J$-*P* THEN QS-'LIN'i 

GOTO 448: ELSE GOTO 1888 



GANTT-PACK 



EASY PROJECT PLANNING 

• Dynamic Scratchpad Entry 



UNIQUE PROGRAM FEATURES 



• Simple Editing/Updating 

• Automatic Organization • Rapid Screen Review 

• Graphics for Communications • Printer of Your Choice 

• Charts and Data to Screen and Printer 




POWERFUL, FLEXIBLE, SYSTEM DESIGNED BY EXPERIENCED PROFESSIONALS 

• Now available for TRS-80* Model I, 48 K, 2 disks 

• TRS-80* Models II and III Versions by December, 1981 



LIBRA LABORATORIES, INC. ^ 
495 Main Street 
Metuchen, NJ 08840 



Tel. (201) 494-2224 

Gantt-Pack © Libra Laboratories, 1981 

PRICE $149.50 

'TRS-80 Trademark of Tandy Corp. 



►- See List ol Advertisers on page 418 



80 Microcomputing, December 1981 • 311 



CONSTRUCTION 



This one fits inside your Model I. 



Another Noise Maker 



Gary Erb 

10840 Hunter Ave. 

Whittier, CA 90601 



Software-generated tones 
add interesting effects o 
flag for keyboard input verifica 
tion, but Radio Shack left hard 
ware for the amplification of syn 
thesized sound off the TRS-80 
An inexpensive amplifier which 
will give adequate volume and 
quality can be built or purchased. 
Because this is yet another pe- 
ripheral with dangling wires and 
battery replacements, I decided 
to build in an amplifier with its 
own power supply and speaker. 

Getting Started 

Because Radio Shack used a 



standard TV case for the Model I 
there is plenty of room inside for 
the installation of extra equip- 
ment. The front-mounted bright- 
ness and contrast controls are 
standard, but the volume con- 
trol was replaced by the video 
signal cable. This cable is in an 
ideal spot for the on/off volume 
control of the amplifying system. 

You can use the Radio Shack 
amplifier ($9.95) or build one 
from spare parts. I found an old 
AM transistor radio; after dis- 
mantling the circuit board from 
its case, I removed the volume 
control, variable frequency ca- 
pacitor and speaker, preserving 
only the amplifying portion of 
the radio. 

A 10K potentiometer (volume 
control) replaces the pancake 
type removed from the radio/ 
amplifier. A microphone jack 
on the front of the video dis- 
play takes the audio signal from 
the cassette output via the aux- 
iliary jack. The only other hard- 



ware required is a nine-volt bat- 
tery eliminator. 

Installation 

After removing the back from 
the display unit (with power off 
and unplugged) unsolder the 
three video cable wires from the 
circuit board. Pull the cable 
through the front of the unit and 
reinstall it after pushing it 
through any one of the holes in 
the back. I used a plastic tie 
wrap to hold the cable to the cir- 
cuit board, eliminating undue 
stress on the solder joints. In- 
stall the switched potentiome- 
ter (Vi-inch diameter shaft) on 
the chassis in place of the video 
cable and attach the volume and 
power leads. Remove the speak- 
er from the original board and 
place it just inside the front 
cooling grill, giving maximum 
volume. For improved sound 
quality place the speaker inside 
its own enclosure. 

Drill a small hole in the plastic 



cabinet to accommodate the mi- 
crophone jack beside your new 
volume control. Connect the two 
leads from the jack to the input 
of the amplifier. 

Screw the circuit board and 
1 10V plug, into which the battery 
eliminator goes, into the lugs 
originally used to hold the TV 
tuner. Solder one lead from the 
plug to the power switch of the 
video display and the other to 
chassis ground. Check all your 
connections and assemble the 
unit. 

Operation 

Plug in the audio cable from 
the keyboard, power up the dis- 
play (which will now activate the 
amplifier), turn the switch and lis- 
ten for a buzz from the speaker. 

I spent less than $10 to add 
another noise-maker to my den. 
Now that I do not have to bother 
with the external amplifier I can 
put more sound effects in my 
programs.B 



MOVING? 

Let us know 8 weeks in advance so that you won't miss a sin- 
gle issue of BO Microcomputing. 

Attach old label where indicated and print new address 
in space provided. Also include your mailing label 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



[ ] Address change only 
E 1 Extend subscription 
□ Enter new subscription 
l 1 year $25.00 



It you have no label handy, print OLD address here. 



og Name. 



^ 



Address 
City 



LJ Payment enclosed 

(1 extra BONUS issue) 
L) Bill me later 



Name 



Address. 



City. 



80 MICROCOMPUTING 



.Call 



State. 



Zip. 



print NEW address here: 

an 



State. 



Zir 



Ho\ i mi 



I .lrmin^ci.ile N'j 
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A Combined General Ledger. Accounts Payable. Accounts Receivable, and Payroll. All on One Diskette • Complete 
Easy-to-follow Manual and Instructions • Demonstration Disk Available • Available now for the TRS-80 MOD H* 

Simplify Your Bookkeeping With 
A Completely Interactive System. 



PAYABLES 

AND 

RECEIVABLES 



6a»y "«o«ce entry automatically 
Dost'ng lo proper general ledger 
account Separatee u*l ta« 

service Uiv^m Irergnt 

diacounta etc 

Payables check* automatically 

ta"e diacounta by do* data 

User options lo Day all »tnOori 

or selected yndor a . 

le'ecieo myopes o' 
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RECEIVABLES 




tipand The system anytime 
you wish with fully 
compatible modulai programs 

«ve"U>r> 
Order Entry 

aieoori Generator 
Oner Seerre P-nre-n 



SERVICE 

Software service and 
operational asaistanci 
available under two 
different service 
agreements 



THE 

BOOKKEEPER 

SYSTEM™ 

For Microcomputers 

The system is a combined General Ledger, 
Accounts Payable, Accounts Receivable, Payroll 
and Budget Forecasting program that follows 
double entry accounting principles with only a 
single entry. 

Written in COBOL with on-screen instruc- 
tions, your bookkeeper uses simple, one key 
responses to the computer's questions With 
three 8" floppy data diskettes. The Bookkeeper 
can handle up to 3,500 customers, vendors 
and employees on account with 10.000 trans- 
actions per month. 

Add a hard disk and your microcomputer 
has almost unlimited storage 

Contact us today to find out how you can 
own this superior product. 



We're Writing Programs For People 




UMVKRSN. 

SOn\A/M€ 

STUDIOS,. 



UNIVERSAL SOFTWARE STUDIOS, INC. 

1 79 WEST SMITH ST. I ] GALLATIN. TN 37066 

TELEPHONE (615) 452-1027 

• TRADE MARK OF THE TANDY DORP 



&/ 





y<f<? • f y r s/ps 



■S»e tiff ot MvmUtm on page 4 IB 
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BUSINESS 



dm*) 



LOAD 80 



If you're overstocked in size 13 wing tips, read on. 



Analytic Inventory Management 



John Harper 
R *1, Box 252 
Lawrenceburg, IN 47025 



ventory Management by H. weeks, your season is four 



Anyone with the responsibili- 
ty of Inventory management 
knows the frustration of trying 
to decide between profit or in- 
vesting in merchandise. As re- 
tailers, it is important to provide 
your customers with what they 
want when they want it. As 
businessmen we try to do this 
with as little inventory as possi- 
ble. Each item of merchandise 
we carry on our shelves takes 
money from other areas. We are 
constantly being forced to de- 
cide between alternative uses of 
our available funds. 

This program is a simplified 
version of a concept known as 
Analytical Inventory Manage- 
ment (AIM). The program is 
designed to calculate eco- 
nomic order quantities, taking 
into consideration a spending 
limit (financial control limit) 
placed on total inventory and 
estimated item demand. 

For a complete explanation 
of this procedure, consult the 
book which was the source for 
many of the formulas used in 
this program— Analytical In- 
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Raymond Swenson. 

Program Execution 

The first step of the program 
is calculating current inventory 
status. Inventory status is 
evaluated in accordance to the 
season. A season is simply 
your ordering period. If you 
place one order every four 



weeks long. 

Each time you place an 
order, you place a Financial 
Control Limit on total inven- 
tory. This program calculates 
the value for each possible 
Financial Control Limit (FCL). 
This particular value in this pro- 
gram is called the Inventory 
Allocation Rate (IAR). For each 



Enter Season as Fraction of Year: .25 
(.25 used during sample run supplied — you may enter any 
fraction of a year.) 
Enter Initial FCL : 700 
(700 dollars used in sample run.) 
Enter Increment to FCL : 100 
(100 dollars used with sample run.) 
Enter Terminal FCL: 1000 
(1,000 dollars used with sample run.) 
Enter Fixed Costs Per Order: .10 
(.10 (10V.) used with sample run.) 
Enter Interest Rate : .15 

(.15(15%) used with sample run at this point, the computer 
creates the simulation table.) 
Enter IAR From Example in Text : .1537 
(1537 used with first sample run. At this point the com- 
puter calculates economic order quantities and prints 
results.) 

Do You Wish to Run Program With a Different IAR? (YjN):Y 
(Y (Yes) used with sample run.) 

Enter IAR From Previous Example to be Analysed 1 .0983 
(.0983 used with second sample run. At this point the com- 
puter re-calculates economic order quantities using new 
IAR) 

Do You Wish to Run Program With a Different IAR (Y/N):N 
(N (no) used with sample run. At this point the computer 
prints a list of terms used in the tables.) 

Table 1. Sample Program Execution 



dollar limit placed on inventory 
there is a corresponding inven- 
tory allocation rate. 

After the present inventory 
status has been evaluated, the 
simulation portion of the 
analysis begins. As stated 
earlier, each time you prepare 
an order you place a financial 
control limit on inventory. By 
looking at the present inventory 
status calculated above you can 
see what the FCL was for your 
last season. You now get to see 
the probable results of selecting 
alternative financial control 
limits. 

To begin our simulation we 
establish a range of possible in- 
ventory levels. When the com- 
puter instructs you to Enter ini- 
tial FCL you enter the lowest 
dollar value you wish to have 
evaluated. For example, if the 
current FCL equals $5,000, you 
might wish to evaluate inven- 
tory limits from $2,000 to 
$10,000. To do this simply enter 
$2,000 as the initial FCL 

Next, the computer will ask 
you to Enter increments to FCL. 
In the $2,000 to $10,000 ex- 
ample, suppose you wish your 
analysis broken down into 
steps of $50 each. To do this 
you enter $50 as the increment 
to FCL. You are now creating a 




Does your CP/M** or TRS-80* Word Processor need help? 
Aspen Software has the finest document proofreading tools available. 



QRAMMATlk" 

Beyond Spelling Checking 

Spelling checkers are useful, but they are not enough! 
Grammatik can find many errors that a spelling checker can't. 
It detects many errors commonly found in text entered on 
computers, such as doubled words ("the the"), inconsistent 
capitalization ("STicky shift key"), incorrect punctuation, and 
others. That's not all! Grammatik also checks your document 
for good writing style using a dictionary of over 500 misused 
phrases as defined in many writer's stvle manuals. It marks 
and classifies the problems it finds in the document file for 
easy correction with your word processor, and provides sug- 
gestions for correcting the problems. The phrase dictionary 
can be easily extended to include checking for esoteric jargon 
or your own pet peeves. Grammatik also collects other stylistic 
information that can be used to revise the document to im- 
prove its readability such as average sentence and word 
length. It can produce a profile with the number of times each 
unique word in the document was used, helpful for identifying 
overworked vocabulary. Grammatik is not only a valuable 
proofreading tool, it is also a useful learning tool. You will 
notice significant improvements in your own writing style after 
using Grammatik for only a short time. Grammatik is fast, 
easy to use. and works with all popular TRS-80 and CP/M 
word processors. Model I/Ill version requires a minimum 
32K. 1 drive system. Model II TRSDOS* version requires 
64K and 1 drive. CP/M version requires CP/M release 
2.2and48K. 



The Aspen Software Company Spelling Checker. 

Don't buy a spelling checker until you've considered Proof- 
reader. Recently, several ads for other spelling checkers have 
compared themselves to "others". They weren't comparing 
themselves to Proofreader! Proofreader has all the features 
you need for checking your documents for spelling errors and 
typos. Proofreader looks up every word in its 38.000 word 
dictionary, and does not increase its "vocabulary" by using 
less accurate root word analysis like some others do. You 
won't need to spend as much time adding new words as you 
would with a smaller dictionary. Proofreader is easy to use -- 
you can start checking your documents immediately. Proof- 
reader is fast - it can check even your largest document (20 
pages or more) in less than 5 minutes! Unknown words are 
listed on the screen, and can be saved in a file for later 
manipulation. The Proof-Edit feature (optional on the Model 
1 III version, included with Model II and CP/M) allows you to 
interactively correct the unknown words in context. New 
words can easily be added to the dictionary, and expansion is 
limited only by disk capacity. Proofreader works with all 
TRS-80 operating systems and word processors, so if you 
change svstems, you won't need a new spelling checker. On 
the TRS-80 Model Mil. only 32K RAM and I disk drive are 
needed. Proofreader also works with all popular CP-'M word 
processors. Add up the facts and the low price, and you will 
conclude that Proofreader is the best value available in 
spelling checkers. 



Aspen Software programs arc professional quality, reliable software 
tools developed for ihe TRS-80 and CP M by a Ph.D. in Computer 
Science All software is protected by Aspen Software's low cost 
upgrade privilege for new versions. Other tools include: 

— SOFT-SCREEN'", a powerful, state of the an full screen text 
editor. Over a year in development. Soft-Screen is compatible with 
all TRS-80 programming languages, including BASIC. FORTRAN. 
MACRO. Ratfor. and COBOL. Commands are easy to learn, yet 
versatile and complete to satisfy the most experienced user. Soft- 
Screen is also available for P&T Model II CP/M. 

— SOFT TEXT™. Aspen Software's text formatter. When used 
with Soft-Screen, provides a powerful word processing system. Full 
featured, including automatic pagination, even and odd page 
headings, underlining, index generation, footnotes, support for 



advanced printer capabilities, and much more. Model 1 III version 
supports serial printers at full speed. Soft-Text offers a real alter- 
native for Model II TRSDOS users. Please write or call for 
more details. 

— RATFOR. a structured language preprocessor for Fortran de- 
veloped at Bell Labs. Aspen Software Ratfor is one of the best 
versions available, and the only one with a pretty printer option. 
Totally compatible with Microsoft F80. Includes several extensions, 
including "case", "string", and conditional compilation. User's 
manual contains all information needed to learn and write Ratfor 
programs. Requires FORTRAN. 

— PP-RATFOR. a pretty printer. Automatically formats and 
indents Aspen Software Ratfor source programs. An essential 
program development tool. 





Model I 


Model II 
(64k, Id) 


Model III 


CP/M 

(2.2,48k) 


Manual only 


Proofreader 
Proof- Edit 
Grammatik 


$54.O0(32kld| 

$30.00 

$59.00(32kld) 


$119.00 

incl. 
$99.00 


$64.00(32kld) 
$30.00 

$59.00(32kld) 


$129.00 

incl. 

$149.00 


$8.00 

incl. 

$8.00 


Soft-Screen 
SofVText 
both 


$69.00(48kld) 
$69.00(48kld) 
$129.00 


$99.00 

$99.00 

$179.00 


$75.00(48kld| 
$75.00<48kld) 
$139.00 


$99.00(P&T) 
$99.00 
$179.00 


$15.00 
$15.00 
$25.00 


Ratfor 
PP-Ratfor 
both 


$49.00(48k2d) 

S30.00(48k2d) 
$74.00(48k2d) 


$99.00 

$49.00 

$139.00 


$59.00(48kld) 

$34.00 

$84.00 


$99.00 

$49.00 

$139.00 


$15.00 



IMPORTANT t Specify computer model, operating system, memory size, and number of drives when ordering! For CP/M, 
currently only 8 single density CP/M versions available. Please inquire about other CP/M disk formate. All TRS-80 ver- 
sions available. Manual only orders can be applied to final purchase. CP/M prices are introductory. 

Orders sent postpaid by first class mail. Terms: Cash, check, money order, VISA, or Master Card. NM residents add 4% tax. 
Proofreader, Grammatik, Soft-Screen, and Soft-Text are trademarks of Aspen Software. 
♦♦trademark of Digital Research ^trademark of Tandy Corp. 



T.M. 




P.O. Box 339 -M TJjeras, NM 87059 (505) 281-1634 



• See List of Advertisers on page 4 18 



80 Microcomputing, December 1981 "315 



simulation table starting at 
$2,000 and increasing in steps 
of $50. 

Next, the computer will ask 
you to Enter terminal FCL. This 
is simply the highest FCL you 
wish to evaluate. In the above 
example this would be $10,000. 
Thus you begin at $2,000, in- 
crease by steps of $50, and end 
at $10,000. This gives you a 
wide range of alternative inven- 
tory levels to choose from. 

There are two final pieces of 
information you must supply 
the computer before you begin 
your simulation. These are 
"fixed costs per order" and "in- 
terest rate". Fixed costs per 
order are costs such as freight 
which must be paid each time 
you order merchandise. This 
value must be entered as a per- 
cent of the total order. If your 
order is for $100 and the fixed 
costs are $10 then you enter .10 
(10 per cent) as your fixed costs 
per order. 

The final entry, interest rate, 
is simply the rate you pay on 
the money used for merchan- 



dise. If you are paying 15 per- 
cent interest, then you enter .15 
as your interest rate. 

The computer now simulates 
the results of selecting the 
various FCLs within the range 
you selected above. To do this 
the computer calculates the 
following values for each FCL: 

• Inventory Allocation Rate 
(IAR) 

• Turnover Rate (TN) 

• Ordering Cost (OC) 

• Carrying Cost (CC) 

• Total Cost (TC) 

• Average Inventory (AVE) 
Ideally you wish to minimize 

total cost. To do this you must 
select the FCL associated with 
the lowest total cost calculated 
in your simulation table. If this 
results in an FCL which is too 
high to fit your budget, you will 
have to pick an FCL you can af- 
ford. Whatever the motivation 
behind your choice, you must 
select an FCL from the simula- 
tion table before you can con- 
tinue on to the next step. After 
you select the FCL, read the In- 
ventory Allocation Rate (IAR) 



Convert your TRS-80 Model I or III Into a 

DEVELOPMENT SYSTEM 

Now vou can develop Z-80 based stand aione devices such as games robots 
instruments and per<>heral controllers by using your TRS-80 as a development system 
The DEVELOPMATE plugs into the expansion connector ot *our TRS-80 and adds 
PROM PROGRAMMING and IMCIRCUITtMOLATIOM capabilities to your 
system (with or without expansion inlertacel 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs one TTL circuit tor clock and reset a Z-80 an EPROM and 

one peripheral interlace chip 

When the m-Circuit- Emulation cable is plugged 
into the Z-80 socket ot your stand-alone system, 
the system becomes a pan ot your TRS-80 Vou 
can use the full power ot your editor • assembler s 
debug and trace programs 10 check out both the 
hardware and the software Simple test loops 
can be used lo check out the hardware then the 
system program can be run to debug the logic ol 
,our stand alone device 

Since the program is kept in TRS-80 RAM 
changes can be made quickly and ea 
you' stand-alone device works as desired you 
use ine Devetopmate s PROM PROGRAMMER 
to copy the program mto a PROM With M 
PROM and a Z-80 m place ot the • 
cable yoursland-atonedevicewiiiworkbyitsert 

The DEVELOPMATE is extremely compact Both the PROM programmer and the 
m-Circmt Emulator are m one small plastic box only 3 2-54 A hne-piug mounted 
power supply is mciuded The PROM programmer has a personality module which 
defines the voltages and connections ot the PROM so that future devices can be 
accommodated However the system comes with a universal personality module 
which handles 2758.2S08i8Ki 2716 2516< 16KI 2532l32Ki as well as the new eiec 
.■terabie 2816 and 480161 t6K EEPROMsi 

The COMPLETE DEVELOPMATE 81 with software, power supply emulation 
cable. TRS 80 cable, and universal personality module is ONLY S329' 

please indicate model 1 or model 3 version 
ORION INSTRUMENTS 

1 72 Otis Avenue Dept M Woodsioe C*9406? 

|415i851 1178 

Master Charge and Visa phone orders accepted 

California residents please add 6*. sales tax 




■ > 



which is in the same row of the 
table as the FCL. This IAR is the 
implied cost of money asso- 
ciated with your chosen FCL. 

The computer will now in- 
struct you to Enter IAR selected 
from the above table. After you 
enter the IAR, the computer will 
calculate the unit ordering 
quantities (Economic Ordering 
Quantity) for each item, as well 
as the cost and turnover 
associated with each one. 
These results are designed to 
represent a compromise be- 
tween unit demand and avail- 
able funds. Neither demand nor 
money has the upper hand in 
determining order quantities. 
Depending upon the IAR you 
select, the computer may ad- 
vise you to order less units than 



you might expect to sell or it 
may advise you to spend more 
money than you had hoped to. 
When this step is completed 
you have the option of redoing 
this step using a different IAR. 
The computer will ask: "Do you 
wish to run program with a dif- 
ferent IAR (Y/N)?" If you wish to 
repeat this step the computer 
will instruct you to enter a dif- 
ferent IAR from the simulation 
table. The computer will in turn 
re-calculate the economic 
order quantities. Remember 
when you select an IAR you 
must also select the corres- 
ponding FCL. 

AIM Notes 

To use AIM, you must supply 
your own inventory data. Data 



Program Listing 



IN DRIVE—PRESS ENTER 



CA CONTAINS CATALOG NUMBERS 

C CONTAINS UNIT COST 

Q CONTAINS PRESENT 'ON HAND' QUANTITY 

I CONTAINS "ON HAND' LAST INVENTORY 

R CONTAINS RETAIL PRICE 

O CONTAINS UNITS RECEIVED THIS SEASON 

PRESENT INVENTORY STATUS * 



18 CLS 

28 REM * READ DATA FROM DISK * 

3B DIM 0(588) ,CA(589) ,C(58B) ,0(598) ,I(5B0) ,R(5M) 

49 INPUT "PLACE DISK CONTAINING DATA (INV) 

";AS 

59 OPEN "I',1,"INV" 

68 X-l 

78 INPUT! 1, CA(X) ,C(X) ,Q(X) ,I(X) ,R(X) ,0(X) 

88 IF CA(X)=8 GOTO IBB 

98 X-X+l:GOTO 79 

198 CLOSE 

118 X-X-l 

129 REM 

138 REM 

148 REM 

158 REM 

168 REM 

178 REM 

188 REM 

198 CLS 

288 VAR«0:CGS=8:AVI*8:VR=9 
21B FOR A=l TO X 

229 OC=0(A) *C(A) +OC 

239 VAR-(Q(A)/2)*C(A)+VAR 

249 CGS=((I(A)+0(A) )-Q(A) ) *C(A)+CGS 

259 AVI«C(A)*(QIA)/2)*AVI 

269 VR=(C(A) »Q(A) ) [2 + VR 

278 NEXT 

289 TV=CGS/AVI 
299 VR=(1/12)*VR 

398 STD=SQR(VR) 

318 FCL=AVH-(1.64*STD) 

328 CLS:TT=VAR 

338 LPRINT TAB(15); "STATISTICAL SUMMARY OF PRESENT INVENTORY ST 

ATUS" 

340 LPRINT TAB(15) ;■«********•****»*****»•***•»*****•********«•« 

358 F0RJK=1 TO 5:LPRINT CHRS(13);" ":NEXT 
369 LPRINT"TOTAL PRESENT INVENTORY VALUE" ; TAB ( 4B) ;TT 
379 LPRINT'DOLLAR AMOUNT ORDERED LAST SEASON" ; TAB ( 48 ); OC 
389 LPRINT "TURNOVER RATE" ; TAB ( 48) ; TV 

399 LPRINT"VARIANCE";TAB(4B) ;VR 

499 LPRINT" STANDARD DEVI AT10N" ; TAB( 49 ) ;STD 

419 LPRINT'FINANCIAL CONTROL LIMIT ( 95%) " ;TAB( 49) ;FCL 

420 P.EM * GENERATION OF SIMULATION TABLE BY VARYING FCL * 

430 INPUT'ENTER SEASON AS FRACTION OF YEAR (1/4 YEAR -.25)";SE 

449 CLS 

459 INPUT'ENTER INITIAL FCL ";F1 

469 INPUT'ENTER INCREMENT TO FCL " ; IM 

479 INPUT'ENTER TERMINAL FCL";F2 

480 INPUT'ENTER FIXED COST PER ORDER (ORDERING COST, FREIGHT, ETC 
.) AS A PERCENT OF TOTAL UNIT COST)";F 

499 INPUT'ENTER INTEREST RATE AS A % OF TOTAL INVENTORY" ; IE 

599 FOR Xl-1 TO 10:LPRINT CHR$(13);" ":NEXT 

519 LPRINT TAB(]5) :"FINANCIAL CONTROL LIMIT SIMULATION TABLE" 

529 LPRINT TAB(15) ; "**«******«*•••»•*«**»•**•******•*•**»»**" 

538 FOR Xl-1 TO 4:LPRINT CHRS(13);" ":NEXT 

5 48 CLS 

5 50 LPRINT TAB(2) ; " I AR" ; TAB( 1 1) ; "TN" ; TAB( 29) ; "OC" ;TAB( 28) ;"CC";T 

AB(38) ; "TC";TAB(49) ; "AVE';TAB(58) "FCL" 

569 LPRINT CHRSI13);" " 

579 J=9:K-B 

560 FOR A-l TO X 

598 K-(C(A)*((I(A)+0(A))-Q(A) ) -f (F*C( A) ) /SE) +K 

600 J-SQR(C(A)«((I(A)+0(A) ) -Q( A) ) + (F*C ( A) ) /SE) +J 
610 NEXT 

620 K=SQR(K) 

638 FOR A»F1 TO F2 STEP IM 

648 V=A 

659 I=(1/(V|2))*(((.7B71*J)+((1. 645/2.449) *K) ) 12) 

Program continues 



is read from disk in lines 
40-100. Unes 120-170 explain 
what each array contains. Unit 
demand is calculated by the 
number of units sold last 
season. If you have a more ad- 
vanced method of estimating 
unit demand you can calculate 
demand any way you like and 
store this data in array I. If you 
do this you will have to set array 
equal to array Q. In other 
words, arrays O and Q will both 
contain your present quantities 
and array I will have your cal- 
culated demand quantities. 
You should also delete lines 
220 and 370 as these values will 
now be meaningless. 

Financial Control Limit (FCL) 
The FCL is not an absolute 



limit. It represents a 95 percent 
probability limit used in con- 
junction with unit demand, 
ordering cost and carrying cost 
to arrive at a compromise order 
quantity. The actual dollar 
amount of the order will exceed 
the FCL 

This program is not intended 
as an absolute ordering policy. 
It Is an aid to be used in 
evaluating your present order- 
ing policy or as a means of 
evaluating alternative ordering 
practices. Do not accept the 
recommended ordering quan- 
tities as fact. Remember, they 
are based on the IAR you select 
and on the estimated demand 
for the upcoming season. 
These two items are by nature 
extremely variable. ■ 



Program continued 

668 U-(SQR(2)/(2*SQR(I)))«J 

678 T-CGS/U 

688 QC-8:TC=8:CC-B:QU=0:Ql-0 

691 FOR B=l TO X 

788 D-I(B)+0(B)-Q(B) 

718 QU-SQR{ ( (2-D* (P*C(B) ) )/(C(B) M*SE) ) ) 

72i TC-((D*(F*C(B)>)/QU)+TC 

738 CC-((Q0*C(B)ME*SE)/2)+CC 

748 Q1-Q1+QO 

758 KEXT B 

768 QU-Q1 

778 TT-TC+CC 

788 A$-"»l .#♦♦«- 

798 B$-*IIM. |t|ftC$-=*VIII. II* :DS-*ftllfM. If* t E$*>*t Mlltt.lt' 

888 F$>* HHHI.lt *:G$=- till H. If 

818 LPRINT USINC AS; I ; : LPRIKT USIHC BS; T; : LPRI KT USING CS;TC;:LP 

RIHT USING DS.-CC;: LPRINT USING ES;TT; : LPRIKT USING FS;U; j LPRINTU 

SING GS;A 

828 QO-8:TC-8iCC-8 

838 NEXT A 

848 AS--HHHH-:BS " H I H " : C $ = " H II t " : DS " It 1 1 H S t . H " : ES-" I H 

Ht.l|-:FS = "HHHH.H":GS«-|HI.HH" 

850 FOR JK=1 TO 18.-LPRINT CHRSU3))" ":NEXT 

868 INPUT'ENTER IAR FROM PREVIOUS TABLE TO BE ANALYSED'lI 

878 LPRIKT TAB( 18) ; "ORDERING POLICY WITH SELECTED INVENTORY ALLO 

CATION RATE" 

888 LPRINT TABl IS) J •*»••••••••****»••»***•••••••••••••••••••••«* 

898 FOR Xl=l TO 2iLPRINT CHRSI13!;- *il*EXT 

988 LPRINTCHR$(27);CHR$(14);*IAR - *;I 

918 FOR Xl=l TO 2:LPRINT CHRS(13);" 'iNEXT 

928 LPRINT* CAT." jTAB(12) ; 'D';TAB(1«) ; *EOQ" ;TAB(27) ; "0C*>TAB< 

35) ;"CC*»TAB(46) j *TC*;TAB(55) > "TN* 

930 LPRINT CHR$(13)|* " 

948 CLS 

950 CLS 

968 SC08:SCC-8:STC«8:EQ-8 

978 FOR A-l TO X 

988 D-I(A)-K)(A)-Q(/.) 

998 EOQ»SQR((2M)*(F'C{A)))/(C(A)*I*SE)) 

1808 HD-Q(A)»C(A) 

1818 0C-O«(F*C(A) ) 1/KOO 

1828 CC-(EOQ»C(A)*IE-SE)/2 

1838 TC-OCMX 

1848 SOC-OC+SOC:SCC-CC+SCC:STC=TC+STC 

1858 EQ»EOQ*C<A)+EQ 

1060 TN"D/(E0Q/2) 

1870 LPRINT USING AS jCA(A) »: LPRINT USING B$;D; i LPRINT USING C$;E 

00;:LPRINT USING 0S;OC; :LPRINT USING ES;CC; : LPRINT USING PS>TC;: 

LPRINT USING GSjTN 

1888 NEXT 

1898 LPRINT TAB(2J)' ";TAB{33)" *;TAB(43)* 

1188 LPRINT CBRS(27),CHRJ.(14>;*SUN*,CHR$(27);CHRS(15);TAB<23)|SO 

C;TAB(33) iSCC;TAB(43) ;STC 

1118 LPRINT'TOTAL DOLLAR AMOUNT OF ORDER • ■;BQ 

1128 INPUT "DO YOU WISH TO RUN PROGRAM WITH A DIFFERENT IAR (Y/N 

) ?*|M$ 

1138 CLS 

1148 IP M$-"Y" GOTO 840 

1158 FOR JK=1 TO IBiLPRINT CHR$(13);" ":NEXT 

1168 LPRINT CHRS(27);CHR$<14)»TAB(10)*LIST OF TERMS' 

1178 POR JX=1 TO 2: LPRINT CHRS(13);" "tNEXT 

1188 LPRINT" IAR INVENTORY ALLOCATION RATE' 

1198 LPRIWTN TURNOVER* 

1288 LPRINT'OC ORDERING COST* 

1218 LPRIHT'CC CARRYING COST* 

1228 LPRINT'TC TOTAL COST* 

1238 LPRINT'AVE AVERAGE INVENTORY* 

1248 LPRIWPCL FINANCIAL CONTROL LIMIT" 

1258 LPRINT'CAT CATALOG NUMBER* 

1268 LPRINT'D DEMAND* 

1278 LPRINT"EOQ — ECONOMIC ORDER QUANTITY" 
1288 FOR JX-1 TO 18:LPRINT CHR$(13)|" ":NEXT 



DEALER 



Limited. JJtALfchi Notice 

Join the FASTest growing list of 
distributors to offer the BEST software 
available for the RADIO SHACK Model I, 
Model III, and color computers. 




STURDY RETAIL PACKAGING 
QUANTITY DISCOUNTS 

THE BERG WORKS 

Box 742H, Janesville, Wi. 53545 ^35. 



lAI th 








■'Sm List ot Advertisers on page 418 



CPAs Celebrate CPAids 
1040 Federal Tax Software 

Our Master Tax program for your microcomputer features a year-round 
fixed-asset program and a proforma tax organizer Choice of 4 print 
routines. 12 different schedules and 17 forms. 

CP/Iids 

1640 Franklin Ave.. Kent, OH 44240 (216) 678 9015 
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FEATURES: 



1 ) Radio Shack compatibility 

2) Error free variable length records 

3) Full lower case detection and support 

4) Repeating keyboard with NO keybounce EVER 

5) Shift [0] typewriter keyboard option 

6) Execute only protection feature lor BASIC programs 

7) Automatic track support for 35 through 80 track drives (mixed) 

8) Device I/O handling with FORCE command 

9) Supports high speed clock modification (up to 4 Omhz) 

10) Supports mixed mode (single & double density) automatically 

11) Allows disable enable of break key 

12) Allows user to define step rate per drive and re-configure system disk 

13) Allows for efficient use of double-headed drives 

14 1 Built in screen printer ishift (CLEARj,. with [BREAK] key abort 

15) Multiple command chaining with DO' 

16) Built in memory test with CLEAR command 

17) New printer driver which allows complete forms control and paging 

18) Automatic serial printer driver with optional auto linefeed 

19) Execute any DOS command from BASIC and return to BASIC 

20) Free space map of diskette with optional output to printer 

21) Copy with variable length files 

22) Complete RS232 control from keyboard with status check 

23) Create and pre-allocate files from DOS 

24) Display current date and time from DOS 

25) More information from Directory with optional printer output 

26) Enter DEBUG with shift [BREAK] to allow use of [BREAK) from BASIC 

27) New DISKDUMP'CMD sector display/modify program (works with tilespecs) 

28) New DISKZAP/CMD single/double density disk editor 

29) New BACKUP (more reliable, no more pack ID check) 

30) New FORMAT (more reliable, no need to bulk erase disk first) 

31) New MAP utility (maps out dtsK, showing where files are located) 

New DOSPLUS Z80 Extended Disk BASIC 

1 ) Faster loads and saves 

2\ BASIC Reference utility (lines variables, keywords, printer option) 

3) BASIC Renumber utility (renumber section of text, block text move) 

4) Shorthand features for almost ANY direct command (LOAD SAVE etc ) 

5) Shorthand features for editing (listing and editing with single key) 
6i CMD M instantly displays currently set variables 

7) Global search and replace in BASIC text 

8i Line printer TAB to 255 

9) OPEN E' to end of sequential file (for output) 

10) Dl (delete and insert text line) 

11) DU (duplicate text line) 

12) °.R' & .V options after LOAD and RUN (files open & save variables) 

13) OPEN D allowed (Model ll compatible) equal to OPEN R' 

14) DOS commands from BASIC 

15) Automatic error-free variable length records 

16) Single step execution with IRON (fabulous for debugging) 

17) CRUNCH (BASIC program compressor) 

18) New TBASIC (tiny BASIC) offers full BASIC commands 

19) TBASIC and DOSPLUS together only use8K of RAM (40K left in 48K TRS-80) 

***** 7 MORE UTILITIES ***** 

1 J Single drive copy 

2) Restore (dead files) 

3) Purge (unwanted files) 

4) Clearfile (destroys data by writing zeros to file) 

5) Transfer (moves all user files from one disk to another) 

6) Spooler (allows printing of text while freeing up the CPU) 

7) Crunch (Basic program compressor) 



DOSPLUS gives you more of what you buy an opera- 
ting system for. Speed and reliability without sacrificing 
simplicity and power. If you need extra power without 
extra wait, then you need DOSPLUS! 

Single or double density systems available for Model I 
Model III DOSPLUS ready for immediate delivery. 

Perhaps the best investment you can make for your 
TRS-80! Listen to what others have had to say about 
DOSPLUS. 

"Overall, DOSPLUS is the fastest operating system 
I have seen..." 

Pete Carr in 80-US Journal. 

"DOSPLUS... the better mousetrap." 

Stewart Fason in 80-Microcomputing 

On a scale of 1 to 10, 1 give DOSPLUS a solid 9." 

Reese Fowler in 80-Microcomputing 
(Model III DOSPLUS review) 

For the BASIC programmer, our features are un- 
matched. For the average businessman, our speed and 
simplicity cannot be beat. 

So, join the satisfied users who have joined DOSPLUS. 
Experience excellence! Experience DOSPLUS! 

DOSPLUS comes complete with full utilities, PLUS 
a FREE patch to enable Model I Scripsit/Super 
Script to run on Model III, UNLIMITED Backups! 



Model I DOSPLUS — $ 99 95 

Model III DOSPLUS — 8 99* 

Model I double density upgrade — s 175 °° 

Master Directory 1.2 (double density) — $ 29 ! 



ALSO 



New I/O package 30% faster 

No BREAK key death from DOS 

No closing killed files and ruining diskettes 



STEP ON THOSE 

DOS BUGS!! 
ORDER TODAY!! 





Jgf/€#&i$W3W*MM 

Specializing in the Tandy Line 

5846 Funston Street 
(305) 983-3390 Hollywood, FL 33023 




CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 193 
FOR VISA/MASTERCHARGE/C.O.D. ORDERS 
California dial (800) 852-7777. Operator 193 
Alaska and Hawaii dial (800) 824-7919 Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONL Y ! 
For Applications and Technical information call 
(305) 983-3390 or drop us a card 



Dealers inquiries invited 




Dosplus 3.4 upgrades will be available for all registered and/or legitimate 
owner's of Dosplus 3.3 or 3.38 starting January 1st, 1982 

Those owner's who have sent in registration cards will receive a letter telling them of the upgrade. 
Those owner's who did not receive a registration card must use the following procedure if they do not receive 

an upgrade letter by January the 15th. 

1. Send in proof of purchase. 

and 
Your master Dosplus diskette. 

2. Send in the upgrade fee. 
Registered owner's will only be required to send in the upgrade fee. 

The upgrade fee will be $25., and will include a new diskette, AND the new expanded manual. The Dosplus 3.4 
manual also includes a new technical section that has complete I/O calls and DCB organizations. 



M-ZAL Disk Assembler 

THE FINEST MACHINE LANGUAGE DEVELOPMENT PACKAGE MONEY CAN BUY. 

A complete development package for the machine language programmer. 
Novice and experienced programmer alike will recognize the superior features of this excellent package. 

The heart of the system is CAU's M-ZAL disk assembler. 
This includes: 

1. A full screen text editor. 

2. A super fast assembler with optical relocatable code. 

3. A linking loader for use with this relocatable code. 

Retail price on the M-ZAL package is $1 49.00, and is available Model I (single or double density) and Model II 



More programming power than you will find 

ANYWHERE ELSE IN THE WORLD 
Demand will be high so order yours today! 



mm 



Specializing in the Tandy Line 



^384 




(305)983-3390 



5846 Funston Street 
Hollywood, FL 33023 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 193 

FOR VISA/HI ASTERCHARGE/C.OD. ORDERS 
California dial (800) 852-7777. Operator 193 
Alaska and Hawaii dial (800) 824-7919. Operator 193 
TOLL FREE UNES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information, call 
(305) 983-3390 or drop us a card. 




VISA 



Dealers mauines invited 



HARDWARE 



An auto-adjusting speed-up mod for shifty '80 owners. 



Cruise Control 



Ken Walljen 
2311 Lincoln Blvd. 
Tracy, CA 95376 

Dan Placido 

26286 Peterman Ave. 

Hayward, CA 94545 



Clock modification kits and 
circuits are now common- 
place items to most TRS-80 own- 
ers. Some are hardware con- 
trolled by a switch and some are 
software controlled. In both 
cases the operator must inter- 
vene to set the clock rate. 

The circuit in this article pro- 
duces a hardware controlled 
clock that needs no operator in- 
tervention except to set the 
speed' 

Why is it necessary to have a 
form of control? With a very 
simple change, your TRS-80 
can be running at 2.66 MHz in- 
stead of the standard 1.77MHz. 

This modification will give 
your TRS-80 an automatic 
transmission! If the disk is in 



use or the cassette is in use, 
shift to low speed. There may 
be a gate that can do your job. 

The schematic in Fig. 1 is the 
complete automatic transmis- 
sion modification. One of two 
clock signals is routed through 
IC2 to the clock input of the 
Z-80 central processing unit 
(CPU). The signal called SC 
(slow clock) is the normal 1.77 
MHz clock of the TRS-80. FC is 
the raw clock divided by four to 
produce 2.66 MHz. or a 50 per- 
cent increase in speed. IClb is 
the control flip-flop that deter- 
mines whether the SC or FC 
signal is the one in use. This 
selection is based on the data 
input to IClb. If the disk motor 
is running or the cassette latch 
is closed, pin 1 of IC2a will go 
low. At clock time IC1b will go 
to the reset state enabling the 
SC signal. The rest of the time 
IC1b is set and FC is enabled. 

Because of the frequency 
and phase differences of FC 
and SC, switching must be ac- 
complished at the right time. 
IC1a divides the SC signal by 
two and, on its positive phase 
edge, signals a valid switching 
time. For most machines this 
proves adequate. 



Take a look at the timing 
diagram in Fig. 2. As drawn 
(look at point A) IClb-Q be- 
comes positive in just the right 
place. Switching here causes 
an instantaneous speed of 3.55 
MHz when changing from slow 
to fast. All Z80s in my expe- 
rience can sustain this rate 
for one system clock. However, 
the phase of IC1 is determined 
by power-up conditions. If the 
phase of IC1a were shifted 
(only 180 degrees is possible) 
the switching time would be 
wrong. The phase of IC1a in re- 
lationship to SC and FC de- 
termines the correct switch 
time. In most cases this phase 
control or sync is not a problem. 

The cure for this malady is 
another flip-flop that can 
detect and correct the out-of- 
sync condition. The sync flop 
(IC3) is enabled only during the 
positive half cycle of SC. If FC 
goes true during this period. 
IC1a should be in the reset 
state. The Q-not output of IC3 
goes true (low) during this time 
and resets IC1a if it is in the 
wrong state. Again, IC3 is not 
necessary in most cases: it is 
just insurance and a good 
design practice. 



The circuitry can be imple- 
mented in almost any fashion 
but, remember, you are dealing 
with high frequency signals! 
Wires should be kept as short as 
possible to eliminate inter- 
ference and stray capacitance. 
The resulting circuit should be 
mounted as close to the low- 
er right corner of the CPU board 
as possible (near IC43). The sig- 
nal from Z25-5 in the expan- 
sion interface should be car- 
ried by a twisted pair (one and a 
half twists per inch), with an ac- 
companying ground. The 
RG-174 shielded cable also 
works very nicely and includes a 
large selection of connectors to 
make separation of the CPU and 
expansion interface simple. For 
installations where there is no 
expansion interface, pin 2 of IC 
2a should be grounded. Alter- 
nately, a switch can be con- 
nected to ground and IC2a-2 for 
a manual override. 

Installation time for this mod- 
ification (including etching a 
circuit board) is about four 
hours. The signal FC originates 
at Z56-12. This is an unused flip- 
flop in the divide by six or 
twelve counter Z56. Clock/2 
from Z43-2 is connected to 
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TRS-80® SJJf^aRE TRS - 80 ® 



MODEL III SOFTWARE 

26-1563 Scripsit I & III $79.00 

26-1566 Visicalc I $83.00 

26-1567 Visicalc III $83.00 

26-1552 General Ledger $90.00 

26-1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivable. . . . $135.00 

26-1554 Accts. Payable $135.00 

26-1558 Bus. Mail List $90.00 

26-2201 Fortran I $90.00 

26-1562 Profile $72.00 

Plus many more 

COLOR SOFTWARE 

26-3050 Chess $36.00 

26-3051 Quaser $36.00 

26-3052 Pinball $27.00 

26-3053 Football $36.00 

26-3055 Checkers $27.00 

26-3057 Dino Wars $36.00 

26-3059 Backgammon $27.00 

26-3152 Typing Tutor $27.00 










— — ~g— 



















MODEL II SOFTWARE 

26-4530 Scripsit II $265.00 

26-451 1 Visicalc II $265.00 

26-4512 Profile II $162.00 

26-4501 General Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26-4504 Accts Receivable. . . . $270.00 

26-4505 Accts Payable $270.00 

26-4507 Mail List II $108.00 

26-4701 Fortran $270.00 

26-4703 Cobol $270.00 

Plus many more 

POCKET SOFTWARE 

26-3510 Real Estate $22.50 

26-351 1 Civil Eng $22.50 

26-3513 Aviation $22.50 

26-3516 Bus. Statistics $18.00 

26-3517 Bus. Financial $18.00 

26-3518 Per. Financial $18.00 

26-3514 Math Drill $13.50 

26-3515 Games $13.50 



ORDER TOLL FREE 1-80Q-841-Q860 

CALL US - SAVE MONEY 

We carry the full line of TRS-80 Computers. All TRS-80 software, 
furniture, and accessories sold at discount. We stock most items to 
assure you fast delivery and save you money. 

WRITE FOR FREE CATALOG 



MICRO MANAGEMENT SYSTEMS, INC. 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. # 4A 
115 C. SECOND AVE. S.W. 
CAIRO. GEORGIA 31728 " 423 
(912) 377-7120 Ga. Phone No. 

TK-M U registered trademark of the Tandy Corp. 



Thousands of 
Satisfied Customers 



VISA And 
Mastercharge Welcomed 



• Stm Lislol Advertisers on page 4 18 
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Z56-14 to provide the clock/4 the output of the automatic connection to Z29-5 in the ex- expansion interface, opening 

needed by FC. The trace run- transmission is connected to pansion interface is the disk this circuit will force the clock 

ning from Z56-8 to Z72-12 must Z72-12. The signal cassette motor on signal. If a connector to the slow speed. This may be 

be cut. Z56-8 provides SC, and latch is made to Z59-10. The is used in the connection to the helpful for testing. ■ 



DISK MOTOR ON, 
E/I Z29-5 



CASS. 
LATCH. 
Z59-I0> 



I3 CLK. OUT 
, 2/ Z2d>>->TO 

Z72-I2 




ZI.3 =74LS74, LOW-POWER. DUAL D FLIPFLOP 
Z2*74LS02. LOW- POWER QUAD 2-INPUT NOR GATES 
ALL IC's,= V cc TO PIN 14. GND TO PIN 7 



Fig. 1. 
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Fig. 2. 
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NEED A PRINTER? 

UP TO 25% DISCOUNTS! — same day shipment! 



CENTRONICS 739 

With Graphics and 

Word Procassmg Print Quality 

• 18 « dot matrh<; suitable *<y word 
processing • Underlining • proportional 
spacing • right margin justification • aarlf 
•voeieco • 8Qf »00 CPS • §M ' Pin 
►-eeo'Friction i—o • Reverse Ptaten • 
act 32 column • Top of form 
CENTRONICS 73t,i (Parallel) list $955 $725 

CENTRONICS 73*3. !>r t ; ;usl$1045l $81B 

GRAPPLER™ Apple grac "'C4 nterfaca $166 



ANADEX 





ANADEX 9501 



QRAPPLER TV Apple graphics intertaca 



Oof Graphics Wide Carnage 



1 dot matrix, lower caw descen 
der* • Dot resolution graphics • Bl 
directional, logic seeking • Up to 200 
CPS • RS 232 Serial t Parallel • Forma 
control • X OWX-OFF • Up to A pan 
copy. 

si $1650) $Ceil 

$166 




C. ITOH STARWRITER 



Daisy Wheel Letter Quality 

• 25 CPS tOplional 45 CPS) • Typ»mtnar 
Quality • Centronics parallel • PS 232 
Serial (Options'! • Proportional spacing • 
Bidirectional • Programmable VFU • Sell 
xab«o comoalibie • Fncuon feed 
(Optional tractors) • 136 printable columns 
edbyTEC 



C ITOH STARWRITER List $1695) * 1525 

C cv)p£ B ! 

S^H IDS PAPER TIGERS 

Dot Resolution Graphics, 
quality print, speed 

9 wire pnnthead 
4S0t Aitn lowrer case descenders • Over 
160 CPS • actional, logic seeking 

• 8 cbaracter sizes; 00-132 columns 
• Adjustable tractors • Hicn-'esc uik>o dot 
graphics • Proportional spacing $ 
lust it teal ion 

(OS 480Q 9 wire pnnirtaad. graphics U*t$i094) $Cail 

IDS 580G a da carriage, graphics , list $1394) $CaM 

QRAPPLER™Appie graphics mtarface *'65 

CALL FOR INFORMATION & CATALOG 

(800) 854-8275 

CA,AK, HI (714) 630-3322 

RETAIL PRINTER STORES: 
Store »i 3150 E La Paima,* I. Anaheim. CA (714)830-3622 
Store «2 1 3604 Ventura Bl Sherman OaKS, CA (2 1 3 50 1 -4* 
Store Hours MF 106 Sat 10-4 





EPSON MX80/MX70/MX100 

Low- Priced 
Professional Print Quality 

• 9 x 9 dot matrix • Lower case descender* 

• 90 CPS • Bidirectional Logic seeking • 
40 66 60 132 columns per line ■ 64 special 
graphic characters: TRS-60 Compatible • 
Forms handling • Multi pass printing • Ad 
justabie tractors 

t*e a/90 can -fa lull hnm 
or Accessor)** 

EPSON MXBOii MX*0> 1 (ListS645| SCaM 

EPSONMX70DolgraprMca,5x7matr.» i.vJOi SCall 

EPSON MX100 «tde carnage, graon.es . . (List $945) $CaH 

CRAPPLER* M Apple Graphics interface $ 166 

ORAFTRAX 60 MXM Dot Graphics S 96 

MX80/70 FRICTION FEED KIT 

User installable kit lor single sheets 

Easy 30 T>nu!*> mstaiui ■ • . $ 7S 





NEC 8023 DOT MATRIX 

Dot graphics • too CPS • Bi-d.' actional logic -seeking • 
Tractors 6 friction feed • 6- Alphabet fonts • 6 character sizes 
• Proportional spacing 
NEC 8023 DOT MATRIX * Call 



NEC SPINWRITER 

High Speed Letter Qv 
• 55 CPS • Typewriter quality • Bidirectional • Plotting • pro- 
portional s; • 

7710RO. Serial . <Li*l$3055) $2576 

7730RO. Parallel List $30551 $2576 




TELEVIDEO CRT'S 

AT DISCOUNT PRICES! 



i r 'W inc »'. ■ 



no 

TVI912C 
TVI 920C 
TVI950 



1 " 



PteaaeCaii Toil Free 
Prices are too low to 

dvert.se 



ADDS VIEWPOINT 



CRTS 
PRINTERS 



CLiSt $ 699) * 600 






qi . i. -list $1975) 



MALIBU 165. -i. 

OUME SPRINT 9 

DIABLO 630 

ANACOM 150. (List $1360) 

INTERFACE EQUIPMENT 

EPSON ACCESSORIES 
ORANGE INTERFACE i *|.,4eil 

i. i i ■ i i .'i i i 

I TRS-60 CABLES i »eeyt arte r*o interface 
NOVATION D CAT -ct modem 

.HAYES MICROMODEMS [Apple Hi 



$1325 

»Cal 
SCaH 
ICall 

SCatl 

$ 110 
SCall 
t 160 
ICall 



Orange ITIkro » 

w inc. 

3150 E. LaPaim*. Suits G. Anaheim. CA 92608 
7/ie Computer Printer Specie 

Prior* cam AFiCOMf Mint day tfiiomanl f*rw on c* VISA S MASTER 
CAPO COO's acoeptao Manufacturer s trarraniy mcluci«<J on all •ou*cm«rt_ 
Kieassubisci toweion 



GENERAL 



Programmers, put your hands on the computer 
and feel that assembly code! 



The Conversion 



Robert Woeger 

7130 WhitakerAve. #fl 

Philadelphia, PA 19111 



All of you "would be" Assem- 
bly programmers take heed, 
for you are about to break the 



barrier into the ultimate pro- 
gramming language! This arti- 
cle discusses an easy conver- 
sion for Basic programmers 
into the almighty world of 
TRS-80 Assembly programming. 
This is a "hands on" article, so 
get your hands on that Radio 
Shack EDTASM and a few blank 
cassettes or a disk. Model III 
owners can use this informa- 



: SET (X.Y) Demonstration routine 




START 


LD 


HL.O 


: X coordinate is loaded into HL 




LD 


(VARX).HL 


. save variable "X" m memory 


SET 


LD 


H.128 


: this tells ROM we want to set a point of 
graphics 




LD 


A,(VARX) 


; get "x" coordinate 




LD 


B.A 


; move "x" to B register 




LD 


A.(VARY) 


; get Y coordinate 




CALL 


GRAPH 


, graph the point 


INCX 


LD 


HL.(VARX) 


, this section is like Basic's "X =X ♦ 1" 




LD 


DE.1 


. increment value (the + 1| 




ADD 


HL.DE 


; add "x" ♦ 1 




LD 


(VARX), HL 


; update new "*' 


IFX128 


LD 


HL.(VARX) 


: this routine does: If X = 128 Then 40 Else 
set 




LD 


DE.128 


; 16 bit compare for 




RST 


18H 


; subtract DE from HL set Z flag if zero 
results 




JB 


Z.L40 


: if zero then line 40 




JR 


SET 


; Set next point 


GRAPH 


PUSH 


HL 


. graph with ROM Set routine (A.B) is point 




PUSH 


BC 






LD 


HL.DUMMY 


; dummy string to make ROM think this is 
Basic 




JP 


150H 


; off to ROM and it will return to program 


DUMMY 


DEFM 


'):' 


: left parenthesis and semicolon for ROM 


L40 


JP 


6CCH 


call 


VARX 


DEFB 





: same as End statement 


VARY 


DEFB 


4 








Program Listing 1. 



tion, but as you are no doubt 
aware, the folks who sell our 
computers changed the ROM. A 
special section, at the end of the 
article, will advise Model III 
owners on how to get in on the 
action. 

The Editor/Assembler will be 
our tool into the fundamentals 
of Z-80 Assembly program- 
ming. It is assumed that the 
reader has an understanding of 
using EDTASM. One should 
know how to type in an 
Assembly program, assemble 
object code, write source code, 
and use pseudo-ops (ORG, 
EQU.DEFB, and so forth). If you 
can afford it, the REMASSEM-1 
course is a good tutorial for the 
Assembly program neophyte. 

The first thing that we will 
discuss is how to clear the 
screen. What users would or- 
dinarily do in Basic CLS, is 
either very easy or hard. We 
could use our trusty ROM calls, 
or we could write 15 lines of 
source code. Two very easy 
methods will be shown here; 
one that is a true ROM call and 
one that uses control codes. 
This is the ROM call routine: 

CALL 1C9H ; clears the screen 
(BASIC 'CLS entry 
point) 
or the control code method: 

LD A.1CH : home cursor control 
code 



CALL 33H . display byte in A 
register routine 

LD A.1FH erase to end-of- 

screen control code 

CALL 33H ; display byte in A 



The next example shows a 
method of numeric variables 
and the Assembly program 
equivalent of the Basic Set(X.Y) 
command. In this situation, our 
friendly ROM calls come to the 
rescue once again. (Note: no er- 
ror checking is provided using 
this method, so don't try to set 
a point that is out of range!) The 
routine is Program Listing 1. 

This will draw a graphics line 
(horizontally) at the fourth Y 
coordinate line. Here you see 
an example of setting a point at 
300 times the rate of Basic. 
That's right, Assembly pro- 
gramming is generally 300 times 
faster than Basic! Why do you 
think all of the great arcade 
games are written in Assembly? 

You also saw examples of 
If . . . Then . . . Else statements, 
X = X + 1 statements, and let 
X = 0. Instead of the "JP6CCH" 
statement, End statement in 
Basic, you could have gone on 
to another routine in an Assem- 
bly program. You need not totally 
understand this routine: just use 
it as a guide in writing your own 
Assembly programs later on. 
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Note: to do a Reset(x.y) instead 
of a Set(x.y) change the one 
statement beside the label Set 
from "LD H.128" to "LD H,1". 
With just this one modification 
to the routine, the resetting of 
graphics may be done in 
Assembly also. 

Now let's attack the famous 
Print message statement. In 
Assembly programming you 
simply point the HL register to 
the beginning of an ASCII 
message string that is ter- 
minated by an 03H byte. The 
generalized message display is 
shown in Program Listing 2. 

Next we will convert the Print 
STRING$(Y,B) from Basic into 
Z-80 Assembly programming. 
For those of you who don't 
know what Y and B stand for, Y 
is the number of repetitions of 
the ASCII character number in 
B. The following routine will 
prove very useful for tables and 
printout programs: (Note: 
VARY and VARB must have 
previously been defined in your 
program with DEFBs). 



LD 


A.(VARY) 


; get Y value 


LD 


B.A 


; move to B 


LD 


A.iVARBl 


; get b value into A 


CALL 


33H 


; display byte In A 


DJNZ 


$-3 


; wait until b « 


RET 







Finally I am going to go over 
the conversion of the Print & x, 
message from Basic to As- 
sembly. The HL register has the 
first video RAM location into 
which the message will be put. 
See Program Listing 3. 
To find the value for HL, add 
15360 decimal to the Print at 
location. 

Model III User Hints 

You can use these subrou- 
tines with very little or no modifi- 
cation. Try this out: if a routine 
won't work with your new ROM, 
use a good disassembler and try 
to find what looks like the right 
call. Normally the ROM call 
should be very close to that 
given (within 30 bytes). Please 
write me with the calls for the 
Model III if you find that they are 
different from the Model I 
calls.! 



DSPLY 


PUSH 


HL 


save HL register 


TEST 


LD 


A,(HL) 


get next character 




CP 


3 


see it terminating byte 




JR 


Z.TERM 


it 03 then done 




CALL 


OUTPT 


display byte in A 




INC 


HL 


move HL over next character 




JR 


TEST 




TERM 


POP 


HL 






RET 




return to calling program 


OUTPT 


PUSH 


BC 






PUSH 


HL 






CALL 


33H 


display 




POP 


HL 






POP 


BC 






ret 






Remember to "LD HL.MES1" th 


en "CALL DSPLY". An example tollows: 




CALL 


1C9H 


CLS 




LD 


HL.MES3 


point HL to message 




CALL 


DSPLY 


display string 




JP 


START 


do the Set routine under message 


MES3 


DEFM 


Model l 


Assembly program by JOHN DOE.' 




DEFB 


OAH 


. carriage return 




DEFB 


3 








Progra 


m Listing 2. 



LOW PRICES ON TRS-80* 

From Radio Ranch, Inc. 




In business 27 years at the same location pro- 
viding electronic equipment and service. 

We Are Better Equipped To Provide 



TRS-80 

COMPUTERS & 



Accessories 

Software 



TRS-80 Mod II b4K $440.00 

TRS-80 Mod III *2k 2 Dr 2195.00 

TRS-80 I ine Printer b 1020.00 

CORVl 5' * "»-1()-20 M Hard Disks . . . Call For Prices 
"CORDOS" and "OASIS" operating systems 

Full Factory Warranty - Complete Service Department 

Madia Ramjch. $na. -» 

Cert. Check m. ™^ Route 3. Radio Ranch Airport 

( .ishior*. Ck 5^8 "^ Polo, Illinois 61064 

Call Toll Free 800-435-8310 In III. Call 815-946-2371 



LD 


HL.16346 


; Print <3 location 966 


LD 


<4020H),HL 


; set cursor position to 966 


LD 


HL.MES2 


; point to message 


CALL 


DSPLY 


; gen display routine call 


RET 






MES2 DEFB OAH 


;CR 


DEFM 


This is Print location 986 decimal! 


DEFB OAH 


;CR 


DEFB 


3 






Program Listing 3. 




"NEW USES FOR THE ] 

HOME 
COMPUTER 

IN THE 

STOCK 
MARKET" 



-See Lis I o! Advertisers on page *'8 



A new book— contains a gold mine of ideas!! 

Do you have the great stock and commodity trading advantages 
given by the home computer to the few who properly us it? This 
book gives you a new insight into cycles and seasonal factors as 
they affect stock and commodity prices. It gives you solid tools for 
measuring and profiting from them Obtain ideas and programming 
never before published The writer has over 90 years experience as a 
stock broker and 8 years experience programming computers Book 
is 8V? inches by 11 inches and has 254 pages and 34 programs writ- 
ten in TRS-80 BASIC. 

The book borrows methods long understood by radio and electronic 
engineers but overlooked by most statisticians Thus, it is able to 
present methods, never before published, of stock and commodity 
market timing using cycles and seasonal variations 

To order book-send check $19.95 and your name and address 
to: 

Thomas V. Lenz, Dept. M 
596 W. Karval Ct. Spring Creek 
L Elko, Nevada 89801 " 63 
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UTILITY 



LOAD 80 



Dive into your disks if you dare. 



Floppy Fixer 



James A. Beebe 
16221 178 Place N.E. 
Woodinville, WA 98072 



the system won't boot up. 
Please, use it with caution. 

Communicating With The Drive 

When I first purchased my 
disk drive, I had no operating 
system. I wanted at least to test 
the drive before my warranty 
ran out. This meant that I would 
have to write my own disk I/O 
routines. 



Ever wonder what's out 
there on your disk? Here's 
a utility that will let you look 
anywhere and modify anything 
on it. The program contains its 
own disk I/O (Input/Output) 
routines and doesn't need any 
operating system to do its 
work. 

All you need is your Level II, 
16K machine with at least one 
disk, an editor/assembler and a 
little time. Now, you're ready to 
dive into those mysterious 
utilities supplied with your 
system. 

Although this utility is infor- 
mative and interesting, a cer- 
tain amount of risk is Involved 
when you start writing sectors 
on your disk. I am mentioning 
this so some poor soul does not 
indiscriminately write sectors 
on a disk and then wonder why 
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How does one communicate 
with the disk drive? Radio 
Shack uses a chip called a flop- 
py disk controller (Western Digi- 
tal's 1771) inside the expansion 
interface. 

To communicate with this 
controller, your expansion in- 
terface contains four memory 
mapped locations, starting at 
37ECH, to store and receive in- 
formation. Your DSKMOD util- 
ity must put the information in- 
to these locations that the 1771 
chip needs to control the drive. 
Likewise the 1771 returns infor- 
mation to these locations in- 
dicating what it has done. 

Being the fearless type, and 
probably a little foolish too, I 
obtained a copy of Western 
Digital's 1771 Floppy Disk Con- 
troller Manual. The manual ex- 



plains all the disk I/O software 
commands available. By sen- 
ding the 1771 the right com- 
mands, your program can read 
and write to the disk just like 
any of the commercial disk 
operating systems (DOS). (I 
don't want to get too detailed 
about how the 1771 works. If 
you are interested, I suggest 
you get a copy of the manual. In 
fact, maybe you can add some 
routines of your own.) 

Three-section Program 

Written in Assembly, the pro- 
gram is divided into three sec- 
tions: A main menu routine that 
gets your input from the 
keyboard; a set of routines to 
perform all of the commands; 
the disk I/O routines. 

The main menu shows you 
exactly what commands are 
available and allows you to 
choose one. The program is 
limited to some basic func- 
tions, but I'll add more as my 
experience with disk opera- 
tions increases. Currently, you 
can read, write, modify or zero 
sectors. You can also display or 
print them in both hex or ASCII. 

You select a command by en- 
tering a corresponding charac- 



ter. The program finds the ad- 
dress of the routine in the com- 
mand table. 

For example, to select the 
Display command, enter the 
letter D. The address of this 
routine is the fourth entry in the 
command table. If you enter 
any new commands, display 
the command on the screen 
and enter the address of the 
routine in the command table in 
its alphabetic position. 

The disk I/O section of the 
program consists of five 
routines: FDRDY selects the 
disk; TRZERO positions the 
disk to the first track; TRSEEK 
finds a track on the disk; 
SECGET reads a sector from 
the disk; and SECPUT writes a 
sector to the disk. 

Getting the utility up and run- 
ning on any TRS-80 requires a 
little time, but not much else. 
All the device handling codes 
are in the program, including 
getting keyboard input and out- 
putting to both the printer and 
the screen. 

The program does not de- 
pend on ROM routines and you 
may want to use them to save 
space. Also, I have an ASR 33 
teletype printer connected to 



the serial port of my expansion 
interface and need the custom 
printer routine. If you do not 
have a printer, or if your printer 
uses the standard parallel con- 
nector, then you will most 
definitely have to change this. 

Running The Program 

First, type the program using 
your editor/assembler. You can 
save your fingers quite a few 
strokes by eliminating all the 
comments. In fact, you may 
have some difficulty assembl- 
ing the program in 16K, if you 
don't leave out the comments. 
At this time, you can also use 
any ROM routines in place of 
the routines I have supplied for 
keyboard input and printer out- 
put. 

I start the program at 7000H, 
but if you want to place it 
elsewhere in memory, simply 
change the ORG 7000H state- 
ment. As written, the program 
uses memory from 7000H to 
7AFFH. 

When you have entered and 
modified the program for your 
equipment, assemble it and 
make sure that you have no er- 
rors. I always use the /WE 
switch in EDTASM (editor/ 
assembler) that stops the 
listing on the error. Use a com- 
mand like: A DSKMOD/WE. 

If everything goes according 
to plan, you can now load a 
cassette and prepare to record. 
When EDTASM tells you the 
cassette is ready, press return, 
and now you have a copy of the 
utility ready to go to work. 

Get back to Basic and rewind 
the tape to the start of 
DSKMOD. Type SYSTEM, and 
in response to the prompt ?*, 
you should type DSKMOD and 
press Enter. If all is going well, 
the stars in the upper-right cor- 
ner will blink for about 20 
seconds. Now, you will see ?* 
again. Simply type / and hit 
Enter. 

Well, if you've made it this 
far, you're ready to test the pro- 
gram. I suggest you use an ex- 
pendable disk. First, try to read 
a sector. In response to the 
Command? prompt, enter R. 
You will be prompted for the 
drive, track and sector numbers 
at the bottom of the screen. If 
you only have one disk, then 



enter 1 for the drive number. 

Two blanks follow the words 
track and sector. These num- 
bers must be entered as two 
hexadecimal digits. TRSDOS's 
last track is 22H and its last 
sector is 9, but I allow a double 
digit sector number for use with 
other disks. For this test, enter 
00 for the track and 00 for the 
sector. The program should 
read the sector into memory. 



both graphics and characters. 
To return to the main menu, 
simply press the X key. 
Generally, pressing X at any 
time returns you to the main 
menu, even if you are in the mid- 
dle of a command. 

Modify Sector 

Modeled after TBug's M com- 
mand, after pressing M, the pro- 
gram prompts you for the start- 



"Ever wonder what's 

out there 

on your disk?" 



You can now use all the other 
commands to act on this sec- 
tor. You can display it or print it; 
you can modify individual 
bytes; you can zero the entire 
sector; and you can write this 
sector to any place on disk. 

How to Use DSKMOD 

Now that you have the pro- 
gram on your machine, and it 
has passed its first test, you're 
ready to learn how to use it! 
Below is a description of each 
command and how it works. 

Display Sector 

If you press D in response to 
the Command? prompt, you will 
display the sector buffer. Each 
line shows 16 bytes in hex and 
then the same 16 bytes as 
ASCII characters. If you display 
a sector of a machine-code pro- 
gram, the ASCII display will mix 



ing byte in the sector to modify. 
Enter the two-byte hex offset 
where you want to start. The 
screen displays the offset and 
its contents. (The offset is a hex 
number added to your start 
address.) 

You can now change the 
value by typing any two valid 
hex digits. If you want to go on 
to the next byte, press the 
space bar. Also, by entering the 
magic X, the program returns to 
the main menu. 

Read Sector 

This command allows you to 
read one sector at a time from a 
disk into the buffer. Pressing R 
displays a prompt at the bot- 
tom of the screen. Enter the 
disk drive number 1-4 followed 
by the track and sector you want 
to read. Remember that the 
track and sector are two hex 



digit numbers. 

If you enter a track/sector 
that does not exist on your disk, 
the program hangs up. The pro- 
gram does not check for errors. 
If you've entered everything 
correctly, you should be able to 
display the sector you just 
read. 

If you want to cancel this 
command at any time, simply 
enter X. 

Write Sector 

This is the dangerous com- 
mand. You select this com- 
mand by entering a W. You 
need the same information as 
for the read sector command: 
disk, track and sector number. 
Remember, you must format 
the disk before writing to it. If 
the track/sector that you select 
can't be found on your disk, the 
program hangs up. To cancel 
the command, press X any 
time. 

Zero Sector 

This is the easiest command 
to use. Simply enter Z and the 
sector buffer will be filled with 
zeros. You may want to clear a 
sector on disk, so first zero the 
sector buffer and then write 
onto the disk using the Write 
command. Not much to this 
command, but it can prove 
useful. 

Though the commands are 
limited, you're welcome to add 
new ones. Even if you already 
have a utility that performs 
these functions, you can use 
this program as a guide to 
writing your own disk I/O 
routines. ■ 









Pro 


gram Listing 




00100 
00110 










' ' i > > ' 


' ' ' ' ' 


i i 1 1 1 1 1 1 1 1 • • i • i • i i i i i i i 1 1 1 1 1 




00120 






DISK SECTOR ; 




00130 




DISPLAY/MODIFY UTILITY 




00140 










00150 










00160 




JAMES 


A. BEEBE 




00170 




FEBRUARY 1981 




00188 
00190 
















00200 




DEFINE Fl.OPK-; '.jZEY. PARAMETERS 




00210 








0000 


00220 


3USY 


EQU 





FDC BUSY 


0001 


00230 I 


)RQ 


EQU 


1 


DATA REQUEST 


0003 


00240 


NESTOR 


EQU 


3 


RESTORE TO TRACK 


0013 


00250 


SEEK 


EQU 


10H+RESTOR 


SEEK TRACK 


0000 


00260 ( 


ZLEARS 


EQU 


0D0H 


CLEAR STATUS 


008C 


00270 1 


*EADS 


EQU 


8CH 


READ SECTOR 


00AC 


00280 I 


WRITES 


EQU 


0ACH 


WRITE SECTOR 


37EC 


00290 


ZOMAND 


EQU 


37ECH 


COMMAND/ STATUS REGISTER 










Program continues 
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37BD 


00300 


TRACK 


EQU 


37EDH ; 


TRACK REGISTER 


37EE 


00310 


SECTOR 


EQU 


37EEH j 


SECTOR REGISTER 


37EF 


00320 


DATA 


EQU 


37EFH i 


DATA REGISTER 


37E1 


00330 


DRIVE 


EQU 


37E1H i 


DRIVE SELECT REGISTER 


0004 


00340 


LDERR 


EQU 


4 i 


LOST DATA ERROR 


0008 


00350 


CRCERR 


EQU 


8 ] 


CRC ERROR 


0010 


00360 


SEKERR 


EQU 


10H 


SEEK ERROR 


0010 


00370 


RNFERR 


EQU 


10H 


RECORD NOT FOUND ERROR 


0020 


00380 


WFERR 


EQU 


20H 


WRITE FAULT ERROR 


0040 


00390 


HPERR 


EQU 


40H 


WRITE PROTECT ERROR 


0080 


00400 


NRERR 


EQU 


80H 


DRIVE NOT READY ERROR 


0098 


00410 


T1ERR 


EQU 


NRERR+SEKE RR+C RC E RR 


009C 


00420 


RDERR 


EQU 


NRERR+RNFERR+CRCERR+LDERR 


00FC 


00430 


WRERR 


EQU 


NRERR+WPERR+WFERR+RNFERR+CRCERR+LDERR 




00440 












00450 




DEFINE 


BUFFER LENGTHS AND POINTERS 




00460 










3C00 


00470 


VIDMEM 


EQU 


3C00H 


VIDEO MEMORY 


0400 


00480 


VIDLEN 


EQU 


1024 


VIDEO MEMORY SIZE 


0100 


00490 


SECLEN 


EQU 


256 


SECTOR SIZE 


0040 


00500 


LINSIZ 


EQU 


64 


CHARACTERS PER LINE 


0010 


00510 
00520 


LINES 


EQU 


16 


LINES PER SCREEN 




00530 




DEFINE 


UART PARAMETERS FOR SERIAL PRINTER 




00540 










00E8 


00550 


RESET 


EQU 


0E8H 


•RESET PORT 


00EA 


00560 


CONTRL 


EQU 


0EAH 


•CONTROL PORT 


00EB 


00570 
00580 


DATAP 


EQU 


0EBH 


•DATA PORT 




00590 




CHARACTER EQUATES 






00600 










000D 


00610 


CR 


EQU 


0DH 


; CARRIAGE RETURN 


000A 


00620 


LF 


EQU 


0AH 


;LINE FEED 


005F 


00630 
00640 


CURSOR 


EQU 


5FH 


; CURSOR CHARACTER 




00650 




MISCELLANEOUS EQUATES 






00660 










3F4D 


00670 


CMDPOS 


EQU 


VIDMEM+845 


; COMMAND INPUT POSITION 



COOSOL DISCOUNTS 



PRINTERS 




Picon MXHO 


(JS4 1-0001 


MWCAL 


FpSon MX.'O 


8341-0005 


sew cai 


Epson MXHO GRAF THAX 


8541 -8915 


IMtCAl 


E [i-ion MXHO F T 


d64'-Q001 


WMCAL 


Epson MX80F tgraftrax 


SS4I-007S 


S6S-8-CA;. 


Epson MX 100 


$624-0024 


BMfrCAL 


Epson caCies a^a i aids 




CAL 


NEC Spmwfiler 


5510-1 


S2495 


NEC Spinwnter 


5515-1 


S2495 


NEC Spmwriter 


3520 1 


S2880 


NEC Spmwntoi 


5525-' 


S295C 


NEC 5p:nv*r,!f' 


5930-1 


S2495 


NEC Accessories 




CAL 


ANACCM Parallel 


ANC50P 


S1195 


ANACOM SERIAL 


ANC150S 


S1195 



■RegisO'i-ci Tradtv»arK o' T^ndy Ctirpoiah 
■■PACTO«> DiRtC 



CPU— TERMINALS— SOFTWARE 



ADDS COMPUTER SYSTEMS 

• MULTlVlSiON ; ; Slep 3 516-C19000 

• MUL1IVISION3 Slep 2. 516018000. 

• MULTIVISION3 Step 1 516017000.. 

• MULTIVISION2 516-020000 

• MULTIVISION • 516006000 

• ADDS ACCESSORIES & SOFTWARE 

ALTOS MTU FLOPPY HARDD1SK 

• tJ0OO- r MTU 1Mh (L 17 2M1 . 

HARD FLOPPY DISK 

208K RAM 54P-tfl ijMc 6 HARD DISK 

• IMC Fl 17 2 MT 8000-IOMTu 

• IMd f .>ppy 800C 100 

• 1 2MP I lopps 8UOO- '0 

• ALTOS Accessor u". S Software- 



TELE VIDEO TERMINALS 

• (HOC $59- 

• 920C 1798 

• TELE VI DEO AcCQSSOrie 



91?C 
950C 



NEC COMPUTER SYSTEMS 

• NEC Computer f>c-800ia 

• NEC I Unil F , C-30TA 

• NEC- 10 Port CC-6033A 

• NEC DISK DRIVE PC8031A 

• NEC DISK DRIVE PC-8032A 

• NEC Gi Monitor JB-1201 

• NEC CO) MomfOi jC-1202 

• NEC Allt-SSOflfi & So'iA-ir- 



Sll 275 
$10,172 
% 9.070 
S 7 520 
$ 3312 
CALL 



T438 
CALL 



S705 

S959 

CALL 



' 056 
S26 
'52 

I 056 

931 

220 

995 

CAL^ 



COOSOL LRC 400 SERIES** 
OEM PRINTER INTERFACE 




$150 ea (QUANTITY ON Ei 

DESIGNED TO OPERATE 

ANY SERIES 400 LRC- EATON PRINTERS 

28 SYSTEM LEVEL SOFTWARE COMMANDS 

CHARACTER ENHANCEMENT 

BOTH SERIAL ;RS-232) AND PARALLEL INPUT 

BAUDRATE SELECT FROM 110 TO 9600 

STANDARD 96 ASCII CHARACTER FONTS 

REVERSE FONT PRINTING 

UPPER AND LOWER CASE PRINTING 

UP TO 48 CHARACTERS PER LINE 

5X7 10 x 7 OR 10 X 14 DOT MATRIX CHARACTER 

GENERATOR 

PRINTS TEST CHARACTER SET 

SUPPLIED WITH 8.500 ufd<35V ELECTRONIC 

CAPACITOR. BUILT IN POWER SUPPLY WITH 

REGULATORS AND TRANSFORMER 

5-3'4 X 7-12 INCH BOARO SIZE 



*s ■ e 



COOSOL, INC. P.O. BOX 743, ANAHEIM, CALIFORNIA 92805-0743 (714) 545-2216 
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This is a picture 

of all the printers in the world 

that outsell the MX-80. 

Epson. 



The one thing you can't beat in the marketplace is value 
Ami there simply isn't .1 better combmation ol ratabil- 
ity, print quality, features and price in an 80-column 
printer than the Epson MX-80 Anywhere on earth 

But while we're pleased to make the best selling 80- 
eolumn printer in the world, we're hardlv surp 1 d 
1 1 n %se decided a long time ago that the way to sue 
11 ed in tins business is to build a good product, sell it at 
a fair puce and stand behind it. 

So we built our MX-80 with features like I choice ol 
24 different tv pc faces, graphics matrival plotter Dgj 
cil seeking, bidirectional printing and the world's tirst 
disposable print head. Yk priced II at under $650. AnJ 
if it breaks, well be here to fix it. 

I hat seems like a straightforward enough policy But 
when we first introduced the MX-80. the competition 



laughed. Now they re cutting prices, introducing 
"new" models, and running splashy color ads, all man 
ettort to eakh up And they're not laughing. 

But you don't have to take our word fi»r it. You've ^ 1 
choice: you can buy the printer that's been embraced by 

al hundred thousand 
computer fanatics all 
over the world. Or vm; 
can buy something . lit 
And take your ch.i 




.--x 



EPSON 

EP90N AMEF9CA INC 



^SmmL.tl of AOfUtvt cw)p«?#<l9 



3415 Ka*hi»a Street, Ttrronce, CA WO 1 ! • (2111 W-9140 
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Program continued 
















3FC0 




00680 


LINE16 


EQU 


VIDMEM+960 ; 


LAST LINE ON SCREEN 




3FCD 




00690 


DSKPOS 


EQU 


VIDMEM+973 » 


DRIVE NUMBER INPUT 




3FE1 




00700 


TRKPOS 


EQU 


DSKPOS+20 ; 


TRACK NUMBER INPUT 




3FF6 




00710 


SECPOS 


EQU 


TRKPOS+21 ; 


SECTOR NUMBER INPUT 




3FE2 




00720 


OFFPOS 


EQU 


VIDMEM+994 j 


BYTE OFFSET INPUT 




387F 




00730 
00740 


KBRDY 


EQU 


387FH j 


KEYBOARD READY REG 








J r t t 9 § t 


i i i i i i i 


I i I i i i i i i t f ' t i i t r r 










00750 
00760 


•> 


DSKMOD 


ENTRY POINT | 










ft i i i i i 


1 1 1 t 1 1 1 








7000 




00770 




ORG 


7000H 






7000 




00780 


DSKMOD 


EQU 


$ 






7000 


P3 


00790 




DI 


; 


DISABLE INTERRUPTS 




7001 


CD8071 


00800 




CALL 


UART J 


INITIALIZE FOR PRINTER 




7004 


310B79 


00810 




LD 


SP, STACK J 


SET STACK 




7007 


CDA171 


00820 




CALL 


VIDRES J 


DISPLAY SCREEN 




700A 


214D3F 


00830 


DSK010 


LD 


HL,CMDPOS ; 


COMMAND BYTE 




700D 


CD4D70 


00840 




CALL 


CHARIN ) 


INPUT COMMAND CHAR. 




7010 

DR 

7013 


CDA170 


00850 




CALL 


GETADR 


GET COMMAND ROUTINE AD 




3805 


00860 




JR 


C,DSK020 


ERROR 




7015 


112A70 


00870 




LD 


DE,DSK030 


RETURN ADDRESS 




7018 


D5 


00880 




PUSH 


DE 


PUT ON STACK 




7019 


E9 


00890 




JP 


(HL) 


PROCESS COMMAND 




701A 




00900 


DSK020 


EQU 


$ 


111! ERROR 




701A 


11C03F 


00910 




LD 


DE,LINE16 


MESSAGE LINE 




701D 


CD5670 


00920 




CALL 


CLRLIN 


CLEAR IT FIRST 




7020 


219A78 


00930 




LD 


HL,INVMSG 


INVALID COMMAND MSG 




7023 


011800 


00940 




LD 


BC,INVLEN 


MSG LENGTH 




7026 


EDB0 


00950 




LDIR 








7028 


18E0 


00960 




JR 


DSK010 


CONTINUE 




702A 




00970 


DSK030 


EQU 


$ 


COMMAND PROCESSING RET 




URN 
















702A 


3E20 


00980 




LD 


A, ' ■ 






702C 


324D3F 


00990 




LD 


(CMDPOS) ,A 


CLEAR OLD COMMAND 




702F 


30D9 


01000 




JR 


NC,DSK010 


GET ANOTHER COMMAND 




7031 


11C03F 


01010 




LD 


DE,LINE16 


•CLEAR AND START OVER 




7034 


CD5670 


01020 




CALL 


CLRLIN 


Progra 


Ti continues 



IlielMIA-TRAiNS 1CMM) 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface* 

•FOR YOUR TRS80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



I «-.ilinvs: 

•300 Baud Se ••' 

• 14. 8 charai i 
1 1 tui' 

• Krllnblr hew • h . % I - I 
i -ii 

• KS-232C Interface 

• Documentation included 

S GO day W* II i mi 

labor 
#lilK,r» quill . Sri • rl: prim* 

l » ■ ■ 

•Optional '•• ii 

• ii 

• I i im i in .i;'i .vi ll . 



Also works with I 
tnm'% Stringy Hop •• 
lor font it i ■ 

*. (Has RS 
hinli in -iringy) 

HOW Ml OK I II K 

miAIKlNS HMM) 

1. We accept Visa, M.islci 

CturgB. MflKT (Vtslm :>,. |ki ksi» 

personal c*)ni k payable to* 

IMIA-ITtANS 

2, All oiikrs are shipped 
BOLD. Sanlrwr.CA 

.'i. I>rlivrt1rs/iir immrriinrr 




D««k and labia top modHi alto available. 

i in anfcraand mfbriiiaiam 

DATA-TRANS 

45277 Fre m ii EHvi . ■ , 
Fremont CA 94538 

Phone: i*08) 26>9246 



..4 
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Program continued 


















7037 


18D1 


01030 




JR 


DSK010 










01040 


;;;;•• 


;;;;;;;; 


Slllllltltlttliii 










01050 




UTILITY 


ROUTINES 










01060 
















01070 
















01080 












7039 




01090 ASCHEX 


EQU 


$ 


CONVERT ASCII TO HEX 




7039 


D630 


01100 




SUB 


*0' 


SUBTRACT ASCII BIAS 




703B 


FA4A70 


01110 




JP 


M,ASC010 


INVALID HEX DIGIT 




703E 


FE0A 


01120 




CP 


10 


IS IT 0-9? 




7040 


D8 


01130 




RET 


C 


YES. DONE 




7041 


D607 


01140 




SUB 


7 


ASSUME A-F 




7043 


FE0A 


01150 




CP 


0AH 


CHECK A-F RANGE 




7045 


3803 


01160 




JR 


C,ASC010 


INVALID HEX DIGIT 




7047 


FE10 


01170 




CP 


10H 


LESS THAN F? 




7049 


D8 


01180 




RET 


C 


YES. DONE 




704A 


3E00 


01190 ASC010 


LO 


A,0 


INVALID DIGIT RETURN 




704C 


C9 


01200 
01210 
01220 




RET 








704D 




01230 


:harin 


EQU 


$ 


INPUT CHAR FROM KEYBOA 




RD 
















704D 


365F 


01240 




LD 


(HL) , CURSOR 


TURN ON CURSOR 




704F 


CDD370 


01250 


:ha010 


CALL 


KEYBRD 


SCAN KEYBOARD 




7052 


28FB 


01260 




JR 


Z,CHA010 


WAIT UNTIL INPUT 




7054 


77 


01270 




LD 


(HL) ,A 


•SHOW USER 




7055 


C9 


01280 
01290 
01300 


»' 


RET 








7056 




01310 


CLRLIN 


EQU 


$ 


CLEAR LINE 




7056 


D5 


01320 




PUSH 


DE 


•SAVE 




7057 


EB 


01330 




EX 


DE,HL 






7058 


3620 


01340 


CLR020 


LD 


(HL),' ' 






705A 


23 


01350 




INC 


HL 






705B 


7D 


01360 




LD 


A,L 


Program continues 



ADVENTURES!!! 

For TRS-80 and COLOR-80. These Ad- 
ventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures 
that take 30-50 hours to play. (Adventures 
are interactive fantasies. It's like reading a 
book except that you are the main char- 
acter as you give the computer commands 
like "Look in the Coffin" and "Light the 
torch.") 

Adventures require 16K. They sell for 
$14.95 each. 
ESCAPE FROM MARS (by Rodger Olsen) 

This ADVENTURE takes place on the 
RED PLANET. You'll have to explore a 
Martian city and deal with possibly hostile 
aliens to survive this one. A good first 
adventure. 

PYRAMID (by Rodger Olsen) 

This is our most challenging ADVEN- 
TURE. It is a treasure hunt in a pyramid 
full of problems. Exciting and tough! 

TREK ADVENTURE (by Bob Retelle) 

This one takes place aboard a familiar 
starship. The crew has left for good reasons - 
but they forgot to take you, and now you 
are in deep trouble. 

DEATH SHIP (by Rodger Olsen) 

Our first and original ADVENTURE, 
this one takes place aboard a cruise ship - 
but it ain't the Love Boat. 

VAMPIRE CASTLE (by Mike Bassman) 

This is a contest between you and old 



QUEST 



QUEST - A NEW IDEA IN ADVEN- 
TURE GAMES! Different from all the 
others. Quest is played on a computer 
generated map of Alesia. Your job is to 
gather men and supplies by combat, bargain- 
ing, exploration of ruins and temples and 
outright banditry. When your force is strong 
enough, you attack the Citadel of Moorlock 
in a life or death battle to the finish. Play- 
able in 2 to 5 hours, this one is different 
every time. 
16K COLOR-80 OR TRS-80 ONLY. $14.95 



,-^£*2 




Drac - and it's getting a little dark outside. 

$14.95 each. ^^\ Please specify system on all orders 

This is only a partial listing of what we have to offer. Send for free catalog to: 

.29 AARDVARK-80 
TRS-80 



ARCADE AND THINKING GAMES 
1GK and extended or level II BASIC 

TIME TREK, REAL TIME REAL 
GRAPHICS TREK. See the torpedoes fly 
and Klingons explode. No more scoll- 
ing displays, no more turn taking. This 
one has real time and real displays. In 
BASIC- for 16K level II or extended color 
BASIC. $14.95. 

STARFIGHTER This one man space 
war game pits you against spacecruisers, 
battlewagons, and one man fighters. You 
have the view from your cockpit window, a 
working instrument panel, and your wits. 
Another real time goody. $9.95. 

BATTLEFLEET - This grown up ver- 
sion of Battleship is the toughest thinking 
game available on 80 computers. There is 
no luck involved as you seek out the 80s 
hidden fleet. This is a topographical toughie. 
$9.95. 

SLASHBALL - A two player game of 
strategy and skill, this is like nothing you 
have ever seen before. This takes fast 
fingers, quick wits and concentration. Play- 
able from age 6 to 65, it is a good family 
game. $9.95. 

MINOS - 8K - Features amazing 3D 
graphics. You see a maze from the top, the 
screen blanks, and when it clears, you are in 
the maze at ground level finding your way 
through on foot. Realistic enbugh to cause 
claustrophobia. $12.95. (COLOR-80 ONLY) 




2352 S. Commerce, Walled Lake, Ml 48088 
(313)669-3110 



COLOR-80 



. See List ol Advertisers on page 418 
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Program conlir 


ued 


















705C 


E63F 


01370 




AND 


3FH 


;END OF LINE? 






705E 


20F8 


01380 




JR 


NZ,CLR020 


;NOT YET. 






7060 


Dl 


01390 




POP 


DE 








7061 


C9 


01400 
01410 
01420 


; 


RET 










7062 




01430 


CLRSCN 


EQU 


$ 


; CLEAR SCREEN 






7062 


21003C 


01440 




LD 


HL,VIDMEM 


; START AT TOP 






7065 


3620 


01450 


CLR010 


LD 


(HL),' ' 








7067 


23 


01460 




INC 


HL 








7068 


7C 


01470 




LD 


A,H 








7069 


FE40 


01480 




CP 


40H 


;DONE? 






706B 


20F8 


01490 




JR 


NZ,CLR010 


;NOT YET. 






706D 


C9 


01500 
01510 
01520 


» 


RET 










706E 




01530 


FORMAT 


EQU 


$ 


; FORMAT DISK SECTOR 






706E 


C5 


01540 




PUSH 


BC 








706F 


F5 


01550 




PUSH 


AF 








7070 


217777 


01560 




LD 


HL,FMTBUF+1 


; FORMAT BUFFER 






7073 


CD1971 


01570 




CALL 


HEXASC 


; CONVERT OFFSET 






7076 


70 


01580 




LD 


(HL) ,B 


; STORE FOR DISPLAY 






7077 


23 


01590 




INC 


HL 








7078 


71 


01600 




LD 


(HL) ,C 












01610 


; HEX DIGIT DISPLAY 








7079 


23 


01620 




INC 


HL 








707A 


23 


01630 




INC 


HL 








707B 


D5 


01640 




PUSH 


DE 


;SAVE FOR LATER 






707C 


0608 


01650 




LD 


B,8 


;8 WORDS TO FORMAT 






707E 


0E02 


01660 


FOR010 


LD 


C,2 


j 2 BYTES PER WORD 






7080 


C5 


01670 




PUSH 


BC 


;SAVE IT 






7081 


1A 


01680 


FOR020 


LD 


A, (DE) 


;GET HEX DIGITS 






7082 


13 


01690 




INC 


DE 


;NEXT BYTE 






7083 


CD1971 


01700 




CALL 


HEXASC 


.•CONVERT TO ASCII 






7086 


70 


01710 




LD 


(HL),B 


; STORE IN FORMAT BUFFER 






7087 


23 


01720 




INC 


HL 








7088 


71 


01730 




LD 


(HL),C 








7089 


23 


01740 




INC 


HL 








708A 


CI 


01750 




POP 


BC 


; RESTORE 






708B 


0D 


01760 




DEC 


C 


;ONE LESS BYTE 






708C 


C5 


01770 




PUSH 


BC 


;AND SAVE AGAIN 






708D 


20F2 


01780 




JR 


NZ,FOR020 


;DO 2 BYTES 






708F 


23 


01790 




INC 


HL 


;NEXT WORD 






7090 


CI 


01800 




POP 


BC 


; RESTORE 






7091 


10EB 


01810 
01820 


J ASCII 


DJNZ 
DISPLAY 


FOR010 


;LOOP OVER 8 WORDS 






7093 


23 


01830 




INC 


HL 








7094 


23 


01840 




INC 


HL 








7095 


Dl 


01850 




POP 


DE 


.•RESTORE BUFFER PTR 






7096 


0610 


01860 




LD 


B,16 


; DISPLAY 16 CHARS. 






7098 


1A 


01870 


FOR030 


LD 


A, (DE) 


;GET CHAR FOR DISPLAY 






7099 


77 


01880 




LD 


(HL) ,A 


; DISPLAY IT 






709A 


13 


01690 




INC 


DE 


.-NEXT ONE 






709B 


23 


01900 




INC 


HL 








709C 


10FA 


01910 




DJNZ 


FOR030 


;LOOP UNTIL DONE 






709E 


Fl 


01920 




POP 


AF 


; RESTORE 






709F 


CI 


01930 




POP 


BC 








70A0 


C9 


01940 
01950 
01960 




RET 










70A1 

DR 

70A1 




01970 


GETADR 


EQU 


$ 


;GET COMMAND ROUTINE AD 






211379 


01980 




LD 


HL.CMDTBL 


.•COMMAND TABLE 






70A4 


D641 


01990 




SUB 


'A' 


;VALID COMMANDS ARE A-Z 






70A6 


FAB870 


02000 




JP 


M,GET020 


; INVALID 






70A9 


FE1B 


02010 




CP 


27 


;A-Z? 






70AB 


300B 


02020 




JR 


NC,GET020 


; NOPE . 






70AD 


5F 


02030 




LD 


E,A 


j GET TABLE OFFSET 






70AE 


CB23 


02040 




SLA 


E 


; CONVERT TO WORDS 






70B0 


1600 


02050 




LD 


D,0 








70B2 


19 


02060 




ADD 


HL,DE 


.•INDEX INTO TABLE 






70B3 


5E 


02070 




LD 


E,(HL) 


;GET ROUTINE ADDRESS 






70B4 


23 


02080 




INC 


HL 








70B5 


56 


02090 




LD 


D,(HL) 








70B6 


EB 


02100 




EX 


DE,HL 


; ADDRESS TO HL 






70B7 


C9 


02110 




RET 










70B8 


37 


02120 


GET020 


SCF 




;FLAG AS INVALID 






70B9 


C9 


02130 
02140 
02150 


■ 


RET 










70BA 

T 

70BA 




02160 


GETDIG 


EQU 


$ 


; INPUT DIGIT AND CONVER 






CD4D70 


02170 




CALL 


CHARIN 


•GET USER INPUT 






70BD 


FE0D 


02180 




CP 


CR 








70BF 


C8 


02190 




RET 


Z 




Program continues 




70C0 


FE58 


02200 




CP 


•X' 


j TERMINATE? 
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70C2 2002 


02210 


JR 


NZ r GET040 


70C4 37 


02220 


SCF 




70C5 C9 


02230 


RET 




70C6 CD3970 


02240 GET040 


CALL 


ASCHEX 


70C9 EB 

N 

70CA ED6F 


02250 


EX 


DE,HL 


02260 


RLD 




70CC EB 


02270 


EX 


DE r HL 


70CD 23 


02280 


INC 


HL 


FIELD OVERFLOW 






70CE FEFF 


02290 


CP 


-1 


70D0 37 


02300 


SCF 




70D1 3F 


02310 


CCF 




70D2 C9 


02320 
02330 ; 
02340 ; 


RET 




70D3 


02350 KEYBRD 


EQU 


s 


70D3 3A7F38 


02360 


LD 


A, (KBRDY) 


70D6 B7 


02370 


OR 


A 


70D7 C8 


02380 


RET 


Z 


70D8 D9 


02390 


EXX 




70D9 06FF 


02400 


LD 


B,0FFH 


70DB 10FE 


02410 


DJNZ 


$ 


70DD CDEB70 


02420 


CALL 


READKB 


70E0 D9 


02430 


EXX 




70E1 B7 


02440 


OR 


A 


70E2 F5 


02450 


PUSH 


AF 


70E3 3A7F38 


02460 KBD010 


LD 


A, (KBRDY) 


70E6 B7 


02470 


OR 


A 


70E7 20FA 


02480 


JR 


NZ,KBD010 


70E9 Fl 


02490 


POP 


AF 


70EA C9 


02500 


RET 




70EB 210138 


02510 READKB 


LD 


HL,3801H 


70EE 7E 


02520 READ10 


LD 


A,(HL) 


70EF B7 


02530 


OR 


A 


70F0 2005 


02540 


JR 


NZ r READ20 


70F2 CB25 


02550 


SLA 


L 


70F4 F8 


02560 


RET 


M 


70F5 18F7 


02570 


JR 


READ 10 


70F7 4F 


02580 READ 2 


LD 


C,A 


70F8 AF 


02590 


XOR 


A 


70F9 CB3D 


02600 READ25 


SRL 


L 


70FB 3804 


02610 


JR 


C,READ35 


70FD C608 


02620 READ30 


ADD 


A, 8 


70FF 18F8 


02630 


JR 


READ 2 5 


7101 06FF 


02640 READ35 


LD 


B,0FFH 


7103 04 


02650 READ40 


INC 


B 


7104 CB39 


02660 


SRL 


C 


7106 30FB 


02670 


JR 


NC,READ40 


7108 80 


02680 


ADD 


A,B 


7109 4F 


02690 


LD 


C,A 


710A 3A8038 


02700 


LD 


A, (3880H) 


710D 0F 


02710 


RRCA 




710E 0F 


02720 


RRCA 




710F 81 


02730 


ADD 


A,C 


7110 4F 


02740 


LD 


C,A 


7111 0600 


02750 


LD 


B,0 


7113 21B677 


02760 


LD 


HL,KBTAB 


7116 09 


02770 


ADD 


HL,BC 


7117 7E 


027 80 


LD 


A,(HL) 


7118 C9 


02790 
02800 ; 
02810 ; 


RET 




7119 


02820 HEXASC 


EQU 


$ 


7119 D5 


02830 


PUSH 


DE 


711A E5 


02840 


PUSH 


HL 


711B 212E78 


02850 


LD 


HL, ASCII 


711E 47 


02860 


LD 


B,A 


711F E60F 


02870 


AND 


0FH 


7121 5F 


02880 


LD 


E,A 


7122 1600 


02890 


LD 


D,0 


7124 19 


02900 


ADD 


HL,DE 


7125 4E 


02910 


LD 


C,(HL) 


7126 78 


02920 


LD 


A,B 


7127 E6F0 


02930 


AND 


0F0H 


7129 0F 


02940 


RRCA 




712A 0F 


02950 


RRCA 




712B 0F 


02960 


RRCA 




712C 0F 


02970 


RRCA 




712D 5F 


02980 


LD 


E,A 


712E 212E78 


02990 


LD 


HL, ASCII 


7131 19 


03000 


ADD 


HL,DE 


7132 46 


03010 


LD 


B,(HL) 


7133 El 


03020 


POP 


HL 


7134 Dl 


03030 


POP 


DE 


1135 C9 


03040 


RET 





;NO. 
;FLAG IT 

; CONVERT TO HEX 

;DE HAS STORAGE LOCATIO 

;PUT LOW NIBBLE IN LOC. 

;BACK TO NORMAL 
;NEXT DIGIT 

; CLEAR Z FLAG 

; CLEAR CARRY FLAG 

iDOHE 



: KEYBOARD SCAN ROUTINE 
; CHECK FOR ACTIVITY 

NOTHING. 
SAVE REGS 
DEBOUNCE KEYBOARD 

:GET CHARACTER 

f RESTORE 

[RESET Z FLAG 

fSAVE CHARACTER 

:WAIT UNTIL KEY LIFTED 



;DONE 

; START SCAN 



; CONVERT HEX TO ASCII 
;SAVE 

ASCII TABLE 
SAVE A 

GET LOW NIBBLE 
SET AS OFFSET 

INDEX INTO TABLE 

GET ASCII CHAR. 

RESTORE 

GET HIGH NIBBLE 

SHIFT TO LOW NIBBLE 



SET AS OFFSET 
TRANSLATION TABLE 
INDEX INTO TABLE 
GET ASCII CHAR. 
RESTORE 



Prop.'.i"' continues 
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Program continued 




03050 


1 










7136 


03060 


LPRINT 


EQU 


$ 


; SERIAL PRINTER DRIVER 




7136 B7 


03070 




OR 


A 


;ANYTBING TO PRINT? 




7137 C8 


03080 




RET 


Z 


;NO 




7138 F5 


03090 


LPR010 


PUSH 


AP 


;SAVE FOR NOW 




7139 DBEA 


03100 


LPR020 


IN 


A,(CONTRL) 


; CHECK UART STATUS 




713B CB77 


03110 




BIT 


6, A 


; READY? 




713D 28PA 


03120 




JR 


Z,LPR020 


;NO. 




713P PI 


03130 




POP 


AF 


; RESTORE 




7140 D3EB 


03140 




OUT 


(DATAP) ,A 


;SEND TO LINE PRINTER 




7142 PE0D 


03150 




CP 


CR 


;WAS IT A CR? 




7144 C0 


03160 




RET 


NZ 


;NO. DONE 




7145 3E0A 


03170 




LO 


A, LP 


;ADD A LINEFEED 




7147 18EF 


03180 
03190 


; 


JR 


LPR010 


;GO SEND TO LP. 




7149 

RS 

7149 11C03P 


03200 


SECDPN 


EQU 


S 


; DEFINE SECTOR PARAMETE 




03210 




LO 


DE,LINE16 


;LAST LINE ON SCREEN 




714C CD5670 


03220 




CALL 


CLRLIN 


; CLEAR IT FIRST 




714P 213E78 


03230 




LD 


HL.RWMSG 


; PROMPT USER 




7152 013800 


03240 




LD 


BC.RWLEN 


; PROMPT LENGTH 




7155 EDB0 


03250 




LOIR 




;SHOW USER 






03260 


; GET 


DRIVE NUMBER 






7157 210B79 


03270 




LO 


HL, DRIVEN 


.•STORAGE LOCATION 




715A 3600 


03280 




LD 


(HL),0 


; CLEAR FIRST 




715C 11CD3F 


03290 




LD 


DE,DSKPOS 


; SCREEN POSITION 




715P EB 


03300 




EX 


DE,HL 






7160 CDBA70 


03310 




CALL 


GETDIG 






7163 D8 


03320 




RET 


C 








03330 


; GET 


TRACK NUMBER 






7164 21E13P 


03340 




LD 


HL,TRKPOS 


; SCREEN POSITION 




7167 110C79 


03350 




LD 


DE, TRACK N 


; STORAGE LOCATION 




716 A CDBA70 


03360 




CALL 


GETDIG 






716D D8 


03370 




RET 


C 






716E CDBA70 


03380 




CALL 


GETDIG 






7171 D8 


03390 




RET 


C 


j TERM I NATE 






03400 


; GET 


SECTOR 


NUMBER 






7172 21P63P 


03410 




LD 


HL,SECPOS 


; SCREEN POSITION 




7175 110D79 


03420 




LD 


DE,SECTRN 


; STORAGE LOCATION 




7178 CDBA70 


03430 




CALL 


GETDIG 






717B D8 


03440 




RET 


C 






717C CDBA70 


03450 




CALL 


GETDIG 






717P C9 


03460 




RET 











03470 


; 














03480 


1 










7180 




03490 


UART 


EQU 


5 


.•INITIALIZE UART 




7180 


D3E8 


03500 




OUT 


(RESET) ,A 


; RESET UART 




7182 


3EF4 


03510 




LD 


A,0F4H 


;SET PARAMETERS 




7184 


D3EA 


03520 




OUT 


(CONTRL) ,A 


;SET SWITCHES 




7186 


C9 


03530 
03540 
03550 


; 


RET 








7187 




03560 


UPTRAK 


EQU 


S 


; UPDATE TRACK DISPLAY 




7187 


3AED37 


03570 




LD 


A, (TRACK) 


;GET ACTUAL TRACK • 




718A 


CD1971 


03580 




CALL 


HEXASC 


; CONVERT TO ASCII 




7180 


78 


03590 




LD 


A,B 


;SWAP B AND C 




718E 


41 


03600 




LD 


B,C 






718P 


4F 


03610 




LD 


C,A 






7190 


ED43E13F 


03620 




LD 


(TRKPOS) ,BC 






7194 


C9 


03630 
03640 
03650 


f 


RET 








7195 




03660 


VIDSAV 


EQU 


$ 


;SAVE SCREEN IN BUPFER 




7195 


117673 


03670 




LD 


DE,VIDBUF 


; VIDEO SAVE BUPFER 




7198 


21003C 


03680 




LD 


HL.VIDMEM 


•VIDEO MEMORY 




719B 


010004 


03690 




LD 


BC,VIDLEN 


; MEMORY LENGTH 




719E 


EDB0 


03700 




LOIR 




;MOVE TO SAVE AREA 




71A0 


C9 


03710 
03720 


. 


RET 




(DOME 




71A1 




03730 


VIDRES 


EQU 


$ 


;RESTOR SCREEN 




71A1 


11003C 


03740 




LD 


DE,VIDMEM 


; VIDEO MEMORY 




71A4 


217673 


03750 




LD 


HL,VIDBUF 


;VIDEO SAVE BUFFER 




71A7 


010004 


03760 




LD 


BC,VIDLEN 


.•BUFFER LENGTH 




71AA 


EDB0 


03770 




LOIR 




.-MOVE TO SCREEN 




71 AC 


C9 


03780 




RET 












03790 


m ;;;;;;;;;;;;;;;; m ;;;;;;;; ; 


; ; ;; 








03800 


; 


FLOPPY 


I/O ROUTINE 


f 








03810 










71AD 




03820 


FDRDY 


EQU 


S 


; READY DISK 




7 IAD 


3A0B79 


03830 




LD 


A f (DRIVEN) 


;GET DRIVE NUMBER 




71B0 


32E137 


03840 




LD 


(DRIVE) ,A 






71B3 


21EC37 


03850 




LD 


HL,COMAND 


;SET COMMAND REGISTER 




71B6 


11EF37 


03860 




LD 


DE f DATA 


;SET DATA REGISTER 




71B9 


010000 


03870 




LD 


BC r I 


; DELAY TIME 




71BC 


0B 


03880 


DELAY 


DEC 


BC 






71BD 


78 


03890 




LO 


A,B 


; UNTIL DISK 




71BE 


Bl 


93900 




OR 


C 


; IS UP TO o 
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COMPUTER CENTER 



31 East 31 at Street • New York, N.Y. 
ftoefwfi Afedfaon A Par* 4v«nu«tJ 



480 Lexington Avenue • New York, N.Y. 
(Amortcmn Brand* BUg., between 46th A 47W» St) 



presenting the LARGEST SELECTION OF SOFTWARE EVER ASSEMBLED. 



the best available on the market today for TRS-80® Computers 

at SUPER DISCOUNT PRICES! 



AVALON HILL 



D TANK TICS 

D MIDWAY 

D NUKE WAR 

O PLANET MINERS 

D CONVOY RAIDER 

D B1 BOMBER 

D LORDS OF KARMA 

O CONFLICT 2500 

O COMPUTER ACQUIRE 

D BASEBALL 

Q EMPIRE OVERMINO 

ADVENTURE INTERNATIONAL 

D ADVENTURE HINT BOOK 

O ADVENTURE «0 

O ADVENTURE (1.2 3) |D| 

D AOVENTURE |4.S.6i IDJ 

D ADVENTURE (7.8.91 [D! . ... 
D ADVENTURE 110 11121 |D] . 

a ADVENTURE ispec.ly 1-121 

O MEAN CHECKERS MACHINE . 
a MEAN CHECKERS MACHINE [D 

O DR CHIPS 

a DR CHIPS ID] 

a INTER FICTION SAMPLER [D] .. 
O INTER-LOCAL CALLS [U| ... . 

D INTER-TWO HEADS [Dl 

D INTER-IMPETUOUS [D| 

O KID-VENTURE 1 

D STAR TREK 3 5 

D STAR TREK 3 5 [D] 

D ZOSSED IN SPACE 

D MACES «1 BARLOG 

D MACES »1 SISYPHUS 

Q LUNAR LANDER 

a LUNAR LANDER [D] 

D POKER 

Q GALACTIC TRILOGY [D] . . . 

(J SILVER FLASH 

D SILVER FLASH (D] 

a MISSILE ATTACK 

O STAR SCOUT 

D SPACE INTRUDERS 

D STAR FIGHTER 



21 50 
13 50 

.13 50 
.13 50 
.13 50 
.13 50 
.1800 
1350 
.1800 

22 50 
27 00 



.7 95 
6 25 
35 95 
35 95 
35 95 
35 95 
17 95 
17 95 
22 95 
.17 95 
.17 95 
13 55 
17 95 
.17 95 
17 95 
17 95 
17 95 
17 95 
.13 55 
3100 
.31 00 
.17 95 
.18 95 
13.55 
35 95 
.17 95 
17 95 
17 95 
.17 95 
.18 75 
22 50 



ACORN SOFTWARE 

ATERM 

CJ SYSTEM SAVERS 

O DISASSEMBLER 

O DISK/TAPE UTILITY 

D STAR TREK SIMULATION 

C GAMMON CHALLENGER 

a pigskin 

D ULTRA TREK 

D SPACE WAR 

D WARP/LANDER 

D BASKETBALL |D] 

D BASKETBALL 

a DUEL-N-DROIDS [DJ 

O DUEL-N-DROIDS 

D INVADERS FROM SPACE 

D INVADERS FROM SPACE )D| . 

D PIGSKIN |DJ 

D PINBALL 

D PINBALL (D) 

□ EVEREST EXPLORER 

O EVEREST EXPLORER |Dj 

O SUPERSCRIPT [D] 

ME0 SYSTEMS 

a DEATHMAZE 5000 

D RATS REVENGE 

Q REALITY ENDS 



1795 
13 55 
.13 55 

17 95 
.8 95 
13.55 
13 55 

.13 55 
8 95 
.8 95 

18 95 
13 55 
18 95 

.13 55 
.13 55 
18 95 
IB 95 
13.55 
18 95 
13 45 
.18 95 
45 00 



11 65 
11 65 
6 95 



Check proqram desired 
Complete ordering information 
and mail entire ad 
Immediate Shipments from stock. 



KEY: 

C-TRS-80 Color 

D-on Disc 

If not marked - Cassette 



IPX-AUTOMATED SIMULATION 

D STAR WARRIOR [CASS. OR DISK] 35.95 

D THREE PACK [Dl 45 00 

D STARFLEET |CASS OR DISK] 22 50 

D INVASION |CASS. OR DISK] 22 50 

D APSHAI [CASS. OR DISK] 35 95 

D RYN (CASS . OR DISK) 17 9S 

D MORLOC [CASS. OR DISK] 17 95 

O RIGEL (CASS OR DISK] 26 95 

D HELLFIRE |CASS OR DISK! 35 95 

D CRUSH CRUMBLE & CHOMP IC»SS 01 0) 26 95 
D TUESDAY OUARTERBACK [D] 26 95 

COMPUTER SIMULATIONS COMPANY 

D BATTLE OF BULGE-BASTGONFS 17 95 

D D-DAY INVASION OF FRANCE 17 95 

D OOG RACE. COLOR ONLY [CJ 5 95 

D GREAT DICTATOR 7 25 

D JEDl KNIGHT 11 75 

D LUNAR ENCOUNTER 11.75 

D MERCENARY 8 95 

Q SHARK COLOR ONLY (C] 595 

D SLOT MACHINE 7 25 

O BATTLE OF BULGE-ST VITH 13.55 

D STAR CRUISERS 13.55 

D U-BOAT. COLOR ONLY |C] 5 95 

D ORION WAR. COLOR ONLY [C[ 5 95 

O POLARIS. COLOR ONLY [C| 5 95 

D ASTEROID PIRATES 13 55 

INSTANT SOFTWARE 

D AIR FLIGHT SIMULATION 8 95 

O ASTEROIDS [D] 1795 

D BALL TURRET GUNNER 895 

□ BATTLEGROUND 8 95 

D CHECK MANAGEMENT |D| 36 55 

D CHESSMATE-80 17 95 

D COSMIC PATROL 13 55 

Q COSMIC PATROL (D| 17 95 

D DAREDEVIL 895 

DISASSEMBLER 8 95 

Q DISK EDITOR [D] 36 55 

D DISK SCOPE [Dj 17 95 

D DLDIS (D] 1795 

D DEVICE DRIVERS 17 95 

D ENHANCED BASIC 22.50 

O FLIGHT PATH 8 95 

□ IQ TEST 8.95 

□ INVADERS 6 95 

□ INVESTORS PARADISE 6 95 

D IRV 22 50 

O IRV [D] 27 55 

□ JET FLIGHTER PILOT 13 55 

D MONEY MADNESS 8 95 

□ NIGHT FLIGHT 8 95 

D ONE-D MAILING LIST |D| 22 50 

Q SKIRMISH-80 8 95 

D TLDIS 13.55 

□ UTILITY! 8.95 

D UTILITY 11 895 

DUALITY SOFTWARE 

□ DEBUG 13 55 

O FASTGAMMON 17 96 

LOWBALL POKER 1045 

O BANKSHOT 8 95 

DPOKERPETE 1045 

O RUMMY MASTER 1045 

D3DTICTACTOE 1355 

D OS LIGHT PEN 1 7 95 

D SKETCH 80 13 55 

If you don't see it listed, write. 



PERSONAL SOFTWARE 

D CCA MGMT- TRS-80 85 00 

□ ZORK [Dl 35 95 

RI6 FIVE SOFTWARE 

D ATTACK FORCE 14 30 

D GALAXY INVASION 14 30 

O METEOR MISSION II . 14 30 

O SUPER NOVA 14 30 

a COSMIC FIGHTER 14 30 

D ROBOT ATTACK 14 30 

APPARAT 

ONEWDOS80 2 .. . 135 00 

HATDEN 

□ SARGON II 25 00 
O SARGINII [Dj . .3000 

STRATE6K SIMULATIONS 

a COMPUTER BISMARCK |D] 5150 

□ COMPUTER BISMARCK 4200 

SUB-LOWC 

D T80-FS1 FLIGHT SIMULATOR . ??00 

D 3D GRAPHICS .26 50 

MICROSOFT SOFTWARE 

O ADVENTURE [D] 25 50 

D ASSEMBLY DEVELOPMENT [0] 8000 

□ BASIC COMPILER [DJ .. . . .175 00 
a £01 TOR ASSEMBLER 25 00 

□ FORTRAN COMPILER |0) .. . 80 00 

a LEVEL III BASIC 44 00 

D MuMATH JO] 64 00 

OLYMPIC OECATHALON (CASS OR DISK) 25 00 
DTYPINGTUTOR 1355 

SSM 

D LAZY WRITER [D] 112 50 

D CONQUEST . 13 45 

□ DISASSEMBLER [C] 1345 

D HANGMAN [C| 1165 

D TAPE COPY 13 45 

TP8 

D DEATH DREADNAUGHT .13 45 

O DEATH DREADNAUGHT [D| 1795 

Q DEADLY DUNGEON 13 45 

3 OViNI TERM |D] 85.00 

3 DRAGON QUEST 14.35 

Q DRAGON QUEST |D| 19 75 

D TRIPLE ADVENTURE |D| 3100 

SYNERSISTIC SOLAR 

O ACE 21 17 95 

D ANTS 13.45 

Q LIFE. . 1345 

□ PARSECTOR 17.95 

SPECTRAL 

Q SPACE INVADERS |C] .19 75 

D METEROIDS |C) .. .19 75 

O SPACE WAR |C; 19 75 

D LIFE |C) 1345 

D ETCH-A-SKETCH [C; 8 95 

O ARTILLERY [CJ_... ..*... ... 7.25 

O SPACE TRADERS |C" 13 45 

a MAGIC BOX ]C; . ..... 2250 

.we probably have it in stock! 



Ship the above programs as checked to 

Mr 'Mrs 

Address 

City 

Slate Zip 

I have a . 



N»m« of Computer 



Numoer of Programs Ordered . 

Amount ot order 

NY residents add Sales Tax. 

Add shipping anywhere in the U S 

Total amount enclosed 

Charge my □ Master Charge □ Vi; 

Signature 



2.00 



K memory Card No 



80 MIChO-OEC 81 



Personal Checks please allow 3 weeks 



Expires 



Mail to: 



i 



TRS-80 is a registered trademark ot TANDY CORP 



\ Prices subject to change without notice. 



DIGIBYTE SYSTEMS COHP. 

31 East 31st Street, New York. N.Y. 10016 
OUTSIDE NEW YORK CALL TOLL FREE (800) 221-3144 

IN NEW YORK CALL (212) 889-6975 



• 22« 



^s 



Program con! 


n u ec 


















71BF 


20FB 


03910 




JR 


NZ, DELAY ; 


SPEED. 






71C1 


C9 


03920 




RET 










71C2 




03930 


TRZERO 


EQU 


$ » 


POSITION TO TRACK 






71C2 


3603 


03940 




LD 


(HL) ,RESTOR 








71C4 


7E 


03950 


TRZ010 


LD 


A,(HL) ; 


GET STATUS 






71C5 


E698 


03960 




AND 


T1ERR | 


ERRORS? 






71C7 


C0 


03970 




RET 


NZ ; 


YES. EXIT 






71C8 


CB46 


03980 




BIT 


BUSY,(HL) f 


DONE? 






71CA 


C2C471 


03990 




JP 


NZ,TRZ010 ; 


NOT YET. 






71CD 


3E01 


04000 




LD 


A,l 








71CF 


321279 


04010 




LD 


(INIT),A I 


FLAG AS READY 






71D2 


C9 


04020 




RET 










71D3 




04030 


TRSEEK 


EQU 


$ I 


FIND SPECIFIED TRACK 






71D3 


3AED37 


04040 




LD 


A, (TRACK) J 


GET CURRENT TRACK 






71D6 


47 


04050 




LD 


B,A 








71D7 


3A0C79 


04060 




LD 


A,(TRACKN) j 


GET SELECTED TRACK 






71DA 


B8 


04070 




CP 


B ] 


SAME? 






71DB 


C8 


04080 




RET 


Z J 


YES. DONE 






71DC 


32EF37 


04090 




LD 


(DATA) ,A j 


LOAD IT 






71DF 


3E13 


04100 




LD 


A, SEEK } 


SEEK COMMAND 






71E1 


77 


04110 




LD 


(HL),A | 


ISSUE COMMAND 






71E2 


7E 


04120 


TRS010 


LD 


A,(HL) | 


GET STATUS 






71E3 


E698 


04130 




AND 


T1ERR 1 


ERRORS? 






71E5 


C0 


04140 




RET 


NZ J 


YES. EXIT 






71E6 


CB46 


04150 




BIT 


BUSY, (HL) 


DONE? 






71E8 


C2E271 


04160 




JP 


NZ,TRS010 


NOT YET. 






71EB 


C9 


04170 




RET 










71EC 




04180 


SECGET 


EQU 


$ 


SECTOR READ 






71EC 


3A0D7 9 


04190 




LD 


A, (SECTRN) 


GET SECTOR NUMBER 






71EF 


32EE37 


04200 




LD 


(SECTOR) ,A 


SETUP SECTOR REGISTER 






71F2 


01007A 


04210 




LD 


BC,SECBUF 


DATA BUFFER 






71F5 


3E8C 


04220 




LD 


A, READS 


SET COMMAND 






71P7 


77 


04230 




LD 


(HL) ,A 


ISSUE COMMAND 






71F8 


CB4E 


04240 


SEC010 


BIT 


DRQ,(HL) 


DATA REQUEST? 






71FA 


CAF871 


04250 




JP 


Z,SEC010 


NO. WAIT 






71FD 

RY 

71FE 


1A 


04260 




LD 


A,(DE) 


MOVE DATA BETWEEN MEMO 






02 


04270 




LD 


(BC),A 


AND FLOPPY DISK 






71FF 


0C 


04280 




INC 


C 


ONE MORE BYTE 






7200 


C2F871 


04290 




JP 


NZ,SEC010 


DO 1 SECTOR (256 BYTES 






7203 


C9 


04300 




RET 










7204 




04310 


SECPUT 


EQU 


$ 


WRITE SECTOR 






7204 


3A0D79 


04320 




LD 


A, (SECTRN) 


GET SECTOR NUMBER 






7207 


32EE37 


04330 




LD 


(SECTOR) ,A 


LOAD IT 






720A 


01007A 


04340 




LD 


BC,SECBUF 


DATA BUFFFER 






720D 


3EAC 


04350 




LD 


A, WRITES 


SETUP COMMAND 






720F 


77 


04360 




LD 


(HL) r A 


ISSUE COMMAND 






7210 


CB4E 


04370 


SEC020 


BIT 


DRQ, (HL) 


DATA REQUEST? 






7212 


CA1072 


04380 




JP 


Z,SEC020 


•NO. WAIT 






7215 


0A 


04390 




LD 


A,(BC) 


•GET BYTE 






7216 


12 


04400 




LD 


(DE) ,A 


•WRITE TO DISK 






7217 


0C 


04410 




INC 


C 


•ONE MORE BYTE 






7218 

) 

721B 


C21072 


04420 




JP 


NZ,SEC020 


j DO 1 SECTOR (256 BYTES 






C9 


04430 
04440 




RET 




















/ 










04450 


; 


COMMAND ROUTINES 


; 










04460 


tttm 


;;;;;; 


;;;;;;;;;;;;;;;;;;; 


J 






721C 




04470 


DISPLY 


EQU 


$ 


; DISPLAY SECTOR 






721C 


CD9571 


04480 




CALL 


VIDSAV 


;SAVE SCREEN 






721F 


0610 


04490 




LD 


B, LINES 








7221 


3E00 


04500 




LD 


A,0 


; STARTING OFFSET 






7223 


11007A 


04510 




LD 


DE,SECBUF 


; BUFFER ADDRESS 






7226 


D9 


04520 




EXX 










7227 


11003C 


04530 




LD 


DE,VIDMEM 


;VIDEO SCREEN 






722A 


D9 


04540 




EXX 










722B 


CD6E70 


04550 


DIS010 


CALL 


FORMAT 


; FORMAT 16 BYTES 






722E 


D9 


04560 




EXX 










722F 


217677 


04570 




LD 


HL,FMTBUF 


.•FORMATTED LINE 






7232 


014000 


04580 




LD 


BC,LINSIZ 








7235 


EDB0 


04590 




LDIR 




;MOVE TO VIDEO 






7237 


D9 


04600 




EXX 










7238 


C610 


04610 




ADD 


A, 16 


;BUMP OFFSET 






723A 


10EF 


04620 




DJNZ 


DIS010 


;LOOP UNTIL DONE 






723C 


CDD370 


04630 


DIS020 


CALL 


KEYBRD 


;GET INPUT 






723F 


FE58 


04640 




CP 


'X' 


;BACK TO MAIN MENU? 






7241 


20F9 


04650 




JR 


NZ,DIS020 


;NO. WAIT 






7243 


CDA171 


04660 




CALL 


VIDRES 


; RESTORE SCREEN 






7246 


C9 


04670 
04680 
04690 
04700 


J 


RET 










7247 




04710 


MODIFY 


EQU 


5 


; MODIFY SECTOR CONTENTS 






7247 


11C03F 


04720 




LD 


DE,LINE16 


; MESSAGE LINE 
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TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



FOR PERSONAL BUSINESS 
OR ENTERTAINMENT 

Color Computer 

4K Level I S319 
16K Level I $439 
16K Extended Basic $489 

With TCS Memory: 

16K Level I $369 

16K Extended Basic $449 




Expansion Interfaces 

Zero K interface $254 With TCS Memory: 

16K Interface $359 16K Interface $318 

32K Interface $469 32K Interface $388 



Epson Printers SCall 

iette< ;.a ', -a:-u 0' "f nas M sotwa'e contr: a* 40 8C 66 v '3? columns 80 cps Oi0>'»ctiona 
ttacro' law c sposab'e p' -ilea: $300 less man nearest competit've pr -c . Hi S6*S 1-a 'o- ou" 



lo* pi ct 

MX-80 Tractor Feed 
MX-80 FT Friction and 
Tractor 



MX-100 Graphtrax, Friction 
and Tractor up to 15 " 
wide 
Graphtrax for MX-80. MX-80 FT, graphics option 



SOFTWARE 

EPSON MX-80 
PRINTER DISKETTE 






M/CMD 

■ 
BIGUU/BAS 

■ 

IPSOH SUB 

I 



rjiscount ii you huy this iien 



jki patch 

■ 
■ 

DIMO/IAS - 

... 









IABU/MS- .::- aoei -na«ing program in 
Ciuflmg giaphics Maaes Custom mining laoes an 
easy job 

OfFSTATf/SUB 

I 

modules on one diskette or on tap 
JKL) to* your Model i or HI lor on'y 
$21.99 

■ I'— ■ Epson MX 80 




Model III 16K $835 

Model III 32KS979 
Model III 48K $1089 



TRS-80 



■V. km ' H»: :■>■''-.. 
*\ am) I numb*- .' O'V' O'l-x) M*H 
Ct ' -\ la »Ou' "-or ' : <*»<Jr ind gel I COW tH om 
»!l « 



With TCS Memory: 
Model III 32K S909 
Model III 48K S969 



Model III 48K 2 Disk RS232 $2100 
Model III 32K 1 Disk $1729 

Model III 48K 1 Disk $1849 



TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



COMPUTERS 




Model II 64K $3288 

Ar excellent compute' lor you' Dusmess 
needs Easy expandability & compatibility 
No formal operator training needed All ac- 
cessories avanaoie-diSK expansions, 
printers software at our low discount 
prices Ou? las', fully insured air 'reight 
service can assure most deliveries within 
seven days attc payment is r eceivec 



Corvus Hard Disks SCall 

,'!• m '.' • ,Ve can coniiguit a . 

■ \r .if mg a single'." 

i Mode large data base « D fu '•' ' 

i ■ • •„ 

■ SuoartvaHi Aan and MM Offer com puiers As you' n 
. ' moolis lex ott'i 
it^xyt prove" raid *s« ■.% • sow and shiopec len ""es -nore hard on 

• 8 Call us lor trta lowr-.l price! 



MICROSOFT 

BASIC »0 

S?9» vn/manual 
S30 manual only. 
BASIC COMPIIFR 



■ 

HI 

S3?S w/manual. S30 manual only 
fOHIRAN-IO 

■ 

S»00 w/manual $30 manual only 



Word Processor Package $2679 



with48K Epson MX- 



includes I Uisk MOdei r i witniHK tpson Mx-buTracto r Feed with cadie and 
word processing software ready to operate Lists at $3300 Our low price 
special this month S2679. For MX-80 FT Tractor and Friction add $99 



Special-With TCS Memory 
* Model III 48K 2 Disks 



$1895 



M • ~ioo 1*0 

i ic m nrj • 



, /..it --•. 



Printers 



Daisy Wheel II 
$1695 



1 



Line Printer IV $825 
Line Printer V $1599 
Line Printer VI $995 
Line Printer VII $350 



Pocket Computer 
& Ace. SCall 

Pocnei Compu'' 

- 



..'... 






TCXAS COMPUTER SYSTEMS 

BOX 1327, ARLINGTON, TEXAS 76004-1327 

For fast, efficient service we can air freignt 

to maior a/p near you Can for information 

Toll Free Number 800-433-5184 

Texas Residents 817-274-5625 



-See List ol Advertisers on page 418 
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Program continued 



724A CD5670 


04730 


CALL 


CLRLIN ; 


CLEAR IT FIRST 


724D 217678 


04740 


LD 


HL,MODMSG | 


MODIFY MESSAGE 


7250 012400 


04750 


LD 


BCMODLEN 




7253 EDB0 


04760 


LDIR 








04770 


? GET STARTING 


OFFSET 




7255 CD9571 


04780 


CALL 


VIDSAV ; 


SAVE SCREEN FIRST 


7258 21E23F 


04790 


LD 


HL,OFFPOS i 


OPFSET POSITION 


725B 110P79 


04800 


LD 


DE, OFFSET | 


TEMP STORAGE 


725E CDBA70 


04810 


CALL 


GETDIG | 


GET OFFSET 


7261 D8 


04820 


RET 


C ; 


DONE 


7262 CDBA70 


04830 


CALL 


GETDIG 




7265 D8 


04840 


RET 


C t 


TERMINATE 


7266 CD6270 


04850 


CALL 


CLRSCN j 


CLEAR THE SCREEN 


7269 21003C 


04860 


LD 


HL r VIDHEH ; 


START DISPLAY AT TOP 


726C 3A0F79 


04870 


LD 


A, (OFFSET) ; 


SET INITIAL OFFSET 


726F 11007A 


04880 


LD 


DE,SECBUF 


BUFFER ADDRESS 


7272 5F 


04890 


LD 


E,A ] 


SET BYTE OFFSET IN SI 


TOR 












04900 


; DISPLAY STARTING OFFSET 




7273 CD1971 


04910 


MOD010 CALL 


HEXASC ] 


CONVERT TO HEX 


7276 70 


04920 


LD 


(HL) ,B 




7277 23 


04930 


INC 


HL 




7278 71 


04940 


LD 


(HL) ,C 




7279 23 


04950 


INC 


HL 




727A 23 


04960 


INC 


HL 




727B 23 


04970 


INC 


HL 






04980 


; DISPLAY BYTE 


AT OFFSET 




727C 1A 


04990 


LD 


A,(DE) 


GET BYTE 


727D CD1971 


05000 


CALL 


HEXASC 


CONVERT TO ASCII 


7280 70 


05010 


LD 


(HL) ,B 




7281 23 


05020 


INC 


HL 




7282 71 


05030 


LD 


(HL) ,C 




7283 23 


05040 


INC 


HL 




7284 23 


05050 


INC 


HL 






05060 


; GET MODIFYING BYTES 




7285 D5 


05070 


PUSH 


DE 


SAVE SECTOR ADDR 


7286 110E79 


05080 


LD 


DE,MODBYT 


STORAGE FOR MOD BYTE 


7289 CDBA70 


05090 


CALL 


GETDIG 




728C Dl 


05100 


POP 


DE 




728D 3839 


05110 


JR 


CMOD030 


TERMINATE 


728F 2810 


05120 


JR 


Z,MOD020 


NEXT BYTE 


7291 D5 


05130 


PUSH 


DE 




7292 110E79 


05140 


LD 


DE,MODBYT 




7295 CDBA70 


05150 


CALL 


GETDIG 


2'ND DIGIT 


7298 Dl 


05160 


POP 


DE 




7299 382D 


05170 


JR 


CHOD030 


END 


729B 2804 


05180 


JR 


Z r MOD020 


NEXT BYTE 


729D 3A0E79 


05190 


LD 


A, (MODBYT) 


GET MOD 


72A0 12 


05200 


LD 


(DE) ,A 


UPDATE SECTOR 


72A1 3620 


05210 


MOD020 LD 


(HL),' ' 


CLEAR BYTE 


72A3 7D 


05220 


LD 


A,L 


GET COLUMN NUMBER 


72A4 F63F 


05230 


OR 


3FH 


SET TO LINE END 


72A6 6F 


05240 


LD 


L,A 




72A7 23 


05250 


INC 


HL 


BUMP TO NEXT LINE 


72A8 7C 


05260 


LD 


A,H 


CHECK SCREEN END 


72A9 FE40 


05270 


CP 


40H 


BEYOND SCREEN? 


72AB 2011 


05280 


JR 


NZ,MOD025 


NOT YET. 


72AD D5 


05290 


PUSH 


DE 


SAVE 


72AE 21403C 


05300 


LD 


HL,VIDMEM+LINSIZ 


; SCROLL DOWN 


72B1 11003C 


05310 


LD 


DE,VIDMEM 




72B4 01C003 


05320 


LD 


BC,VIDLEN-LINSIZ 




72B7 EDB0 


05330 


LDIR 






72B9 CD5670 


05340 


CALL 


CLRLIN 




72BC EB 


05350 


EX 


DE,HL 


SET HL TO LAST LINE 


72BD Dl 


05360 


POP 


DE 


• RESTORE 


72BE 3A0F79 


05370 


MOD0 25 LD 


A, (OFFSET) 


•GET OFFSET 


72C1 3C 


05380 


INC 


A 


•NEXT BYTE 


72C2 320F79 


05390 


LD 


(OFFSET) ,A 


•SAVE IT 


72C5 13 


05400 


INC 


DE 


•NEXT BYTE IN SECTOR 


72C6 18AB 


05410 


JR 


MOD010 


•DISPLAY ANOTHER LINE 


72C8 CDA171 


05420 


MOD0 3 CALL 


VIDRES 


; REDISPLAY SCREEN 


72CB C9 


05430 
05440 
05450 


RET 






72CC 


05460 


PRINT EQU 


$ 


; PRINT SECTOR 


72CC 21C03F 


05470 


LD 


HL f LINE16 


•SECTOR INFO 


72CF 063A 


05480 


LD 


B.RWLEN+2 




72D1 3E0D 


05490 


LD 


A,CR 


; SETUP FOR PRINT 


72D3 CD3671 


05500 


CALL 


LPRINT 




72D6 7E 


05510 


PRI005 LD 


A, (HL) 


; PRINT INFO 


72D7 23 


05520 


INC 


HL 




72D8 CD3671 


05530 


CALL 


LPRINT 




72DB 10F9 


05540 


DJNZ 


PRI005 




72DD 3E0D 


05550 


LD 


A,CR 


;END OF LINE 


72DF CD3671 


05560 


CALL 


LPRINT 




72E2 3E0D 


05570 


LD 


A,CR 





Program continues 
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! JsL 




Modal 488-80B For Model 1 Operation 
m'amum 



JEL 



Modal 488-80C For Modal 3 Operation 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-80B or 488-80C $325. 

♦ shipping, insurance A tat 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES ^291 
11 Neil Drive • Old Bethpage. NY 11804 
Telephone (516) 694-3205 

• Trademark of Tandy Corp 

There is no affiliation between Scientific Engineering 

Laboratories and Tandy Corp or Radio Shack 



UTILITIES 



A MUST FOR ALL 

PROGRAMMERS 



PROGRAM INNOVATIONS 



Model II Disassembler ^blb 

Output in ASCII or hex to printer or screen ONLY $73.95 

Data File Utility (Model I Level II. 16 K mm.) Creates /Updates/ Sorts ANY disk tile 
independent of your program Disk only $61. 95 

Modal II Macro Assembler Incorporate fast, time-saving macros into assembly 



language programs 



ONLY $74.95 



LOOK! (i) cls 


(2-A) 


LD B. 1BH 


(2-B) 


RST 8 


PRINT MSG. \f 13 




LD A 8 




LD A. 36 


JP2D0S 




RST 8 




RST 8 


MSG DEFM IT WORKS! 1 ' 




LD HL MSG 


MSG 


DEFM IT WORKS" 


END 




LD B. M 
LD C»JH 




END 



Both programs produce the exact same code Program (1 j was created with the Macro Assembler 
Save 40%-80°'o time while reducing error probability 1 

omndopenino special 10% Off an Orders received by iiiMi "MASTER CARD AND 

OUR GUARANTEE All programs will worn as advertised or your money refunded VISA WELCOME' 



mmMSmBl 



P.O. Boil 368 Lumberton, N.C. 28358 
Phone (919) 739-3217 Night 739-3990 
N.C. RESIDENTS ADD 4% SALES TAX . 



DELTA PRESENTS 

PRICES WITH BYTE 



MODEL II 

2K Moiling List -Keep track of 2 000 names & 
oaaresses rerreive ony one in 2 seconds Tne most 
sopnisticoied moiier on the market witn zip-sorting 
moiling label printer $349.95 

DMMU (Disk/Memory Management Utilities) - Reoa 
write move one copy ony sector on ony disk or seorcn 
o disk for o specific hex or ASCII string use DiSASSTRS 
to disassemble anything in memory to highly readable 
Z-80 mnemonics $34 95 

DCS NU-BASIC -Better man me other extended 
BASICS, for much less 1 Sort & seorcn orroys PEEK & 
POKE, reoa from CRT. single-step BASIC insert & 
arxete lines under progrom control, creote linkable 
BASIC modules wfiicn lood & execute without dosing 
files or erasing variables use ON BREAK GOTO to trap 
interrupts, better line & string editing singie-line 
duplicate & relocate fun type aneaa §0X48 
graphics multi-line functions much more Must be 
seen tc be believed ' $1 70 

DCS CUSTOM SERVICES -We provide fully custom 
softwore at me industry s most reasonable rates Coll 
or write for details 

MODEL I, III 

MAGIC -Tnofs what we coil our Advdnced Gropnics 
instruction Course Learn to draw 3-dimensionol 
shapes and curves mat look m-res 1 volume i available 
now for 4K I I6KII&III $9 95 

MOD3MON-Exomme modify dump & lood to tope 
compute JR values for nand-ossemoiy 
16K III 



DiSASSTRS -Machine code disassembler 



$9 95 

16KII or 
$9 95 

$39 95 



MODEL H DISKS (Box ol 10) 

We invite submissions from oil software authors 

Highest royolties paid r-or more 

information cai> or write 



A" 



DELTA COMPUTER SYSTEMS 
668 Chenango Street 
Blnghamton, NY 13901 MPT 
(607)722-9593 ^sn M 



/ 



ONACKI 

o 



tf* 



G* S 






INTRODUCING THE FIRST PASCAL COMPILER 
FOR TRS-80* MODEL I AND MODEL 



# # 



FAST ONE PASS RECURSIVE DESCENT DESIGN 

CONFORMS CLOSELY TO ISO DP 7 185.1 

SYNTAX ERROR CHECKING 

ACCESS TO TRS-80 GRAPHICS AND RANDOM NUMBER GENERATOR 

COMPLETE DOCUMENTATION 

RUNS UNDERTRS DOS ^c^ot^o***-^^™ 



CALIF ORDERS 



*TRS-80 IS A TRADEMARK OF TANDY CORP. 
«#MINIMUM 32-K AND SINGLE DISK DRIVE 



ONACKI SYSTEMS 

5161 COLE ST. 

SAN DIEGO, CA 921 17 




sSee List ol Advertisers on page <ffl 
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Program conttn 


ea 


















72E4 


CD3671 


05580 




CALL 


LPRINT 








72E7 


0610 


05590 




LD 


B, LINES 








72E9 


3E00 


05600 




LD 


A,0 


;BUFFER INITIAL OFFSET 






72EB 


11007A 


05610 




LD 


DE,SECBUF 


.•ADDRESS OF BUFFER 






72EE 


CD6E70 


05620 


PRI010 


CALL 


FORMAT 


; FORMAT A LINE 






72F1 


D9 


05630 




EXX 










72F2 


08 


05640 




EX 


AF,AF' 








72F3 


217677 


05650 




LD 


HL,FMTBUF 


; FORMATTED LINE 






72F6 


0640 


05660 




LD 


B,LINSIZ 








72F8 


7E 


05670 


PRI020 


LD 


A, (HL) 


;GET A BYTE 






72F9 


23 


056 80 




INC 


HL 








72FA 


E67F 


056 90 




AND 


7FH 


; PRINT ONLY CHARACTERS 






72FC 


FE20 


05700 




CP 


i i 


; CONTROL CHAR? 






72FE 


F20373 


05710 




JP 


P r PRI030 


;NO. 






7301 


3E20 


05720 




LD 


A,' ' 


; SUBSTITUTE SPACE 






7303 


CD3671 


05730 


PRI030 


CALL 


LPRINT 


;SEND TO SERIAL PRINTER 






7306 


10F0 


05740 




DJNZ 


PRI020 


;LOOP UNTIL DONE 






7308 

N 

730A 


3E0D 


05750 




LD 


A f CR 


;END WITH CARRIAGERETUR 






CD3671 


05760 




CALL 


LPRINT 








730D 


D9 


05770 




EXX 










730E 


08 


05780 




EX 


AF,AF' 








730F 


C610 


05790 




ADD 


A r 16 


;BUMP OFFSET 






7311 


10DB 


05800 




DJNZ 


PRI010 


;LOOP OVER 16 LINES 






7313 


C9 


05810 
05820 




RET 










7314 




05830 


READ 


EQU 


$ 


;READ DISK SECTOR 






7314 

S 

7317 


CD4971 


05840 




CALL 


SECDFN 


; DEFINE SECTOR TO ACCES 






D8 


05850 




RET 


C 


; TERM I NATE 






7318 


CD AD 71 


05860 




CALL 


FDRDY 


; START UP DRIVE 






731B 


3A127 9 


05870 




LD 


A, (INIT) 


;HAVE WE INITIALIZED? 






731E 


B7 


05880 




OR 


A 








731F 


CCC271 


05890 




CALL 


Z,TRZERO 


;NO. MOVE TO TRACK 






7322 


CDD371 


05900 




CALL 


TRSEEK 


;GET TRACK 






7325 


C25073 


05910 




JP 


NZ, IOERR 


; DISPLAY ERROR 






7328 


CDEC71 


05920 




CALL 


SECGET 


;READ SECTOR 






732B 


C2507 3 


05930 




JP 


NZ, IOERR 


; DISPLAY ERROR 






732E 


CD8771 


05940 




CALL 


UPTRAK 








7331 


C9 


05950 
05960 
05970 


1 


RET 










7332 




0S980 


WRITE 


EQU 


$ 


;WRITE DISK SECTOR 






7332 

S 

7335 


CD4971 


05990 




CALL 


SECDFN 


; DEFINE SECTOR TO ACCES 






D8 


06000 




RET 


C 


; TERMINATE 






7336 


CD AD 71 


06010 




CALL 


FDRDY 


; READY DISK 






7339 


3A127 9 


06020 




LD 


A, (INIT) 


;HAVE WE INITIALIZED? 






733C 


B7 


06030 




OR 


A 








733D 


CCC271 


06040 




CALL 


Z,TRZERO 


;NO. FIND TRACK 






7340 


CDD371 


06050 




CALL 


TRSEEK 


;GET THE TRACK WE WANT 






7343 


C25073 


06060 




JP 


NZ, IOERR 


.•DISPLAY ERROR 






7346 


CD0472 


06070 




CALL 


SECPUT 


; WRITE SECTOR 






7349 


C25073 


06080 




JP 


NZ, IOERR 


; DISPLAY ERROR 






734C 


CD8771 


06090 




CALL 


UPTRAK 








734F 


C9 


06100 
06110 




RET 










7350 

S 

7350 




06120 


IOERR 


EQU 


S 


;DISPLAY DISK I/O ERROR 






F5 


06130 




PUSH 


AF 


;SAVE ERROR CODE 






7351 


11C03F 


06140 




LD 


DE,LINE16 


j MESSAGE LINE 






7354 


CD5670 


06150 




CALL 


CLRLIN 


; CLEAR IT 






7357 


21B278 


06160 




LD 


HL,IOEMSG 


;I/0 ERROR MESSAGE 






735A 


011900 


06170 




LD 


BC,IOELEN 


; LENGTH 






735D 


EDB0 


06180 




LDIR 










735F 


Fl 


06190 




POP 


AF 


; RESTORE ERROR CODE 






7360 


CD1971 


06200 




CALL 


HEXASC 


; 'A' HAS ERRORS 






7363 


13 


06210 




INC 


DE 


;NEXT BYTE 






7364 


EB 


06220 




EX 


DE,HL 








7365 


70 


06230 




LD 


(HL) ,B 


; DISPLAY ERROR CODE 






7366 


23 


06240 




INC 


HL 








7367 


71 


06250 




LD 


(HL) ,C 








7368 


C9 


06260 
06270 
06280 


: 


RET 










7369 




06290 


ZERO 


EQU 


$ 


;ZERO SECTOR BUFFER 






7369 


0600 


06300 




LD 


B,0 


;256 BYTES LONG 






736B 


21007A 


06310 




LD 


HL,SECBUF 


; BUFFER ADDRESS 






736E 


0E00 


06320 




LD 


C,0 


.-NULL FILL 






7370 


71 


06330 


ZER010 


LD 


(HL) ,C 


;FILL IT 






7371 


23 


06340 




INC 


HL 


;NEXT BYTE 






7372 


10FC 


06350 




DJNZ 


ZER010 


,-FILL SECTOR 






7374 


C9 


06360 
06370 
06380 


» 


RET 










7375 


C9 


06390 
06400 


DUMMY 


RET 




; DUMMY ROUTINE p 


roqram continue-. 


1 






r r § t t t 


r r r r i i i 




' ' ' ' 
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Untangle + Beautify with the Organizer! 




CABINET 1 



Now you can place your TRS-80 Model 1 components 
into one convenient handsomely designed desk top 
package. The ORGANIZER puts everything within easy 
reach, with room for Monitor. Expansion Interface, four 
Disk Drives. Diskettes. Cassettes, tape recorder and 
many accessories The ORGANIZER eliminates messy 
wires, reduces eye and body strain, provides room for 
ventilation, and works as a dust shield. 

The ORGANIZER consists of two cabinets: 

CABINET ONE holds Monitor. Expansion Interface. Pow- 
er Supplies. Line filters. Cables. Power strip. Fan and has 
an easily removable front panel for re-booting 

CABINET TWO can hold up to four Disk Drives, Tape 
Recorder. Fan, Diskettes and cassettes. This cabinet is 
usable with any manufacturer's SW disk drives. 



BUY BOTH 
$57.50 



FULLY ASSEMBLED 
VISA, MASTERCARD, or COD. 

For fast service 

CALL NOW TOLL FREE 

Continental U.S. . . 800-824-7888 ask for operator 617 

California . .800-852-7777 ask for operator 617 
Alaska and Hawaii . .800-824-7919 ask for operator 617 



Or send check or money order to: 

Uuuiy I id I 1 III I 2794 Hume Rd , Malibu. California 90265 • For information, (213) 456-9023 .* 



^Smlttol A<*m'ti*m'tonfiay*1li 
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Program continued 




06410 
06420 


I 


BUFFERS 


; 








i i i i i t t 


i i i i i i i i i 


t t t t 


iiiiiiiiiii 








06430 


j 














06440 


; 










7376 




06450 


VIDBUF 


EQU $ 






7376 


20 


06460 




DEFM 




■ 




7385 


44 


06470 




DEFM 


DISK 


SECTOR DISPLAY/MODIFY UTILITY' 




73A7 


20 


06480 




DEFM 




i 




73B6 


20 


06490 


L2 


DEFM 








73D6 


20 


06500 




DEFM 








73F6 


20 


06510 


L3 


DEFM 




COMMANDS AVAILABLE ARE: ' 




7416 


20 


06520 




DEFM 








7436 


20 


06530 


L4 


DEFM 








7456 


20 


06540 




DEFM 








7476 


20 


06550 


L5 


DEFM 




i 




7488 


44 


06560 




DEFM 


D - 


DISPLAY SECTOR ' 




7 4 AD 


20 


06570 




DEFM 




i 




74B6 


20 


06580 


L6 


DEFM 




• 




74C8 


4D 


06590 




DEFM 


M - 


MODIFY SECTOR 




74EE 


20 


06600 




DEFM 




i 




74F6 


20 


06610 


L7 


DEFM 




• 




7508 

1 


50 


06620 




DEFM 


'P - 


PRINT SECTOR 




7530 


20 


06630 




DEFM 




i 




7536 


20 


06640 


L8 


DEFM 




• 




7548 


52 


06650 




DEFM 


'R - 


READ DISK SECTOR • 




756A 


20 


06660 




DEFM 




• 




7576 


20 


06670 


L9 


DEFM 




' 




7588 


57 


06680 




DEFM 


■w - 


WRITE DISK SECTOR • 




75AB 


20 


06690 




DEFM 




• 




75B6 


20 


06700 


L10 


DEFM 




' 




75C8 


5A 


06710 




DEFM 


'Z - 


ZERO SECTOR BUFFER' 




75E0 


20 


06720 




DEFM 




' 




75F6 


20 


06730 


Lll 


DEFM 








7616 


20 


06740 




DEFM 








7636 


20 


06750 


L12 


DEFM 








7656 


20 


06760 




DEFM 








7676 


20 


06770 


L13 


DEFM 








7696 


20 


06780 




DEFM 






Program continues 



OVER 75 TRS-80 PROGRAMS ON TAPE 
EACH YEAR... 



For the MODEL I III: 

Or Ebenezer Goad wiped his glasses off — and grabbed for his 
gold pouch! With CLOAD Magazine, he could use and enjoy 
his computer for the price of a turkey with stuffing! And he could 
send Bob home early, since the programs did not have to be 
typed in! 

He now gee a 30 minute tape each month with 7 or more 
practical, tutorial, utility, and game programs to CLOAD and 
run While he CLOADs the programs, he reads the editor's 
babblings that come with each tape. 

Don't let ghostly images cloud your TRS'80's screen. Get a 
subscription to CLOAD Magazine! 

The Fine Print: The Bottom Line: 

Issues are sent First Class Mail ! year (12 issues) . . . S42.00 

All issues from Oct 78 on available — 6 months |6 issues) S23 00 

ask for list (24 Level I issues also) Single copies — 

Programs are for 1 6K Level II. 1 6K Back issues SS4 50 

Model III. and occasionally for disks Good Games #1 . . $12.00 

Calif residents add 6% to single Adventures #1 $13 00 

copies and anthologies. Overceas — Anthology #1 $10 00 

add $10 to subscriptions. $5 to Anthology #2 $15 00 

anthologies, and $1 to single copies. TRS-80 is a trademark of Tandy Corp 

Sent AO rate. MasterCard/ Visa/ Gold also welcome 




CLOAD ""*$£' 

BO. Box 1448 Santa Barbara. CA 93102 
(805) 962-6271 
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Program continued 


76B6 


20 


06790 


L14 


DEFH 


' COMMAND? ' 






76D6 


20 


06800 




DEFM 








76F6 


20 


06810 


L15 


DEFM 








7716 


20 


06820 




DEFM 








7736 


20 


06830 


L16 


DEFM 








7756 


20 


06840 
06 850 


1 


DEFM 








7776 


20 


06860 


FMTBUF 


DEFM 








7796 


20 


06870 




DEFM 








77B6 


60 


06880 


KBTAB 


DEFM 


,% ABCDEFGHIJKLMNOPQRSTUVWXYZ ■ 






77D6 


30 


06890 




DEFM 


'0123456789:;,-./' 






77E6 


0D 


06900 




DEFB 


CR 






77E7 


20 


06910 




DEFM 


' ' 






77F6 


60 


06920 




DEFM 


''ABCDEFGHIJKLMNOPQRSTUVWXYZ ' 






7816 


30 


06930 




DEFM 


* 01 "•$%& ' 






781D 


03 


06940 




DEFB 


3H 






781E 


28 


06950 




DEFM 


'()*+<«>?' 






7826 


0D 


06960 




DEFB 


CR 






7 827 


20 


06970 




DEFM 


• • 






782E 


30 


06980 


ASCII 


DEFM 


'01 234567 89ABCDEF 1 ; ASCI I TABLE 






783E 


20 


06990 


RWMSG 


DEFM 


• DRIVE : ' 






784B 


5F 


07000 




DEFB 


CURSOR 






784C 


20 


07010 




DEFM 


' • 






7857 


54 


07020 




DEFM 


'TRACK : ' 






785F 


5F 


07030 




DEFB 


CURSOR 






7860 


5F 


07040 




DEFB 


CURSOR 






7861 


20 


07050 




DEFM 


• • 






786B 


53 


07060 




DEFM 


'SECTOR s ' 






7874 


5F 


07070 




DEFB 


CURSOR 






7875 


5P 


07080 




DEFB 


CURSOR 






0038 




07090 


RWLEN 


EQU 


S-RWMSG 






7876 


20 


07100 


NODMSG 


DEFM 


• STARTING WITH BYTE (00-FF) : ' 






7898 


5F 


07110 




DEFB 


CURSOR 






7899 


5F 


07120 




DEFB 


CURSOR 






0024 




07130 


MODLEN 


EQU 


$-MODMSG 






789A 


20 


07140 


INVMSG 


DEFM 


• *** INVALID COMMAND' 






0018 




07150 


INVLEN 


EQU 


S-INVMSG 






78B2 


20 


07160 


IOEMSG 


DEFM 


• *** DISK I/O ERROR : ' 






0019 




07170 


IOELEN 


EQU 


$-IOEMSG 






0040 




07180 




DEFS 


64 ; STACK AREA 






790B 




07190 


STACK 


EQU 


$ 






790B 


01 


07200 


DRIVEN 


DEFB 


1 ; DRIVE NUMBER 


Program continues 



. . . FOR UNDER $0.75 (that's SIX BITS) APIECE I 

For the COLOR COMPUTER: 



You just spent your vacation money on the Extended 
BASIC Color Computer, and now you want to buy 
software' 1 "?^ 7 

Don t skip meals - get CHROMASETTE Magazine' Each 
month your computer will get a balanced diet of 6 or 
more programs on cassette (just load and run!) Along 
witn the tape comes some notes on the programs, along 
with tidbits on the Color Computer world 



The Fine Print: 

issues are sent First Class Mail 

All tssues Irom Jury 81 on available — ask for list. 

Programs arc for the Extended BASIC model only 
Calif, residents add 6% to single copies Overseas - 

add $10 to subscriptions, add $ 1 to single copies. 
Sent AO rate 

MasterCard/Visa welcome 1 





Chromasette Magazine 

— for those who relish every byte (that pun even hurt me) 




Chromasette Magazine 

PO Box 1087 Santa Bdrb&6, CA 93102 
(805) 963-1066 *u 



The Bottom Line: 

1 year (12 issues) . $45.00 

6 months (6 issues) $25 00 
Single copies $5 00 



sSee List of Advertisers on page 418 
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Program continued 


790C 


00 


07210 


TRACK N 


DEFB 


; 


TRACK NUMBER 




790D 


00 


07220 


SECTRN 


DEFB 





SECTOR NUMBER 




790E 


00 


07230 


MODBYT 


DEFB 


• 


SECTOR MODIFY BYTE 




790F 


00 


07240 


OFFSET 


DEFB 





SECTOR OFFSET BYTE 




7910 


8C 


07250 


IOCKD 


DEFB 


READS 


FLOPPY I/O COMMAND 




7911 


00 


07260 


TRACKA 


DEFB 





ACTUAL TRACK NUMBER 




7912 


00 


07270 


INIT 


DEFB 





INITIALIZE FLAG 




7913 




07280 


CMDTBL 


EQU 


$ 


COMMAND TABLE 




7913 


7573 


07290 




DEFW 


DUMMY 


'A' 




7915 


7573 


07300 




DEFW 


DUMMY 


'B' 




7917 


7573 


07310 




DEFW 


DUMMY 


•c 




7919 


1C72 


07320 




DEFW 


DISPLY 






791B 


7573 


07330 




DEFW 


DUMMY 


■ 'E' 




791D 


7573 


07340 




DEFW 


DUMMY 


• 'F' 




791F 


7573 


07350 




DEFW 


DUMMY 


• 'G' 




7921 


7573 


07360 




DEFW 


DUMMY 


• 'H' 




7923 


7573 


07370 




DEFW 


DUMMY 


; ' I ' 




7925 


7573 


07380 




DEFW 


DUMMY 


; 'J' 




7927 


7573 


07390 




DEFW 


DUMMY 


; 'K 1 




7929 


7573 


07400 




DEFW 


DUMMY 


; 'L' 




792B 


4772 


07410 




DEFW 


MODIFY 






792D 


7573 


07420 




DEFW 


DUMMY 


; 'N' 




792F 


7573 


07430 




DEFW 


DUMMY 


; '0' 




7931 


CC72 


07440 




DEFW 


PRINT 






7933 


7573 


07450 




DEFW 


DUMMY 


;'Q' 




7935 


1473 


07460 




DEFW 


READ 






7937 


7573 


07470 




DEFW 


DUMMY 


; *s' 




7939 


7573 


07480 




DEFW 


DUMMY 


. i t i 




793B 


7573 


07490 




DEFW 


DUMMY 


• 'U' 




793D 


7573 


07500 




DEFW 


DUMMY 


. I V . 




793F 


3273 


07510 




DEFW 


WRITE 






7941 


7573 


07520 




DEFW 


DUMMY 


; 'x' 




7943 


7573 


07530 




DEFW 


DUMMY 


;'Y' 




7945 


6973 


07540 




DEFW 


ZERO 






007A 




07550 


SECMSG 


EQU 


$+0FFH<-8 


; ROUND HIGH BYTE UP 




7A00 

RY 

0100 




07560 




ORG 


SECMSG<8 


;NOW ON 256 BYTE BOUNDA 






07570 


SECBUF 


DEFS 


256 


; SECTOR BUFFER 




7000 




07580 




END 


DSKMOD 






00001 TOTAL 


ERRORS 












The error reported by the assembler is only 


a warning- 


-not a fatal error The ob/ect code generated at line 2290 is correct 




Sales Opportunity 



Join a fast growing company 
involved in the microcomputer 
industry as a direct salesman. 
Sales involve our wide selection 
of books, four publications, soft- 
ware and advertising space in the 
publications. We are looking for a 
non-smoking individual with a good 
sales background and a basic under- 
standing of microcomputers. An ex- 
cellent career awaits the person who 
wants to be "on his own." It will be 
the responsibility of our direct 
salesman to become familiar with all 
makes of computers and their sales 
outlets, amateur radio and electronic 
stores, book stores, and other outlets 
for our products in your given terri- 
tory. We will also add 
other lines as they 
become available. Ar- 
rangements are being 




made to coordinate efforts with some 
other firms in the area, including a 
major printer manufacturer. We offer 
an excellent growth potential with a 
highly motivated, young corporation. 
If you or someone you know is inter- 
ested in the opportunities available 
at Wayne Green Inc.. please submit 
your background in detail, including 
sales experience, recent work his- 
tory, knowledge of the microcomput- 
ing industry, educational background 
and references to: Sales Manager, 
Wayne Green Inc., Peterborough. 
N.H. 03458. All replies will be immedi- 
ately acknowledged and held in the 
strictest of confidence. 

Personnel Dept. 
80(D) Pine St. 
Wayne Green Inc. 
Peterborough, N.H. 03458 
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************************ ***** * * * * ****** ****** * * * * * ** 

4MHZ, DOUBLE DENSITY,COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 




■Men you've compared the feature! of an LNU80 Coaputer, you'll quickly 
understand why the UMBO Is the ultimate TRS80 software compatible system. 
DM RESEARCH offers the most complete ai crocomputer system at an outstand- 
ing low price. 

we back up our product with an unconventional 6 aonth warranty and a 10 
days full refund policy, less shipping charges. 

LNU80 Coaputer SI ,450.00 

LNU80 Coaputer w/BW Monitor a one 5* Drive $1,914.00 

All orders Must be prepaid, CA residents please include 61 sales tax. 
Contact ua for shipping charges 

* TRS80 Product of Tandy Corporation. 

** PMC Product of Personal Microcomputer, Inc. 



C3MPME THE 
FEATURES 


FEATURES AND PERFORMANCE 

LNW3C M -ftO" 


TRS-80* 
MODEL IK 


PROCESSOR 




4.0 MHZ 


1,8 MHZ 


2.0 MHZ 


LEVEL II BASIC 1NTERP. 




YES 


»ES 


LEVEL II] 
BASIC 


TRS30 MODEL 1 LEVEL 11 C0MPA1 


ISLE 


YES 


YES 


NO 


48k BYTES RAM 




YES 


YES 


IE5 


CASSETTE BAUD RATE 




500/ 1000 


bOO 


500/1500 


FLOPPY DISK CONTROLLER 




SINGLE/ 
DOUBLE 


SINGLE 


SINGLE/ 

DOUBLE 


SERIAL RS232 PORT 




YES 


YES 


YES 


PRINTER PORT 




YES 


YES 


YtS 


REAL TIME CLOCK 




YES 


YES 


YES 


24 X 80 CHARACTERS 




YES 


NO 


NO 


VIDEO MONITOR 




YES 


YES 


YES 


UPPER AND LOWER CASE 




YES 


OPTIONAL 


YES 


REVERSE VIDEO 




YES 


NO 


NO 


KEYBOARO 




63 KEY 


53 KEY 


53 KEY 


NUMERIC KEY PAD 




YES 


NO 


YES 


B/M GRAPHICS, 128 X 48 




YES 


YES 


YFS 


HI -RESOLUTION B/M GRAPHICS, 480 > 192 


YES 


HO 


NO 


Ht -RESOLUTION COLOR GRAPHICS 
128 X 192 IN 8 COLORS 


(NTSC). 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS 
384 X 192 IN 8 COLORS 


(RGB), 


OPTIONAL 


NO 


NO 


WARRANTY 




6 MONTHS 


90 DAYS 


90 DAYS 


TOTAL SYSTEM PRICE 




$1 ,914.00 


S1.B40.00 


S2.187.O0 


LESS MONITOR AMD DISK DRIVE 




$1,450.00 


11, 375.00 


— 



LNW80 

- BARE PRtNTED CIRCUIT BOARD a MANUAL $89.95 

The INU80 - A high-speed color coaputer totally coapatible with 
the TRS-80*. The UMBO gives you the edge In satisfying your 
computation needs in business, scientific and personal computa- 
tion. With performance of 4 MHz, Z80A CPU, you'll achieve per- 
formance of over twice the processing speed of a TRS-80*. This 
aeans you'll get the performance that is coaparable to the aost 
expensive microcomputer with the compatibility to the world's 
aost popular coaputer (TRS-80*) resulting in the widest soft- 
ware base. 



FEATURES: 



TRS-80 Model 1 Level II Software Coapatible 

High Resolution Graphics 

. RGB Output - 384 x 192 in 8 Colors 

. NTSC Video or RF MOD - 128 x 192 in 8 Colors 

. Black and White - 480 > 192 

4 MMi CPU 

500/ 1000 Baud Cassette 

Upper and Lower Case 

16K Bytes RAM, 12K Bytes ROM 

Solder Masked and Silkscreened 



LNW SYSTEM EXPANSION 

BARE PRINTED CIRCUIT BOARD 

AMD MANUAL $69.95 

WITH GOLD CONNECTORS $84.95 



The System Expansion will allow you to expand your LNU80, TRS-80* 
or PHC-80** to a complete computer system that is still totally 
software compatible with the TRS-80* Model 1 Level II. 

FEATURES: 

32K Bytes Memory 

5" Floppy Controller 
. Serial RS232 20ma I/O 
. Parallel Printer 

Reai T1ae Clock 

Screen Printer Bus 

On Board Power Supply 
. Solder Masked and Silkscreened 



LNW RESEARCH 

C OR PORA T ION 

2620 WALNUT 
TUSTIN CA. 92680 **53 



LNDoubler&DOS PLUS 3.3D 



- Assembled and Tested w/DOS plus 3. 3D $175.00 

Double- density disk storage for the LNU Research's "Systaa Expan- 
sion* or the Tandy's "Expansion Interface". The LMDoubler™ is 
totally software coapatible with any double density software 
generated for the Percoa's Ooubler***. The LNOoublerTM provides 
the following outstanding features. 

Store up to 3SOK bytes on a single 5" disk 

Single and double density data separation 

Precision write precompensetion circuit 

Software switch betw een single and double density 

Easy plug in Installation requiring no etch cuts, jumpers 

or soldering 
35, 40, 77, 80 track 5* disk operation 
120 day parts and labor Warranty 

*** Ooubler is a product of Percoa Data Company, Inc. 

DOS PLUS 3.30 

Micro Systems software's double density disk operating system. 
This operating system contains all the outstanding features of 
a well developed DOS, with ease in useability. 



KEYBOARD 



LNW80 KEYBOARD KIT $84.95 

The Keyboard Kit contains a 63 key plus a 10 key, P.C. board, and 
remaining components. 



CASE 



LNU80 CASE $84.g5 

The streamline design of this metal case will house the LNU80, 
LMN System Expansion, LNM80 Keyboard, power supply and fan, 
LHDoublerTM, or LNU Data Separator. This kit includes all the 
hardware to mount all of the above. Add $ 12.00 for shipping 

PARTS AVAILABLE FROM LNU RESERARCh 
. 4116 - 200ns RAM 

6 chip set $26.00 

8 chip set $33.50 

16 chip set $64.00 

24 chip set $94.00 

32 chip set $124.00 

. LNU80 "SUrt up parts set" LNU80-1 $82.00 

. LNU80 "Video parts set" LNU80-2 $31.00 

. LNU80 Transformer LNU80-3 $18.00 

. UMBO Keyboard cable LNU80-4 $16.00 

40 Pin computer to expansion cable $15.00 

System Expansion Transformer $19.00 

. Floppy Controller (FD1771) and UART (TR1602) . . . $30.00 



ORDERS A INFO NO. 714-544-5744 
SERVICE NO. 714-641-8850 



VISA MASTER CHARGE 
ACCEPTED 



UNLESS NOTED 

ADO S3 FOR SHIPPING 



GAME 



The Magic Cube 




David York 
Energy Systems Co. 
55 Hemlock Lane 
Chagrin Falls, OH 44022 



The Basic program listed in 
this article simulates the 
mechanical action of a popular 
puzzle known as the Magic 
Cube, or Rubik's Cube. 
The actual puzzle is a cube 



with six colored faces divided 
into nine squares. By holding 
the cube in one hand and turn- 
ing any face with the other 
hand one quarter turn, it is 
possible to shift the colored 
squares to a new position. In a 
few moves, the cube colors 
become quite mixed. Although 
simple in appearance, the cube 
has an estimated 43,252,003. 
274,489,856,000 possible posi- 
tions! The advantage of this 
Basic program is that simu- 



lated manipulations of the 
cube can be performed while 
the moves are displayed. Unlike 
the actual puzzle, this allows 
you to keep track of your 
moves. 

In the execution of the Basic 
program, the cube is unfolded 
on the screen (or printer) into a 
two-dimensional representa- 
tion of the three-dimensional 
structure. The program accepts 
two modes of displaying the 
cube. If Numbers is typed after 



the Move? input request, the 
cube is displayed as shown: 



51 52 53 
54 55 56 
57 58 59 

1112 13 2122 23 3132 33 4142 43 
14 15 16 24 25 26 34 35 36 44 45 46 
17 18 19 27 28 29 37 38 39 47 48 49 

6162 63 
64 65 66 
67 68 69 



If Symbols is typed after the 



Program Listing 



1 CLEAR2B88:CLS:PRINT*RUBI!CS CUBE PUZZLE* :PRINT*SEE SCIENTIFIC 

AMERICAN 3/81' : 'PROGRAM BY DAVID YORK 3/8/81 

IB DEFINT I.J.K 

12 IX-1 

15 DIH S(6,9) ,D(3) ,IP(4) ,10(12) ,SS(6.9) 

21 AS-* I* II *(* 

22 CS-* III* 
25 BS-'lt M II 

27 DS-*1 1 1 

3B IS-**:IC-1:ICS(IC)-** 

58 F0RI-1T06:F0RJ-1T09:S(I,J)-I*1B*J:NEXT:NEXT 

98 GOSUB488 

188 INPUT*MOVE*;IS:ICS(IC)-ICS(IC)*IS+* *:FORI-1TOIC:PRINTIC$( IC 

) :NEXT: IFLEN ( ICS( IC) ) >252THENIC-IC*1 

11* IPIS- *R*THENBS-*23695369474163693*:GOT0588 

115 IFIS-"RP*THENMS-*296 36963414759633* :GOT058B 

128 IFIS- •L*THENHS-*27416741436957411*:GOT05B8 

125 IFIS-*LP*THENHS-*21475147496361471*:GOT05BB 

138 IFIS- *U*THENBS-*21231123412331235*:GOT05B8 

135 IPIS-*UP*THENHS-*23213321432113215*:GOT0588 

148 IFIS- *D*THENHS-*29873987498719876*:GOT05BB 

145 IFIS-*DP*THENHS-*27891789478937896*:GOT058B 

158 IFIS- •B*THENMS-*51231741698733694*:GOT0588 

155 I FI$»*BP*THENHS-* 5321 396367 891 1474" :GOT058fl 

168 IFIS- •P*THENH$-*59B73741612313692*:GOT05BB 

165 IFI S-*PP*THENMS-" 57 891 96 363213 1472* :GOT05B8 

178 IFI$-*SYMBOLS*THENIX«2:GOSUB199:GOSUB68B:GOT018B 

17 5 IFIS-*NUMBERS"THENIX-1:GOSUB199:GOSUB4BB:GOT018B 

198 IFIS-"NEW"GOT03B 

198 PRINT'INPUT NOT RECOGNIZED - TRY AGAIN* :GOSUB199:GOT018B 

199 lC$UCl«LEFT$UC$UO ,LEN(IC$UCn-LEN(lS)-D :RETORN 
288 II=l:IJ-B:F0RI-lTO4 



218 IP(I)-VAL(NID$(H$,II,1)) :FORJ-lT03 

228 IQ(J-»IJ)-VAL(MIDS(NS,II+J,1)) :NEXT 

238 IJ-IJ*3:II-II*4:NEXT 

258 FORJ-1T03:D(J)-S(IP(4) ,IQ(J*9) ) :NEXT 

268 IJ-9:FORI-4T02STEP-l 

278 FORJ-lT03:S(IP(I) , 10 ( J*IJ) ) -S( IP( 1-1) ,IQ(J*IJ-3)) :NEXT:IJ-IJ 

-3 -.NEXT 

288 FORJ-lT03:S(IP(l) ,IQ(J) ) -D( J) :NEXT 

388 I=VAL(RIGHTS(HS,D) :D1-S( I , 9) :D2-S ( I ,6) :D3-S( I , 3) 

318 IFRIGHTS(IS,1)-*P*G0T0338 

328 S(I,9)-S(I,3) :S(I,6)-S(I,2) :S( I ,3) -S( I . 1) :S(I , 2) -S( I ,4) :S(I, 

1)-S{I,7) :S(I,4)-S(I,8) :S ( I .7) -Dl :S( I , 8) -D2 :S ( I , 9) -D3 :G0T0348 

338 S(I,3)-S(I.9) iS(I,6)-S(I,8) :S ( 1 , 9) -S( 1 ,7) :S( 1 , 8) =S( 1 , 4) :S(I, 

7)-S(I,l) :S( 1,4) -S(I,2) :S( 1,1) -D3:S( 1,2) -D2:S( 1,3) »D1 

3 48 RETURN 

488 *>5:G0SUB438 

418 J-8:FORK-lTO3:F0RI-lTO4:PRINT USING BS;S ( I , 1 *J) ;S ( I , 2*J) ; S ( I 

,3*J) j:NEXT:J«J»3:PRINT:NEXT:PRINT 

428 K-6:GOSUB43B:RETURN 

438 I-8:FORJ-1T03!PRINT USING AS;S(K , 1 ♦! ) ,S(1C,2*I ) ,S (K.3+I ) : I-I* 

3 : NEXT : PRI NT : RETURN 

588 GOSUB2BB:IPIX-1THENGOSUB48B:GOT01BBELSEGOSUB6BB:GOT01B8 

688 F0RI-lTO6:F0RJ-lTO9:K-S(I,J) 

618 IFK<2eTHENSS-"L':GOT078B 

628 1FK<38THENSS-*F*:GOT078B 

638 IFK<4BTHENSS-*R*:GOT07B8 

648 IFK<58THENSS-*B":GOT078B 

658 IFK<68THENSS-*U*:GOT0788 

668 SS-"D* 

788 SS(I,J)-SS:NEXT:NEXT 

785 K-5:GOSUB73B 

718 J-8:F0RK-1T03:F0RI-1T04:PRINT USING DS I SS ( 1 , 1 +J ) ; SS ( I , 2+J) ; S 

S(I,3+J) j : NEXT: J -JO: PR I NT: NEXT: PRI NT 

72B K-6:GOSUB7 38: RETURN 

738 I«B:F0RJ-1T03:PRINT USING CS;SS (K , 1 *I ) ,SS(K , 2+1) ,SS(K, 3*1) : I 

= 1 1 3 : NEXT : PRI NT : RETURN 
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Move? request, the cube is dis- The inputs I have selected 



played as follows: 

uuu 
uuu 
uuu 

LLL FFF RRR BBS 
LLL FFF RRR BBB 
LLL FFF RRR BBB 

DDD 
ODD 
DDD 

The letters L, R, U, D, F, and B 
correspond to the left, right, up, 
down, front and back faces of 
the cube, respectively. 

The other valid inputs which 
are recognized after the Move? 
request are as follows: 

• R —This has the same effect as 

rotating the right face ot the cube 
one quarter turn clockwise 

• RP— This has the same etfect as 

rotating the right face of the cube 
one quarter turn counter-clock- 
wise (RP stands for R prime] 

The same rotations are pos- 
sible with the other five faces. 
The proper input responses are; 
L, LP, U, UP, D, DP, F, FP, B, and 
BP. 



correspond to standard terms 
used by the "cubists". Addi- 
tional moves may be added, but 
these moves are combinations 
of the moves already de- 
scribed: 



R a = R and L (so called "anti-slice' 
R s = R and LP (so called "slice ") 
Rj - R and R (half-turn move) 



You may revise the program to 
recognize these or other input. 
This can be done by inserting 
GOSUBs between lines 175 and 
190, l$ being the input string 
variable. 

The input response New will 
cause the cube to revert to the 
original position, all moves be- 
ing erased. The program will re- 
spond with Input Not Recog- 
nized—Try Again for any input 
other than those described. 

The Magic Cube has endless 
possibilities for computer own- 
ers. I hope you enjoy this pro- 
gram and I would like to hear 
from others who have worked 
with IB 




iminY 

FORCE 



THE VIDEO MANAGER £-\J FIRST IN A SERIES 

Our Video Manager will enhance your computer's per- 
formance with these features: vertical printing on 
screen; forms design direct from screen to printer; send 
entire screen or any part to your printer; save screen to 
disk as a file and more. Written so you can utilize it from 
DOS or BASIC. Available on disk for: TRS-80,* Mod I TRS 
DOS 2.3, Mod II TRS DOS 1.2 & 2.0, CPM 2.0 or later, 
soon available for* Mod III. For your convenience with 
Visa or M/C phone in your order. Please add $2 for hand- 
ling and postage. "-Tandy c<*p. 

SOFTWAREHOUSE INTERNATIONAL 

5070 N. Sixth St. Suite 103B 
Fresno, CA 93710 (209) 221-7877 

TO RECEIVE A FREE CATALOG PLEASE ^13 



r 



s LYNN'S A/R SYSTEM * 



12 Intergrated Account Receivable Programs 
Tested In Service For Over 2 Years 

User's Coments: 

• increased cash flow 
• saved over 50 hours a month in secretarial hours 
• almost completely eliminated billing errors 

LYNN'S A/R SYSTEM WILL 




• print invoices • store 1 .100 open invoices* tell you your 
account's receivable total, amount of total invoices out- 
standing, average amount of total invoice's* tell you at any 
time how many invoices an individual account has open, the 
total amount owed, the average per invoice, the invoice date, 
and the invoice amount • total sales on account for given 
month, number of invoices sent, average sale per invoice 

• how much an account purchased during month, how many 



invoices were sent, average invoice for month • tell you 
what percent of sales an account is to total sales by month 

• tell you what percent of accounts receivable an account is 

• print labels for your accounts • print statements at end of 
month and/or beginning of month and / or any time during 
month (either individual or all accounts)* print alphabetical 
hardcopy of accounts and account numbers • print all items 
sold for the month • AND MUCH MORE!! • 

49 ♦ $2.00 Shipping & Handling 

Illinois Residents Add 6% Sales Tax 



Only 



Send $10.00 For Printouts 

And Documentation 

Credit Given On Order 



LYNN COMPUTER SERVICE 

6831 W. 157th St. 

Tinley Park, II 60477 

(312)429-1915 

Send state sales tax rate, company name - address - phone #, TRS-80 model #, number of drives, 
and whether you will be using NEWDOS or NEWDOS80 for model I, or TRSDOS/NEWDOS80 for 
model III. 

Equipment Needed: 48K model I or III, lineprinter, 2 
disk drives. Model I users will need NEWDOS or NEWDOS- 
80 operating system by APPARAT, INC 



TRS80 and TRSDOS are trademarks of TANDY CORP 

NEWDOS and NEWDOS80 are registered trademarks of APPARAT INC 



J 



■ See List ot Advertisers on page 418 
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GENERAL 



More bells and whistles for the chess set. 



The Sargon Saver— Part II 



Thomas L. Quindry 
6237 Windward Drive 
Burke, VA 22015 



In my first article on Sargon I/O 
(see 80 Microcomputing, May 
1981, pg. 272) patches to 
enhance your ability to use 
either of the cassette-based 
Sargon I or Sargon II chess pro- 
grams at their maximum play- 
ing ability were given. In this ar- 
ticle, modifications to enhance 
your ability to play chess will be 
added to Sargon II. This is not 
to say that just adding these 
modifications will improve your 
chess game. Rather, they will 
add to your enjoyment and 
understanding of the game by 
providing a tool with which you 
can learn more about it. 

The modification given here 
expands on and supersedes the 
Assembly code given in May, 
and includes all the frills need- 
ed to make life easier when us- 
ing the program. The following 
features will be added: 

• An easier, foolproof way 
to load Sargon II. 



• A bell tone to signal when 
it is your move. 

• Saving of all game moves 
to memory. All game moves 
may also be saved to tape or 
printed. 

• A printer graphics routine 
to print the current board 
position. 

• A training aid mode to 
display all moves from first 
to last. 

• A manual play mode to 
enter published games. You 
may then use the training 
aid mode to analyze them 
visually. 

As can be seen in the Pro- 
gram Listing, the above 
modifications, which I'll call 
MODI IB, have been structured 
around Sargon II. The main pro- 
gram of Sargon II loads from 
4A00H to 76FFH, and the 
Sargon II loader program loads 
from 4400H to 4600H. Not all of 
this code is used, but never- 
theless, it is entered and is thus 
not available for our use. 
However, part of MODI IB loads 
from 43C0H to 49FFH because 
the part of MODIIB from 43C0H 
to 4626 H is only needed before 
the Sargon II loader is entered 
Into memory. It is overwritten 
by the Sargon II loader pro- 



gram, but by then it has done its 
job. The important code of 
MODIIB is from 4633H to 
49FFH and from 7700H to 
7857H. Thus Sargon II along 
with MODIIB uses all available 
memory from 43COH to 7857H 
to run. 

This modification, MODIIB, 
along with Sargon II, takes 
practically all available 
memory in a 16K computer. I 
am sorry to say that, though 
this modification and Sargon II 
will run In 16K, the Assembly 
program needs more than 16K to 
be complied by Radio Shack's 
Editor/Assembler. Deleting the 
frills doesn't save memory; 
even just the essentials takes 
more than 16K to compile. I had 
to compile and test it in two 
parts. I then borrowed a friend's 
32K computer to join the two 
parts. It can be split into two 
nearly equal parts by assembl- 
ing the code for addresses 
43COH thru 4626H, 7700H thru 
7857H, and 41E2H thru 41E4M 
in one part (lines 00100 thru 
01550 and lines 05510 thru 
07380). Codes for addresses 
4633H thru 49FFH can be 
assembled In the other part 
(lines 01560 thru 05500). To test 
your program, tie in each part 



by using equates (EQU) for 
common subroutines between 
parts. When both parts of the 
program are completed, load 
the part with addresses 4633H 
thru 49FFH first. 

Added Features 

First, MODIIB is much easier 
to load than MODIIA (the patch 
program given in the May issue) 
and is loaded before Sargon II. 
When loaded, this program will 
start automatically (lines 07340 
thru 07380). You are first asked 
to enter the two byte hexa- 
decimal addresses giving the 
location of your printer's first 
TRS-80 graphics character. If 
your printer has no TRS-80 
graphics capabilities, enter 00. 
This will disable the printer 
graphics routine, called Board 
(lines 04550 thru 04770), by put- 
ting an FFH value byte In place 
of the code in line 04060 (Shift 
B). My printer calls its graphic 
characters from addresses 
AOH (160 decimal) to DFH (223 
decimal), and thus I enter A0. 
The computer's location for 
graphics is 80M (128 Decimal) 
to BFH (191 decimal). The off- 
set—in my case 20H (32 Deci- 
mal)— is calculated by the pro- 
gram and the value needed Is 
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then entered at the location 
given by GRAFIC + 1 (see lines 
00500 and 04660). 

After this bit of house- 
keeping is completed, you are 
prompted to position the 
Sargon II program and press 
Enter. The modification con- 
tains a System loading routine 
(lines 01170 thru 01270) which 
will check to see if the word 
Sargon is at the beginning of 
the System tape being loaded. 
If not, with most Radio Shack 
ROMs the program will hang up 
and you must reload MODIIB. 

Both parts of Sargon II will 
load without stopping and, 
after it is loaded, it will auto- 
matically start. You will be 
prompted as in Sargon II, but 
you will have additional com- 
mands at your fingertips. In ad- 
dition to the normal commands 
of G (Game) and C (Change 
board), you will have L (Load 
previous game) and S (Save 
game) as in MODIIA, plus one 



more command, T (Training 
aid). 

Features 

The bell feature signals the 
start of your turn (lines 03580 
thru 03830) which is especially 
useful when it takes a long time 
for the computer to analyze a 
move. The bell, or tone, is 
sounded when an amplifier is 
attached to the CPU output 
plug and during the game 
mode. The program determines 
when it is your turn by inter- 
rupting Sargon's input routine 
and testing for the cursor at 
positions three or nine on the 
video screen (see lines 03590 
thru 03650). Both three and nine 
are the starting positions for 
white and black, respectively. 
The interrupts for this and all 
other routines are set in lines 
01640 thru 01930. 

During the Game and Manual 
Play modes, each move is 
saved into a buffer table by the 



Move routine (lines 03230 thru 
03560). This requires inter- 
rupting two locations in Sargon 
II— one for the player's moves 
and one for Sargon's moves. 
Once all moves have been 
saved to a buffer table, they 
can be saved on cassette tape 
for future entry (see the Save 
routine, lines 02940 thru 03210, 
and the Load routine, lines 
02290 thru 02920). These 
routines are very similar to the 
MODIA and MODIIA routines 
given in May. Also notable is 
the compatibility with the data 
tapes generated by MODIA and 
MODIIA. That is why, in MODIA 
and MODIIA, an additional FFH 
value byte was saved. You can- 
not step through the game us- 
ing the training mode after us- 
ing a MODIA or MODIIA tape, or 
print the moves. On lines 02430 
thru 02520, the Load routine 
checks for this byte as an end 
of file marker. It also checks to 
make sure we are reading the 



right byte and not a buffer table 
pointer. The correct entry loca- 
tion, depending on the data en- 
tered, is resolved In lines 02540 
thru 02630. For MODIIB data, 
the Sargon II program is re-en- 
tered in the Game mode with 
the correct level of play and the 
player's move. 

The game moves can also be 
output to a printer by the Plays 
routine (lines 05530 thru 07320). 
This routine formats a list of 
game moves in up to four col- 
umns of 25 moves each, de- 
pending on the length of the 
game. If, by any chance, a game 
is over 100 moves, it starts 
other groups of 100 moves in 
the same format. In a 16K com- 
puter, the buffer table is long 
enough to hold 195 moves. 

The Plays routine is ac- 
cessed by the Titles routine 
(lines 03850 thru 04130) while in 
the Game mode by pressing 
shift L (for listing plays) at the 
beginning of your move. Also in 









Program Listing 












• (160 


HOD I IB 






80590 


WRITE ROUTINE 






RY 


88118 


SARGON II MODIFICATION - BY 


THOMAS L. QUIND 


44(B n 


8(6(8 WRITE LP 


A, (HLI 




• 8128 






44(C B7 


8(618 


OR 


A 










44(D CB 


00620 


RET 


t 




SSETTE. 


• •138 


SAVE OR LOAD BOARD POSITION 


AND MOVES BY CA 


44IE CD33»» 


88630 


cal: 


133H 










4411 23 


8(648 


ISC 


HL 






• 8148 


■MOVES AN2 GRAPHIC BOARD DISPLAY TO PRINTER. 


4412 18F~' 


00650 


jp 


WPITE 






8*151 


jCHESS TRAINING AID DISPLAYS 


GAME rC SCREES. 




00660 
086-0 


PRINTER GRAPHIC CFFSE7 SUBROUTINE 




• •168 

• I17* 






4414 3E86 


866 86 


SPT1 LB 


A, 136 




7862 


mVUX EQU 7B62H 




4416 77 

4417 CD2BB0 


00690 
1(7(1 


LD 

SPT2 CALI 


;hl: ,a 

If 2BK 




7661 


11181 


BUFFER EQU MOVLOC-2 




441A B7 


(171 1 


OP 


A 




ilea 

43C» 3EC3 


88198 
• 82(9 


ORG 43C(H 
MODIIB LD A.6C3H 




441B 2BFA 
441D FE18 


08720 
8(738 


JR 
CP 


Z,INPT2 

BBh 




43C2 32E241 


88218 


I,D (41E2H),A 




441F 281C 


8(748 


JR 


Z.BKSPt" 


{CHECK FOR B 


43C5 213346 


88228 


LD HL, PATCH 


; SETUP AUTO 


ACK SPACE 










START OF PATCH 






4421 F5 


(17 5B 


PUSH 


AF 




43CB 22E341 


00230 
• •24* 


LD (41E3H) ,BL 




4422 7D 


• 1761 


LD 


A, I 










4423 FEDC 


• 1771 


cr 


(DDH 


.•CHECIC CURSC 




88258 


;?P INTER GRAPHICS OFFSET ROC 


'IKE 


R 










43CB 217444 


33260 


LD HL.INSTP 




4425 2831 


M?M 


jr 


:,IS?T j 


IF CURSOR IN 3RT; PC 


43CE CD1B44 


i{2 ? 


CALL WRITE 




S. 

4427 Fl 










43D1 21EE44 


18262 


LD HL.INSTP1 




• 17 91 


?c- 






43D4 CD8P44 


6029C 


CALL WRITE 




4426 77 


••••• 




EL ,A 




4307 21DA3L 


«?382 


LD HL.3DDAH 


;SET FIRST C 


■ SCREEN 










•IPSOR POS. - 








442* FE36 


■ •IK 


CP 


3IB 




41DA 23 


8(310 


INPT ISC HI. 


j ADVANCE CUR 


442B 38E7 


• 1821 


JP 


CINPT1 


CHECK IF IMPUT < ( 


SOU 

43DB C01444 


0(328 


CALL INPT1 




442D D636 
442F FE8A 


• •S3* 

(•B4( 


SUB 
CP 


38H 
10 




43DE F5 
ED INPUT 


8(338 


PUSH AF 


(SAVE MODI F I 


4431 D8 


(•850 


RET 


c 


1 IF I TO 9 R 


43DF 7D 

43E» FEDC 

R 

43E2 3864 


8(34( 
0(358 


LD A,L 

CP (DCH 


I CHECK CURSO 


ETURN 
4432 u»''7 
4434 PE8A 


• I860 

• •87* 


SI'B 

CF 


7 
It 




08368 


IR C.BIT16 


lIF FIRST PC 


4436 38DC 


8888* 


JR 


CIHPT1 


;CBECK IF IMPUT < A 


SITION X16 








443B PE16 


88686 


CP 


16 




43E4 286E 


883-0 


„R z.bit; 


1 IF SECOND P 


443A DS 


66966 


RET 


C 


lIF A TO F R 


OSITION XI 








ETURN 










43E6 Fl 


SB300 


POP AF 


.•IF THIRD FO 


443B 1B07 


66916 


JR 


INPT1 


IIP NO COMD 


SITION 








WT REPEAT 


INPUT 








43E7 78 


00398 


LD A,B 


;CET FIRST I 




66926 


1 






NPUT 










66936 


■ BACKSPACE SUBROUTINE 




43E8 81 


(94(0 


ADD A,C 


,-ADD SECOND 


4430 3E2* 


(8946 


BESPC LD 


A,26H 




INPUT 








443P 77 


66956 


LD 


(HL),A 




43E9 F5 


((418 


PUSH AF 


j SAVE 


4441 7D 


•8966 


Lb 


A,L 




43EA 3E62 


((42( 


LD A, 96 




4441 FEDB 


88976 


CP 


6DBH 




43EC 323A48 


60438 


LD (GRAF'1),A 


ilOAD <SHIFT 


4443 28CF 


•6986 


JR 


Z.INPT1 




B> 








444S 2B 


68996 


DEC 


BL 




43EF Fl 


88448 


POP AF 




4446 1BCC 


• 1688 


JR 


INPT1 




43F9 B7 


08456 


OR A 






61816 


r 






43F1 2885 


• 6460 


JP NZ.GRAFON 


; IF INPUTS < 




61626 


1 MULTIPLY BY 


16 ROUTINE 




• fv NO GRAPH 


CS 






444S PI 


■1836 


BIT16 POP 


u 




43F3 3EFF 


Jir? 


lu A, 2 55 




4449 CB.27 


61646 


SLA 


A 


IX 2 


43FS 323A48 


#0480 


LD lGRAF»l;,A 


; DISABLE GRA 


444B CB27 


• 1656 


SLA 


A 


IX 2 


PHICS 








444D CB27 


61N6 


SLA 


A 


>K 2 


43F8 D6BB 


80490 


GRAFON SUB 8(H 


;GET PRINTER 


444F CB27 


61678 


SLA 


A 


IX 2 (X 1C 


GRAPHIC OFF 


SET 






> 










43FA 32AA48 


0(5»( 


LD (CRAFIC+1),A 


;LOAD OFFSET 


4451 47 


61868 


LD 


B,A 


; FIRST INPUT 


43FD 217444 


IIS1I 


LD HL.INSTP 




4452 1866 


61699 


JR 


INPT 






86526 






4454 PI 


61166 


BIT1 POP 


AF 






8(53( 


; MODI IB LOAD ROUTINE INSTRUCTIONS 


4455 4P 


61116 


LD 


C,A 


1 SECOND INPU 


4466 CD0B44 


80548 


CALL WRITE 




T 

4456 1B82 








4413 216145 
UIE. C3IBU 


• •55) 

ti'ht 


LD HL.INSTR2 
CALL WRITt 




11121 


JR 


I MPT 




[ 4419 1851 


(1571 

(056* 


*R A ZERO 




4451 n 

445* 3E»D 


• 1136 
61146 


INPT 3 POP 
LD 


AP 

A.IDH 


;LOAD CR 


f 






4458 C9 


81158 


RET 






1 
















Program continues 
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Program continued 
















nit* i 






4(BB 2(2( 


82118 


JR 


NI, CONDI 




■1171 jHODIIB LOAD ROUTIHE 
445C CD2BI1 till* AXERO CALL •■2BH 




46BO AF 
46BE 323156 


12(91 

(21K 


XCR 
LD 


A 

(SallB) ,A 


-SET ALL POI 


445F B7 (119* OR 


A 




NTERS 










4441 2SPA 11211 JF 

IT TO COHT. 


X, AXERO 


; ENTER ANY X 


46C1 323951 
46C4 3C 


12111 
1212* 


LD 
INC 


(5(3»H! ,A 

A 




4462 311(42 11211 LD 

a 

44C5 216B45 11221 LD 


5P,42S(N 


-STACK POINT 


46C5 323551 
46CI 21DI4I 


■ 2131 

12141 


LD 

LD 


(5(3SH> ,A 
HL.TRMP 




HL, POINTS- 5 


) POINTS TO E 


46CB 22FE6P 


12151 


LD 


(6PPEH) .RL 




HD WORD "SAX GON' 






44CE 216278 


12161 


LD 


HL, MOVLOC 




4448 U3D3C 11231 LD 


DE,3C3Dfl 




46D1 226I7S 


• 2171 


LD 


(BOTES; ,BL 




444B I164II (124* LD 


BC.S6S6H 




46D4 CD386I 


• 71(1 


CALi. 


6(3 IB 




44«E EDBI (12S« LDDR 




(PUT ON SCRE 


4ID7 3ESI 


12191 


LD 


A, III 




EM 






46D9 323ISI 


I22(( 


LD 


(5I3IH) ,A 




4471 23 (1261 IK 


HL 


( SETUP "SARG 


46DC 3A5F7I 


12211 


LD 


A, (BUFPER-1) 




OH' FOR SYSTEM LOAD 






46DF 325351 


(2221 


LD 


(5I53B) ,A 




4471 C3CEI2 C127( JP 


(2CEH 


|TO LOAD SAR 


46E2 C3F67I 


(223.' 


JP 


7(P6H 




GO* TAPE 






46E5 FE53 


12211 CONDI 


cv 


S3 


[IF S SAVE G 


(12S( ) 






AHE POSITION 


TO CASSETTE 








(12M | MESSAGES TOR 


MODI IB LOADER 




46E7 CA7I47 


(i251 


JP 


I, SAVE 




4474 1C 11 311 1NSTR DEFB 


28 




46EA PE4C 


(2261 


cr 


76 


[IF L LOAD G 


447S IF 11311 DEFB 


31 




AHE POSITION 


man CASSETTE 








4476 4D 11321 DEFM 

RY' 

44*3 (D 11331 DEFB 


'MODI IB - BY 


THOMAS L. QUIND 


46BC 2IAA 


I227( 
12281 [ 


JR 


NX, SAR GON 




1DH 






•2291 [CASSETTE LOAD 


ROUT I HI 




4494 21 11341 DEFM 




TLO ENTERPRISES 


46EE CD4547 
AD ROUTINE 


I23M LOAD 


CALL 


READY 


) CASSETTE LO 


44AF ID 11358 DEFB 


(DH 




46F1 CD1262 


■ 2311 


CALL 


• 21 2H 




44BI 21 *13il DEFM 




6237 WINDWARD D 


46F4 CD96(2 


(232( 


CALL 


• 296B 




RIVE 1 






46F7 CD35(2 


12331 LOAD1 


CALL 


• 23SB 




44CF »D (1371 DEFB 


BDH 




44PA 77 


■2341 


LD 


(BL) ,A 




44D( 21 11381 DEFM 




BURKE, VA 22115 


4(PB 23 


12351 


INC 


HL 




■ 




46FC ID 


• 2361 


DEC 


E 




44EB (DtD (11M DEFW 


(DION 




46FD 7B 


(237( 


LD 


A,E 




44ED II 11411 DEFB 


SI 




46FE 2IF7 


• 2361 


JR 


NX.LOAD1 




44EE 45 (1411 IMSTR1 DEFM 


'ENTER TMO BYTE SEXIDECIHAL 


4711 21SC7I 


I239( 


LD 


HL,BUffER-4 




ADDRESS FOR FIRST* 






4713 23 


12411 LOAD2 


INC 


HL 




451A ID 11421 DEFB 


SDH 




4714 CD3SI2 


• 2411 


CALL 


(235B 




451B 51 11431 DEFM 


'PRINTER GRAPHIC CHARACTER. 


4717 77 


• 2421 


LD 


(BL),A 




(IF NO GRAPBIC 






4718 FEFF 


• 243* 


CP 


•FFH 


[END OF GAME 


4544 ID 11441 DEFB 


SDH 




POINTER 










4545 43 11451 DEFM 


'CAPABILITIES, <ENTBR •■>.): 


47IA 2IF7 


• 244* 


JR 


NZ .LOAD 2 




" 






47SC 11617 1 


■2451 


LD 


EC, BUFFER 




4561 || 114(1 DEFB 


SS 




47IF 7C 


• 246* 


LD 


A,H 




45(1 54 41471 IMSTR2 DEFM 


'THIS ' 




4711 B8 


• 247* 


CP 


B 




45*6 53 I14M POINTS DEFM 


'SARGON II NODI F I CAT 10:1 ALM 


4711 2114 


■24M 


JR 


N2 .LOAD 3 




MB TOO TO SAVE IMPORTANT' 






4713 7D 


• 24*1 


LD 


A.L 




4S>9 ID I14M DEFB 


SOB 




4714 B9 


• 2511 


CP 


C 




4S»A 47 (1511 DEFM 


'CAMS INFORMATION TO CASSBTT 


4715 28EC 


• 25K 


JR 


I, LOAD 2 




I TAPE OK PRINTS*. • 






4717 CDC 8(1 


12521 LOAD3 


CALL 


lir(H 




45C7 (TXT) 11511 DEFW 


SDBDS 






•253* , 








45CI S3 (1521 DBPM 


'SARGON IIB 


CAN ALSO BB USED 




■254( [WHICH 


MOD DATA ENTERED SUBROUTINE 


AS A CUai TRAINING AID. ' 






471 A 3ASD7I 


• 255* 


LD 


A, (BUFFER-3) 




4SPD BDSD 11531 DEFW 


SDSDH 




471D 323551 


• 256* 


LD 


(5I35B) ,A 


[SET MOVE NO 


45PF SI 11541 DEFM 


'POSITION SAROOH II TAPE AMD 












puss Earn* 






4721 I1SE7I 


•257* 


LD 


BC,BUFFER-2 




4*26 IS 11551 DBFS 


(( 




4723 7D 


• 258* 


LD 


A- 1 




4*33 11561 ORG 


4S33B 




4724 B9 


• 259* 


CP 


C 




4*33 3IC3 11571 PATCH LD 


A,K3H 


» PATCH INTO 


4725 2115 


126(1 


JR 


NX, AUTO 




SAROOH LOAD TAP! 






4727 7C 


(2*1( 


LD 


A,H 




4*35 32AS44 SIS II LD 


(44ASB),A 




4728 B8 


(262( 


CP 


B 




4*38 214146 I15M LD 


IL.BBGIN 




4729 CA747I 


12631 


JP 


Z,7(74H 


[IF HODIA OR 


4*3B 22A144 I16SS LD 


(44AK),IL 




IIA DATA JUMP HERE 








4431 3BCI 11611 LD 


A,SC9B 






1264* i 








4*41 321241 11621 LD 


(41E2H) ,A 


1 REPAIR AOTO 




1265* [DATA 


PROM MODI IB SUBROUTINE 




LOAD BOOC 






472C 3A5E78 


•2(6* AUTO 


LD 


A,(BUPPER-2) 


[SET RERAINI 


4643 C31544 11631 JP 


441 SB 


[JUMP TO SAR 


NG POINTERS 










GOB II LOADER 






472F 323151 


• 26 7* 


LD 


(5(3SH),A 




4646 214D49 11441 BHGIH LD 


(L, TITLE 


•BLOCK MOVE 


4732 EE80 


• 2(8« 


XOR 


•IB 




TO CHAMGB SAIGOH TITLE 






4734 323151 


(26 9« 


LD 


(5I31B) ,A 




4641 11CF4I 11651 LD 


DE, SECTS 




4737 3ASF78 


(27(( 


LD 


A.(BUPPER-l) 




444C (11211 11461 LD 


BC.12B 




473A 325351 


(27K 


LD 


(5153H) ,A 




444P SOBS SK7S LDIR 




(BLOCK MOVE 


473D 3EI1 


S272( 


LD 


A,l 




4451 215P49 11(11 LD 


HL.RESS 


iBLOCB HOVE 


473P 323*5* 


• 273* 


LD 


(5I39H) ,A 




TO OAKS ENDING OP SAROOH *KW CAME * MESSAGE 


4742 C3F67S 


• 2741 


JP 


7(F6B 


[DISPLAY BOA 


46S4 11 (IMF 11**1 LD 


DB.SPSDB 




RD READY TO 


MOVE 








44S7 S1SSSS 11711 LD 


BC,( 




4745 11D349 


•27 51 READY 


LD 


DE,NESS4 


[READY CASSE 


44SA EDBI 11711 LDIR 




1 BLOCK MOVE 


TTE MESSAGE 










44SC 312* 11721 LD 


A, 241 


[CHANGE LBHC 


4748 1621 


• 276* 


LD 


B,2(B 




TH OP MESSAGE 






474A CDD175 


1277* 


CALL 


75D1H 




4651 32SA7I 11731 LD 


(7ISAH),A 




47 4D CD2B8B 


I27(( BACK 


CALL 


• I2BH 




4461 21IB44 417 4* LD 


■L, ST ART 




4751 B7 


127*1 


OR 


A 




ESS1 AMD MESS2 ADDITION 






4751 28FA 


I2SM 


JR 


X.BACK 




4444 22S77S S17SS LD 


(7I57H) ,RL 




4753 CDC961 


• 2811 


CALL 


•1C9H 


[CLEAR SCREE 


4447 3BC3 11711 LD 


A.BC3B 


[CHANGE TO J 


N 










P IHSTROCTIOH 






4754 AF 


12821 


XOR 


A 




4661 325471 11771 LD 


(7IS6H),A 




47S7 211551 


• 283* 


LD 


HL, 511511 


[SARGON BOAR 


464C 327P74 117 SS LD 


(767FH) , A 




D BUFFER 










444F 21B944 S17IS LD 


RL,COND 


1 PATCH TO CO 


475A 1E4E 


• 284* 


LD 


E,78 


[LENGTH OF B 


HDITIONAL STATMEMTS 






UFFER 










4(72 224S7I HISS LD 


(7S6SH),IL 




47SC C9 


• 285* 


RET 






4I7S 21BC47 IKK LD 


RL.BBLL 




475D 3A355I 


•286( POINT 


LD 


A,(5(35H) 


[MOVE NUMBER 


4471 227A74 (1121 LD 


(767AB),BL 


1 PREVIOUSLY 












M2BB 






476* 325D78 


• 2871 


LD 


(BUFFER-3) ,A 




467B 211541 11(31 LD 


HL. TITLES 




4763 3A3(5( 


• 288* 


LD 


A,(5«3»H) 


[YOUR COLOR 


447E 22SS76 11(41 LD 


(76IIH),HL 




4766 325E78 


• 2891 


LD 


(BUFPER-2) ,A 




4IS1 21DC47 IKS! LD 


HL, SETUP 


jSET BUFFERS 


4769 3AS358 


■2tH 


LD 


A, (SI53B) 


(LEVEL OP PL 


4414 22C27I 11 141 LD 
44S7 21A447 11671 LD 
MOVE ROUTINE 


(7SC2B),BL 
HL.MOVEl 


1 SAROOH SAVE 


AY 

476C 325F78 
476F C9 


12911 
(292* 


LD 
RE- 


(BUFFEX-1) ,A 




44SA 22P96P HISS LD 
44SD 21AA47 111*1 ld 

MOVE ROUTINE 
469( 22A171 (1»SS LD 
4SS3 3BTF S1*1S LD 

POINTER 
469S 324271 11921 LD 


(6FF9R) ,BL 
RL,ROVE2 


1 PLATER SAVE 


4771 CD5D47 


(2931 ; 

12941 [CASSETTE SAVE 

12951 SAVE CALL 


ROUTINE 
POINT 




(71A1B) ,HL 
A.SPPH 


•END OF GAME 


4773 CD4547 
4776 CD12I2 
4779 CD87S2 


• 294* 

• 2971 

• 298* 


CALL 
CALL 
CALL 


READY 

• 212H 

• 287H 




(MOVLOC) ,A 




477C 7E 
477D CIM4I2 


• 299* SAVE1 

• !••• 


LD 
CALL 


A.(HL) 
• 26 4H 




4491 C3II5I 11931 SARGON JP 


5SSSB 


•JUMP TO BEG 


4781 23 


• 3IK 


INC 


HL 




INNING OF SARGON PROGRAM 






4781 ID 


• 3I2( 


DEC 


E 




449B 116749 S194S START LD 


DE.MESSl 


lADD OUR HES 


4782 7B 


■ 3(31 


LD 


A,E 




SAGES 






4783 2IF7 


• 3141 


JR 


NX,SAVE1 




469B I62A I195S LD 


B.2AH 




4785 21SD78 


• 3151 


LD 


BL, BUFFER-3 




46AI CDD175 11961 CALL 


75D1B 


I SARGON PRIN 


4788 7E 


•3161 SAVE2 


LD 


A, (HL) 




T ROUTINE 






4769 SF 


(3(7( 


LD 


E,A 




44A3 119149 11971 LD 


DE,M(SS2 




47SA CD44I2 


13161 


CALL 


• 264H 




4oAf I61F 1198* LD 


B.1FH 




47 ID 23 


• 3(9( 


INC 


HL 




46AI CDD175 11991 CALL 


75D1H 




47IE 7B 


lllll 


LD 


A,E 




46AB 11B649 (701* LD 


DE,MESS3 




47 8F FEFF 


13111 


CP 


•FFH 


[END OF GAME 


46AE 1623 121] 4 LD 


B.23H 




POINTER 










44BI CDD17S 12(21 HALL 


75D1H 




47*1 2SF5 


13121 


JR 


NZ.SAVE2 




46B3 11EF6E 12131 LD 


DE.6EEFH 


1 RESTORE SAR 


4793 116178 


(313( 


LD 


BC.BUFPER+1 




GON INSTRUCTION LOST BY PATCH 






47*6 7C 


•3141 


LD 


K,» 




46B4 C3597I 12(41 JP 


7I51H 


[JUMP BACK T 


4797 B8 


•315( 


CP 


B 




SARGON AFTER MESSACE INFER*. 






47*8 2114 


(3161 


JR 


NX,SAVE3 




44B9 PE54 12151 COND CP 


•4 


[SEE IF WANT 


47»A 7D 


• 3171 


LD 


A.L 




TRAINER DISPLAY 






47 9B B9 


• 3181 


CP 


C 




*1M : 






479C 28EA 


• 3191 


JR 


Z.SAVE2 




(2(7( iTHAINING AID 


ROUTINE 




479E CDF801 


•32(1 SAVE3 


CALL 


• 1F8H 


Progrmm continues 
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then vour TRS-80 COLOR COMPUTER needs the 

Word Processing Lowerkit 

It converts your screen from an illegible checkerboard to this: 



This protcor •:. .35 +.dl<en of an j 
ordinary television screen te . 
fed by a Color GoffKlter urrcdi- 
f led except for the Installation 

of the ic«i«rkit. Characters: 

ABCECFGHI JVUtCfCi?STUVM<r7«: J 
afccdefqhi iklrrropqrst *Z- A 

|ai2345678«jf ,, «r^'?) :*-«;♦/. >/^ 



Complete and ready to install — no software needed 
Nothing to solder — fully assembled, tested, guaranteed 
Compatible with all Color Computer software 
Absolutely no loss of hi-resolution graphics modes 
Optional cut-off switch restores original reverse-caps display 
European, Kata Kana (Japanese) «»nd Greek characters optional 
Designed by 80 Microcomputings Dennis Bathory Kitsz 

$79.95 complete 



MSB Electronics 

Drawer 7bb, Barre, Vermont 05641 
(802)476-7311 

Bare board and kits available Call or write lor information 

Dealer inquiries invited. 'TRS-eo is a trademark ol Tandy Corporation 

COD— Visa— Mastercard Dealer Inquiries Invited 






^SmLlmlniM»mtlimfnoi*aaae4iS 
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L — 


Load Gama From Caaaatta. 


— From Tltla Block 




S - 


Save Qama to Caaaatta. 


— From Tltla Block 




T — 


Training Aid Moda. 


— From Tltla Btocfc 




Shift M — 


Go to Manual Play Moda 


— From Gama Moda 




Shift G - 


Ratum to Gama Moda 


— From Manual Play Moda 




Shift B - 


Print Graphic Board Dtapiay 


— From Gama or Manual 
Moda 


Play 


Shift L — 


Print List of Plays 


— From Gama or Manual 
Moda 


Play 


Spaca — 


Pauaa 


— From Training Aid Moda 




Space Clear — 


Ratum to Gama Moda 


— From Training Aid Moda 




Table 1 


Added commands to Sargon II with MODI IB. 





the Titles routine is a sub- 
routine to determine whether 
your printer is up and ready. If 
your printer is not ready to run, 
the printer commands in the 
program are ignored. The Titles 
routine also allows you to ac- 
cess the graphics Board 
routine. The Board routine is 
accessed in the Game mode by 
pressing shift B during the 
beginning of your turn. The 
Board routine (lines 04550 thru 
04770) is essentially a screen 
printer which prints only the 
graphic portion of the screen. 
Line 4645 is needed only when 
your computer has an upper/ 
lowercase character generator 
modification. This code sets bit 
six to zero. It does not affect 
other computers that are upper- 
case only, so it is best to leave 
it in the code. If your printer 
does not have graphic capabili- 
ties, the initialization routine 
disabled the Board routine by 
entering the value of FFH at 
GRAF + 1 (line 04060). Since the 
value FFH cannot be entered by 
the keyboard, this effectively 
takes out the Board routine. 

The printer routines were for- 
matted so that a game listing of 
up to 100 moves and a graphic 
board display can be printed on 
an eight and a half by eleven 
inch page using an 80-column 
printer. The resulting graphics 
are not square but elongated. If 
you have a 132-column printer, 
the board display will be better 
proportioned. Many printers 
can be set up for different col- 
umn widths. Be sure to set up 
the column count you prefer 
before you load MODI IB and 
Sargon II. 

Now comes the fun part, the 
Training aid routine. This 
routine is accessed from 
Sargon II after pressing Break. 



In the Training aid mode (lines 
02070 thru 02270 and lines 
04890 thru 05400), the game 
which has been saved in the 
buffer table is put through its 
paces and played from begin- 
ning to end. After all moves are 
played, you are returned to the 
Game mode to continue the 
game. While in the Training aid 
mode, two hidden codes are 
available. Pressing the space 
bar (lines 05280 thru 05310) will 
pause the display after com- 
pleting the current move. The 
display will remain static until 
the space bar is released. By 
pressing the space bar and the 
clear key (lines 05320 thru 
05400) you not only pause, but 
will exit the Training aid mode 
and return to the Game mode at 
the point the game is being 
displayed. Beware: Once you 
elect to return to the Game 
mode, that point of the game 
being displayed is now the end 
of the game. You can continue 
the game, however, and each 
subsequent move will be saved 
in the buffer table along with 
the previous moves. 

The buffer table is auto- 
matically loaded with each 
move in one of, or a combina- 
tion of, three ways: playing a 
game; loading a game from 
cassette; or the Manual Play 
mode. A game could be loaded 
from cassette, the Training aid 
mode used to go to move X, and 
then the game continued in a 
different way using the Game 
mode or the Manual Play mode. 

The Manual Play mode (lines 
04150 thru 04280) can be best 
used to enter published games. 
For example, you could enter 
one of the Spassky-Fisher 
championship games from 
their match in Iceland, and then 
analyze it. After saving the 



Program continued 










47A1 C34658 


83218 
83229 




JP 


5666H 






83238 


POT MOVES IN 


BUFFER ROUTINE 




47A4 CDAD47 

S 

47A7 C36576 


83248 NOVE1 


CALL 


MOVES 


; SARGON HOVE 


• 3258 




JP 


7665H 




47AA CD7275 

S 

47AD 3E2D 


83268 ROVE2 


CALL 


7572H 


; PLAYER MOVE 


83278 ROVES 


LD 


A.2DH 




47AP 32P4S8 


43261 




LD 


(56P4H) ,A 




47B2 3X3551 


83299 




LO 


A,(5835B) 




4715 CB27 


93398 




SLA 


A 




47B7 47 


83319 




LD 


Br* 




47B8 3A3156 


83329 




LD 


A, (5631H) 




47BB »7 


83339 




OR 


A 




47K 2M1 


• 3349 




JR 


z, moves: 




47BE §4 


• 3358 




INC 


B 




47BF 215S7S 


833(8 MOVES! 


LD 


HL.BUPFER-8 




47C2 11I5K 


•3371 




LD 


DE.4495H 




47C'j 1* 


83388 NOVES2 


ADD 


■L.DE 




47C6 16JPD 


9339* 




DJII 


r:ovES2 




47CI SB 


93499 




BX 


DE,HL 




47C9 21P254 


93414 




LD 


RL,S8F2B 




47CC 81 8 588 


43429 




LD 


BC,BB65H 




47CP BDB6 


83438 




LOIR 






47D1 sa 


43444 




EX 


DB.BX 




47S2 2 2617 8 


• 345* 




LD 


(BUFFER) ,BL 




47DS 3EPF 


• 3468 




LD 


A.6FFH 


,'END OP GAME 


POINTER 












47D7 77 


• 347* 




LD 


(BL) ,A 




47D8 CD5D47 


• 3488 




CALL 


POINT 




47DB C9 


• 3498 




RET 






47DC 218171 


8358* 


SETUP 


LD 


HL, 7181H 


; RESET SARGO 


H CODE 












47DP 22P66F 


83518 




LD 


(6FF6H) ,HL 




47E2 216278 


83528 




LD 


F1L.MOVLOC 


1 RESET HOVE 


POINTS! 












4715 CD38CI 


43539 




CALL 


6636B 




47Bt 3BPP 


• 3548 




LO 


A,(PPH 


;END OP GAM 


POINTER 












47EA 77 


83558 




LD 


(BL) ,A 




47EB C9 


63566 
83578 


1 


RET 








83588 


J SOUND 


TONE ROUTINE 




47EC CS 


83598 


BELL 


PUSH 


BC 




47BD 3A1CSI 


83688 




LD 


A,(5I1CB) 


;LSB CURSOR 


47PB E63F 


43618 




AND 


• 3PH 


;HASK VALUE 


OVER 63 












47P2 PM3 


• 3621 




CP 


3 


jCHECI CURSO 


R LOCATION 












47P4 2*14 


• 363B 




JR 


I, TONE 




47Pt PE«9 


83648 




CP 


9 


;CBECE CURSO 


R LOCATION 












47F8 24IP 


• 365* 




JR 


NX, INPUT 




47PA IBM 


13661 


TOW 


LD 


C,154 




47PC 3M1 


• 3671 




LD 


A,»1H 




47PE CD4E4 8 


• 3686 




CALL 


TOHE1 




4M1 3C 


63698 




INC 


A 




4M2 CD4E48 


63766 




CALL 


TONE1 




4MS BD 


• 3711 




DEC 


C 




4MB ap 


■ 372* 




XOR 


A 




4817 D3PP 


• 373* 




OUT 


(255), A 




4MB CI 


■ 3748 


INPUT 


POP 


BC 


;BACX TO SAR 


COII IHPUT 












4BIA CD2BSI 


•375* 




CALL 


• •2BH 




4 BAD CB 


• 3761 

• 377B 


1 


RET 








■378* 


(TORE 


SUBROUTINES 




4BBE 69 


• 3798 


TONB1 


LO 


L,C 




IMF D3FP 


• 3899 




OUT 


(255) ,A 




4B11 2D 


•3118 


TOW 2 


DEC 


L 




4812 2BPD 


• 3826 




JR 


NI,TONE2 




4814 CB 


63838 
63846 


I 


RET 








63856 


I LPRINT AND NANUAL PLAT SELECTION ROUTINES 


4815 C5 


63866 


TITLES 


PUSH 


BC 




4814 PS 


63876 




PUSH 


AP 




4817 3A1C5B 


63886 




LD 


A,(561CH) 


;LSB CURSOR 


481A E83F 


63899 




AND 


63FH 




4I1C PE#3 


83966 




CP 


3 


/CHECH CURSO 


R POSITION 












481E 2SB4 


63916 




JP 


I, GO 




4828 PE69 


63929 




CP 


• 


iCBECE CURSO 


R POSITION 












4822 2811 


93939 




n 


NI.BACE1 




4824 PI 


93949 


GC 


PCP 


AF 




4825 PE6D 


93956 




CP 


169 


lIF SHIFT M, 


manual PLAT 












4827 2S1E 


639(8 




JR 


Z,NAN 




4S2B PM7 


63979 




CP 


163 


lIF SHIFT G, 


ROT MANUAL 


PLAT 










482B 283A 


63988 




JR 


I, UNMAN 




482D P5 


63998 




PUSH 


AP 




482E 3AE837 


64666 




LD 


A, (37E8H) 


1 PRINTER ADD 


RESS 












4831 PE88 


64616 




CP 


128 


/PRINTER REA 


DY7 












4833 3883 


64626 




JR 


C.GOl 


;IF PRINTER 


READY GO 












4835 rl 


64836 


BACK1 


POP 


AP 




4838 188A 


64649 




JR 


BACK 2 




4838 PI 


94956 


001 


POP 


AP 




4839 PE62 


93932 


GRAF 


CP 


98 


I IF SHIFT B, 


LPRINT BOARD 










483B 2857 


64678 




JR 


Z, BOARD 




483D PE6C 


64686 




CP 


168 


IIP SHIFT L, 


LPRINT PLATS 










483P CA8B77 


64699 




JP 


Z, PLAYS 




4842 CI 


94166 


BACK 2 


POP 


BC 


;GO BACE2 SA 


BOOM 












4843 DDE1 


44114 




POP 


IX 




4845 Dl 


64126 




POP 


Dt 




4844 C9 


64138 
64144 




RET 








44154 


; NANUAL PLAY 


ROUTINE 




4847 219D71 


44168 


NAN 


LD 


HL.719DH 




484A 22P66F 


64176 




_D 


(6FF6H),HL 




484D 2A1C58 


64186 




LD 


HL,(591CH) 




4858 E5 


64196 




PUSH 


HL 




4851 21823C 


64266 




LD 


HL.3C62H 




48S4 221CS8 


64214 




LD 


(581CH) ,HL 




4857 11F349 


44226 




LD 


DE,NESS5 


; NANUAL PLAY 


MESSAGE 












4 85 A BtBD 


64236 




LD 


B.9DH 




485C CDD17 5 


64246 




CALL 


75D1H 




485F El 


64256 




POP 


BL 




48*8 221C58 


64266 




LD 


(561CH) ,HL 




48(3 3E88 


•4278 




LC 


A,(9H 


;SET BACESPA 

Program continues 
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Program continues 



CE CODE 










4665 18DB 


(4 28* 
*429* : 




JR 


BACK 2 




(431* , 


REMOVE 


MANUAL 


PLAY ROUTINE 


466? 211171 


84318 UNNAN 


LD 


HL,7181H 


466A 22F66F 


84328 




LD 


(6FF6B) ,HL 


466D 213*51 


•433* 




LD 


RL,5*3*H 


4B7I 3A315* 


B434B 




LD 


A,(5(31H) 


4873 BE 


84358 




CP 


(HL) 


4B74 2183 


84368 




jn 


NZ, NOEXC 


4876 EE86 


84378 




XOR 


88 H 


4878 77 


843B8 




LD 


(HL),A 


4B79 CD5D47 


84398 NOEXC 


CALL 


POINT 


487C 2A1C5* 


«44*8 




LD 


HL,(5(1CH) 


487F E5 


• 441* 




PUSH 


■L 


48BI CDC246 


B442B 




CALL 


PLAYER 


4883 El 


8443* 




POP 


HL 


4884 221C5* 


• 444* 




LD 


<5*1C8) ,HL 


4BB7 3EtB 


(445* 




LD 


A, MB 


ce CODE 










4B89 18B7 


*446* 

• 447* 




n 


BACK 2 




84*88 


LPRINT SPACES 


ROUTINE 


4BIB 3E2B 


■ 449* 


SPACES 


LD 


A,2(H 


4 BID CD3BBB 


845*8 




CALL 


• *3BH 


«BM 23 


(4518 




INC 


HL 


GRAPHICS ROUTINE 








4891 1BF6 


1452* 




DJNZ 


SPACES 


4893 C9 


84538 
84548 




RET 






84558 


LPRINT GRAPHICS ROUTINE 


4 894 3E8D 


84568 


BOARD 


LD 


A,*DH 


4B9C CD3B9* 


8457* 




CALL 


883BH 


4B99 21II3C 


• 4588 




LD 


HL,3C((H 


489C B«ll 


(459* 




LD 


B,16 


489E C5 


(46(* 


KLINE2 


PUSH 


BC 


4»9F BClf 


(461* 




LD 


B.18H 


48A1 CD8B48 


(462* 




CALL 


SPACES 


4BA4 1638 


• 463* 




LD 


B,3*B 


4SA6 7E 


(464* 


N6LOCK 


LD 


A, (bl; 


48A7 EE3F 


*4(5( 




KOI 


63 


PHICS 










48A9 CSB8 


• 466* 


GRAFIC 


ADD 


A, 88 


PHIC CHARACTER OFFSET 






4 BAB CD3B(» 


*467« 




CALL 


(83BH 


48AE 23 


(46BB 




INC 


HL 


48AP 1BP5 


8469* 




DJNZ 


NBLOCK 


46B1 3E8D 


84788 




LD 


A r (DH 


48B3 CD3B8B 


8471* 




CALL 


K3BH 


48B6 CI 


(472* 




POP 


BC 


48B7 1IE5 


(473* 




DJNZ 


MLINE2 


4BB9 3EBD 


(474* 




LD 


A ( *DH 


48BB CD3B6 6 


■ 475* 




CALL 


• *3BB 


4BBE 3EB8 


(476* 




LD 


A,*BH 


4BCB 1889 


• 477* 

• 478* 




JR 


BACK 2 




(479* 


; DETERMINE PLAYER'S COLOR ROC 


4BC2 21813C 


• 4BB8 


PLAYER 


LD 


HL.3CB1H 


4*CS 221C5I 


(481* 




LD 


!5*1CB) ,HL 


4BC8 21714P 


(482* 




LD 


HL,6P71H 


4BCB 116A6P 


(483* 




LD 


DE,6P6AH 


4BCE 3ASE7 8 


(4B4B 




LD 


A, (BUFFER-2) 


48D1 CD2A7B 


(485* 




CALL 


7*2AH 


4BD4 CD1A4D 


I4 86* 




CALL 


4D1AH 


4BD7 C9 


• 487* 

9488* 




RET 






84898 


;TRAINING AID 


ROUTINE 


48D8 CDC24B 


849*8 


TRAIN 


CALL 


PLAYER 


4 BOB 2ACB7B 


(491* 


TRAIN1 


LD 


HL, (BUFFER) 


48DE 7E 


■ 492* 




LD 


A,(BL] 


4*DP FBFF 


• 493* 




CP 


•FFH 


POINTER 










4SE1 2823 


(494* 




n 


Z, RETURN 


48E3 11F25B 


(495* 




LD 


DE,5*F2B 


T BUFFER 










48E6 8185*8 


•4 96* 




LD 


BC,**(5R 


4BE9 EDB6 


•4*7* 




LDIR 




48EB 226*78 


1498* 




LD 


(BUFFER) ,HL 


4 BEE 2A1CSB 


• 499* 




LD 


HL,(5(1CH) 


48F1 118681 


15(1* 




LD 


DE,***6H 


SARGON LINEFEED 








4BF4 It 


(5(1* 




ADD 


HL.DE 


4BF5 *1(((6 


■ 5*2* 




LD 


BC,(6((H 


4 6F8 CDTS7 5 

D 

4BPB CDA371 


(5(3( 




CALL 


7588H 


• 5*4* 




CALL 


71A3B 


48PE CD2C49 


(5*51 




CALL 


TOGGLE 


4981 CD3649 


«5*6I 




CALL 


PAUSE 


4984 16D5 


• 5*7* 




JR 


TRAIN1 


49*6 CD5D47 


*5*8* 


RETURN 


CALL 


POINT 


49*9 219D71 


85898 




LD 


HL,719DH 


49*C 22FE6F 


(51** 




LD 


(6FPEB) ,HL 


49*F 21*171 


(511* 




LD 


HL.71I1H 


4912 22P66F 


(512* 




LD 


(6FF6B) .HL 


491S 3A315* 


(513* 




LD 


A,(5(31H) 


ONLY 










491* EEB* 


(5141 




XOR 


BIB 


491A 32315* 


(515* 




LD 


(5I31B) ,A 


491D CB 


1516* 




RET 


Z 


491E 21355* 


• 517* 




LD 


HL,5(35H 


4921 35 


1S188 




DEC 


(HL) 


4922 2A1CS* 


(519* 




LD 


HL,(5*1CH) 


4925 11C(FF 


85288 




LD 


DE f *PPC»H 


4928 CD2B76 


• 521* 




CALL 


762BH 


LINE 










492B C9 


• 522* 




RET 




492C 3A315* 


• 523* 


TOGGLE 


LD 


A, (5(3111) 


492P 323(5* 


■ 524* 




LD 


(5*3*B) ,A 


4932 CD987 8 


(525* 




CALL 


7(*8H 


4*35 C9 


(526* 

(527* 




RET 






•528* 


1 PAUSE 


SUBROUTINE 


493* 3A413B 


(529* 


PAUSE 


LD 


A,(384*H) 


4939 FE88 


• 53** 




CP 


12* 


493B 29F9 


• 531* 




ffl 


:, PAUSE 


DEPRESSED 










493D PE82 


1532* 




C? 


138 


D CLEAR DEPRESSED? 








493F Ct 


(533* 




RET 


NZ 


494* 2*6878 


• 534* 




LD 


HL, (BUFFER) 


AHE NODE 










4943 3EFF 


(535* 




LD 


A,BFFH 


4945 77 


85368 




LD 


(HL) ,A 


4946 3A4B38 


85378 


CLEAR 


LD 


A, 1384(H) 


4949 B7 


*538» 




OR 


A 


49 4 A 2*? A 


8539* 




JS 


NZ, CLEAR 


E KEYS TO CONTINUE 








494C C9 


*54(* 









(SET BACKSPA 



; NEEDED FOR 



; REVERSE GRA 
; PRINTER GRA 



;END OF GAME 



I SARGON INPU 



[SET UP FOR 



■GET LINEPEE 



I TOGGLE TURN 



(MOVE BACK A 



(IF SPACEBAR 
; SPACEBAR AN 

I RETURN TO G 



;KUST RELEAS 





85416 1 










•542* jKESSACES FOR 


SARGON I IB 




494D 2( 


•543* TITLE 


DEFM 






495F 2C 


(544* HESS 


DEPM 


',*,,•,**)•' 


j LOAD? SAVE 7 


TRAINER? 










4967 4C 


•545* NESS1 


DEFM 


'LOAD PREVIOUS 


GAME POSITION 


FROM CASSETTE, ' 








4991 53 


(546* MESS2 


DEFM 


•SAVE GAME POSITION TO C'.SSE 


TTE,' 










49B( 53 


(547* MESS3 


DEFM 


'SET UP SARGON 


IIB TRAINING 


DISPLAY, ' 










4903 52 


05468 MESS4 


DEFM 


'READY CASSETTE 


AND PRESS EN 


TER: ' 










49F2 88 


8549* 


DEFB 


136 




49F3 4D 


•55*8 MESS5 


DEFM 


'MANUAL PLAY 




77»» 


• SSI* 
(552* i 


ORG 


?7(IH 






•553* j LIST PLAYS ROUTINE 




77*1 3A5D78 


•554* PLAYS 


LD 


A, (BUFFER- 3; 


(GET TOTAL N 


0. MOVES 










77*3 F5 


8555* 


PUSH 


AF 


;TOTAL NO. M 


OVES 










77*4 F5 


ISMI 


PUSH 


AF 


jTOTAL NO. M 


CVES 










77*5 3EI1 


(5578 


LD 


A,l 




7787 325D78 


(5588 


LD 


(BUFFER- 3) ,A 


j SET TO 1 


778A 216278 


(559* 


LD 


HL , MOVLOC 


I GET MOVE LO 


CATION 










77*D 226*7 8 


(56(8 


LD 


(BUFFER) ,HL 


(FIRST MOVE 


LOC IN BUFFER 










771* 3E2* 


85618 


LD 


A,2*H 




7712 325C78 


85628 


LD 


(BUFFER-4) ,A 


( "SPACE* IN 


HUNDREDS COL. 










7715 *6*2 


85636 PLAYS1 


LD 


B,82H 




7717 3E*D 


656 4* FLAYS 2 


LD 


A,(DH 




7719 CD3B»» 


(56 5* 


CALL 


(63BH 




771c 1*F9 


• 566C 

• 567* ; 


djs: 


PLAYS 2 






656 6* ;«*:. CC 


D'JMNS 


JBROCTISE 




T71E 86(1 


856 9* 


LD 


B,l 




772* Fl 


857** 


(Off 


AF 


: TOTAL NO. H 


OVES 










7721 F5 


t'r:t 


Pl'Si-: 


Hf 


:TOTAL NO. M 


OVES 










7722 FE1A 


85728 


CP 


26 




7724 3B8B 


05736 


JK 


CLIST 




7726 84 


85748 


INC 


B 




7727 FE33 


85758 


CP 


51 




7729 38(6 


85766 


JR 


C.LIST 




772B 84 


8577* 


INC 


B 




772C FE4C 


85788 


CP 


76 




772E 3881 


857 98 


JR 


CLIST 




7738 84 


(58(8 
9581* ; 


INC 


B 






8582* ; SARGON - PLAYER HEADING SIBRO 


TINE 


7731 78 


65836 LIST 


L.D 


A.B 




7732 32SB78 


85E48 


LD 


BLFFEF-5: ,A 


(SAVE NC. CC' 


LUMNS 










7735 CS 


C585* LIST1 


PJSH 


BC 


; SC . COLVMNS 


7736 8685 


8586* 


LD 


B,*5H 




7738 CD8B46 


8587* 


CALL 


SPACES 




773B 21716F 


■SIM 


LD 


HL.6F71H 


( "PLAYER" PO 


INTER 










773E 116A6F 


85898 


LD 


DE,6F6AH 


i "SARGON" PO 


INTER 










7741 3A5E7B 


859(8 


LU 


A, (BUFFER-2) 




7744 A7 


85918 


AND 


A 




774S 28(1 


85928 


JR 


NZ,SAME 




7747 EB 


(593* 


EX 


DE,BL 


(SWITCH POIN 


TERS 










774B (6*2 


(594* SAME 


LD 


B,»2H 




774A C5 


85956 LIST2 


PUSH 


BC 


(WHITE/BLACK 


COUNTER 










774B D5 


85968 


PUSH 


DE 


(SAVE 


774C 9687 


85978 


LC 


B,(7H 




"■74E 7E 

GS 

774F CD3B*( 


85986 LIST3 


LD 


A, (HL! 


(LIST HEADIN 


(599* 


CALL 


*(3BH 




7752 23 


•6**6 


INC 


HL 




7753 KF9 


•6*1* 


DJNZ 


LIST3 




775S Dl 


8682* 


POP 


DE 


(SAVE 


7756 EB 


16831 


EX 


DE.HL 




7757 CI 


86(4* 


POP 


BC 


(WHITE/BLACK 


POINTER 










7758 1(F( 


*6*5* 


DJNZ 


LIST2 


(PRINTER OTH 


ER HEADING 










775A CI 


(6(6* 


POP 


BC 


(NO. COLUMNS 


775B 1*08 


8687* 


DJNZ 


LIST1 


(PRINT NEXT 


COL. HEADING 










7 7 5D 3E(D 


86668 


LD 


A,(DH 




7 7 5F CD3B(B 


66*9* 


CALL 


883BH 


(LINEFEED 


7762 3A5B78 


•61*8 


LD 


A, (BUPFER-5. 




7765 47 


1611* 


:.d 


B,A 




7766 2A6»7t 

R 

7769 3A5D76 


66126 


LD 


HL, 'BUFFER) 


(MOVE POINTE 


Nlll 


LL 


a, ■: BUFFER- 1: 


(HOVE NUMBER 


776C 226(78 


(614* LIST4 


LD 


(BUFFER' ,HL 


(KEEP TRACK 


OF POINTERS 










776F 325D7B 


8615* 


LD- 


IBUFFER-3) ,A 




7772 325A78 


66)66 


LD 


(BUFFER-6) ,A 




7775 E5 

R 

7776 C5 


B617* 


PUSH 


HL 


(PLAY POINTE 


86188 LIST5 


PUSH 


BC 


(NO. COLUMNS 


7777 3A5D78 


86198 


LD 


A, (BUFFER-3) 




777A FE1A 


8628* 


CP 


26 




777C 287F 


86218 


Jl 


Z,BAC1 


( IF ALL COL. 


PRINTED 










777E (682 


(6228 


LD 


1,121 




77 88 2A687B 


•6238 


LD 


hl, (buffer: 




7783 ?E 


8(246 


LD 


A, !HL) 




7784 FEFF 


•625* 


CP 


• FFH 




7786 2816 


■van 


JR 


Z,MOV 


;6FF IS END 


OF GAME BYTE 










7 7 68 C08B4B 


8627* 


CALL 


SPACES 




7 7 SB 3A5C7 6 


6628* 


LD 


A, (BUFFER-4) 




7 7 8E CD3B88 


8629* 


CALL 


663BH 




7791 CD2778 


863*8 


CALL 


HOVNO 


(GET ASCII H 


OVE NO. 










7794 (6(2 


86318 


LD 


B,B2H 




7796 CD8B48 


•632* 


CALL 


SPACES 




7799 2A6B78 


86339 


LD 


HL, (BUFFER) 




779C B682 


B6348 
86358 | 


LD 


B.82H 






(6361 ; PRINT 


MOVE SUBROUTINE 




779E C5 


86 37* MOV 


PUSH 


BC 


(WHITE/BLACK 



Program continued 
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game to cassette, you could try 
different moves at different 
points in the game or see how 
Sargon would analyze that sit- 
uation. Then, you could reload 
the original game and compare 
what Spassky or Fisher did. 

The Manual Play mode is ac- 
cessed from the Game mode by 
a hidden code. Shift M at the 
beginning of your turn. It re- 
mains in this mode until you 
enter shift G to return to the 
Game mode (lines 04300 thru 
04460). The program assumes 
that it is then your turn to move 
to continue playing in the 
Game mode. 

A list of commands is given 
in Table 1. All routines ac- 
cessed by pressing two keys 
are accessed in one or more of 
the playing modes; Game, 
Training aid, or Manual Play. 
The routines accessed by 
pressing only one key are ac- 
cessed from the title block after 
pressing Break. 

I hope that my modifications 
to Sargon II will add to your en- 
joyment of the game and I en- 



courage you to try them. After 
assembling the program, enter 
a published game using the 
Manual Play mode. Use the 
Training aid mode to analyze it. 

I don't know whether Sargon 
II is compatible with the Model 
III. It looks as though It may be, 
since Sargon II uses its own 
routines for everything. I tried 
to do the same thing except for 
the cassette subroutines. It 
may be compatible; however, I 
don't guarantee it. 

It is unfortunate that compil- 
ing the Assembly program 
takes more than 16K with Radio 
Shack's Editor/Assembler. 
Even more disastrous is the 
fact that T-BUG (and other 
T-BUG-type utility programs) 
cannot be easily used to enter 
the machine code and record 
the program due to non-con- 
tiguous code. To help remedy 
this situation, I will make 
available a low-cost machine- 
code tape of MODIIB as listed 
in this article. Just send me a 
self addressed, stamped 
envelope with your inquiries.! 



'.'.NOW AVAILABLE!'. 

I NDEX 

*55*y Sequential 
^JZ^ Access 
Method 

* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

* Add Records to Disk Files in Any Sequence 

* Variable Key Length From 1 to 50 Characters 

* Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

- Easier Program Development 

• Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- Improved Performance 



ISAM SUBROUTINES 
ISAM UTILITIES 



Documentation 

On Diskette $90 00 



NEW! MACHINE LANGUAGE* BASIC SUBS — $140 

— PLUS — Free Mailing List Sample Application 

Add 6% Sales Tax for California Orders 

TRS-80 MODEL I, II, & III and CPM SOFTWARE FROM 

Johnson Associate)* -or- Telephone Order Line 
P.O. Box 1402 For Bank Card Sales 

Redding, CA 96001 (916) 221-0740 

WRITE FOR FREE CATALOG 
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Program continued 












POINTER 












77»F 6615 


86386 




IX 


B.B5B 




77A1 71 


66 396 MOV1 


LD 


A, WO 




77A2 feff 


66 466 




CP 


6FFH 




77A4 2ME 


66416 




JR 


NI,H0V2 


1 CHECH EMD 


P GAME BYTE 












7 7 A* CI 


66428 




POP 


BC 


iHBITE/BLACR 


PC INTER 












77A7 3ASB78 


66436 




LD 


A, (BUFFER- 5) 




77AA 3D 


86 446 




DEC 


A 


) PRINT IN ON 


E LESS COLUMN 












77AB 325B78 


66456 




LD 


(BUFFER-5) ,A 




77AE B7 


86468 




OR 


A 




77AF 2B4C 


86476 




JR 


t , BAC 1 


1 IF ALL COLU 


HNS PRINTED 












77B1 CI 


86486 




POP 


BC 




77B2 1B34 


66496 




JR 


MOV3 




77B4 CD3BII 


66566 NOV2 


CALL 


663BH 




77*7 23 


66516 




INC 


BL 




77B8 1IE7 


66526 




DJMZ 


MOV1 




77BA 3E26 


66536 




LC 


A, 21!! 




77BC CD3BM 


66546 




CALL 


663BB 




77BF CI 


66556 




POP 


BC 


iHHITE/BLACI 


POINTER 












77CI 1BDC 


66566 




DJN1 


NOV 




77C2 lirftt 


66576 




LD 


DE.246 




77C5 X» 


66586 




ADD 


HL,DE 


;HOVE BUFFER 


TO NEXT 25 












77C6 226178 


66596 




LD 


(BUFFER) ,HL 




77C9 3ASA78 


66666 




LD 


A, (BUFFER-6) 




77CC C619 


66616 




ADD 


A, 25 


(GO TO NEXT 


COLUMN 












77CE 325*78 


66626 




LD 


(BUFFER-6) ,A 




77D1 TE64 


66636 




CP 


196 




7703 2111 


66646 




JR 


NX, COL 




7705 225878 


66656 




LC 


(BUFFER-8) ,HL 




7708 3ASC78 


66666 




LC 


A, (BUFFER-4) 




77DB FE2B 


66676 




CF 


26H 




77DD 2882 


666 86 




JR 


NX, INCR 




77DP 3E38 


66696 




LD 


A.36H 




77E1 3C 


66766 INCR 


INC 


A 




77E2 325C7B 


66716 




LD 


(BUFFER-4) ,A 


;SET HUNDRED 


S COUNTER 












77E5 CI 


66726 COL 


POP 


BC 


|NO. COLUMNS 


77K6 188E 


66738 




DJNZ 


LISTS 




77E8 3A5B78 


66746 NOV3 


LD 


A, (BUFFER-5) 




77EB 47 


66756 




LD 


B,A 




77 EC 3E8D 


96766 




LD 


A,6DH 




77EE CD3B88 


66776 




CALL 


663BH 




77P1 3A5D78 


66786 




LD 


A, (BUFFER-3) 




77F4 3C 


86798 




INC 


A 




77r5 El 

R 

77F6 118A1B 


66 886 




POP 


HL 


j PLAT POIMTE 


66816 




10 


Dt.ll 




77P» If 


66 826 




Acr 


HL,DE 


; RECTI FY MOV 


E BUFFER 












77fA C3SC77 


66 836 




jp 


LIST4 




77F0 CI 


66 646 


SAC1 


POP 


BC 


;NO. COLUMNS 


77rE El 

R 


66858 




POP 


HL 


(PLAY POIMTE 


77PP Fl 


66B66 




POP 


AF 


(TOTAL NO. M 


OVES 












7888 FE64 


66878 




CP 


166 




7882 3815 


868B8 




JR 


CBAC2 


; IF < 166 MO 


VES 












7884 D664 


66 896 




SUB 


109 


;CET NEXT 16 


8 MOVES 












7886 F5 


66966 




PUSH 


AF 


; TOTAL NO. M 


OVES 












7«t7 3E61 


66916 




LD 


A,l 


1 REPEAT COUN 


T WITH NEXT 


166 










7889 325D78 


66929 




LD 


(BUFFER-3) ,A 




7BBC 2A5S78 


66936 




LD 


HL,( BUFFER- 8) 




7SSF 116A66 


66 946 




LD 


DE.16 




7612 19 


66956 




ATT 


H.L,DE 




7813 226676 


66966 




LD 


(BUFFER) ,HL 




7816 C31577 


66976 




JP 


PLAYS1 




7819 3E6D 


66986 


BAC2 


LD 


A.6DH 




781B CD3B66 


86998 




CALL 


663BH 




781E Fl 


67868 




POP 


AF 


; TOTAL NO. M 


OVES 












781F 325D78 


87818 




LD 


(BUPFER-3) ,A 




7822 3E68 


97626 




LD 


A,68H 




7824 C34248 


67636 
67646 


1 


JP 


BACK 2 






67658 


.•ASCII 


HOVE NO. CONVERSION ROUTINE 


7827 3A5A78 


67666 


HOVNO 


LD 


A, (BUFFER-6) 




782A FE64 


67676 




CP 


166 




7B2C 2665 


67686 




JR 


NZ.MOVN01 




782E 3E36 


87699 




LD 


A.38H 


(ASCII ZERO 


7B36 F5 


97166 




PUSH 


AP 




7831 181D 


67116 
67126 


; 


JR 


HOVN02 






87136 


(TEN'. 


COLUMN 


SUBROUTINE 




7833 8638 


87146 


MOVNO 


LD 


B.38H 




7835 FE6A 


67156 


ASC 


CP 


6 AH 




7837 DA3F78 


67166 




JP 


CENT 


J IF < 16 


783A 04 


97176 




INC 


B 


;COUNT TEN'S 


783B D68A 
N 

7B3D 1BF6 


871B8 




SUB 


0AH 


(SUBTRACT TE 


87199 




JR 


ASC 




783P C63B 


87266 


EST 


ADD 


A,18H 


;AD0 ASCII 3 


•M 












7841 F5 


67218 




PUSH 


AF 




7842 3A5C78 


87226 




LD 


A, (BUFFER-4) 


(HUNDREDS CO 


LUMN 












7845 FE2e 


87238 




CP 


26H 




7847 7B 
N 

7848 2986 


87246 




LD 


A,B 


(TEN'S COLUM 


67256 




JR 


NZ,MOVN02 


( IF HUNDREDS 


NO "SPACE" 












784A FE3B 


87266 




CP 


36H 




784C 2882 


87278 




31 


NZ.M0VNO2 


(IF NO TEN'S 


"SPACE - 












784E 3E28 


07 .'HO 




LD 


A.28H 




7858 CD3BBB 


87298 


M0VHO2 CALL 


863BH 


(PRINT TEN'S 


COLUMN 












7853 PI 


87368 




POP 


AF 




7854 CD3B9B 


87316 




CALL 


B83BH 


(PRINT ONE'S 


COLUMN 












7857 C9 


87328 
67 3 36 


I 


?t~ 








87348 


i SETUP FOR AUTO START OF MODI I 


B 


41E2 


87356 




ORG 


41E2H 




41E2 C3 


87 368 




DEFB 


8C3H 




41E3 CI43 


17371 




DEFW 


MODIIB 




43C9 


87 3 88 




END 


MODIIB 
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Color computer owners 




Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic- 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 




DEALER ENQUIRIES INVITED 



hxatron, 

181 Commercial Street, 

Sunnvvale, CA 94086 



□ Please send a 32K Color Computer 
Interface for $199.00 

□ Please send a CCI Disk Card for $99.00 

C3 Please include CCDOS and manual 
for $29.95 

;: Also include a ROM Backup adaptor 
for $19.95 

Please add $5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City 

State Zip 

Charge my: 

[2 MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

□ Check enclosed for 

□ Ship COD ($2.00 extra) 



Signature 



M2K KW1 plu» Disk Interface 



trademark of Tand> 



UTILITY 



A data-generating utility that's almost too easy to use. 



Cheater Poker 



Richard Davies 

5233 Crossbridge Drive 

West Chester, OH 45069 



Have you ever had a fairly 
long machine language 
subroutine or program accessed 
from a Basic program, or a lot of 
bytes POKEd into the video dis- 
play memory to create a picture 
or a scene? I had a 300-byte 
machine language sort I wanted 
to use with a Basic program. I 
did not want to load the subrou- 
tine; executing and initializing a 
program should be just one step. 
I decided to PEEK all of the 
bytes in memory, put them in 
data statements, and POKE 
them in from Basic. Because 
this is laborious by hand, I wrote 
the program Data Maker. 

Execution 

To begin, load the data you 
wish to POKE in, whether it is a 
program, a machine language 
subroutine, or a picture dis- 
played on your screen. Protect 
memory size to allow for the ma- 
chine language program or sub- 
routine. Then go into Basic and 
type in Program Listing 1. 

Run the program; it will dis- 
play Start Address = . Enter the 
starting address of your pro- 
gram or subroutine in decimal or 
hexadecimal format. The deci- 
mal address can be positive or 
negative. Type the hexadecimal 
address followed by an upper- 
case H. Addresses 16536, 49000 
and BF68H are the same; the 
computer displays the address 



as -16536 in decimal or BF68H 
in hex. (It uses the formula ad- 
dress -65536 with addresses 
greater than 32767.) The com- 
puter will respond with END 
ADDRESS = . Enter the end ad- 
dress of your program or sub- 
routine as before. 

The computer will display the 
starting and ending addresses 
specified in decimal and hexa- 
decimal. Now the Data Maker 
creates a program you can load 
and execute in Basic. Enter the 
filespec you wish to use, includ- 
ing file name, extension, pass- 
word, and drive number (if 
needed). 



The program asks for the 
starting line number and incre- 
ment. Enter a line number to put 
your routine at the beginning or 
end of another program. Usually 
it is convenient to increment by 
ten. 

After the Data Maker creates 
your program, type NEW, and 
LOAD filespec to load your file- 
spec into memory. Run your pro- 
gram, and it will POKE the data 
elements into the addresses you 
specified earlier. 

The Program Created 

The first line Data Maker 
creates is a For. . . Next loop to 



REM* 
REM" 
REM* 
REM' 



DATAMAKE/BAS - 
by : Richard Z 



10 CLEAR500:LS=STRING$(64,143) : CLS 

20 LINEINPUT-Start address = " J S$: IFRIGHTS (SS,1 ) ="H"THENIN$=LEFT 

S(S$ f LEN(SS)-l) :GOSI)B20000:SD»D:SH$-S$:ELSED'VAI.(S$) :GOSUB10000: 

SHS-B$:SD-D:SH$=SH$»"H" 

30 LINEINPUT'End address » " ; ES: E-VALl ES> : IFRIGHT$(E$, 1) -"H'TH 

ENIN$»LEFT$(ES,LEN(E$)-1) :GOSUB20000 : ED-D: EH$-E$ELSED«VAL( ES) :GO 

SUB10000:EH$»B$:ED«D:EH$-EH$»*H' 

40 IFSD>EDTHENPRINT"ERROR - Start address is greater then end ad 

dress" :GOTO20 

45 IFSD>32767THENSD-SD-65536 

46 IFED>32767THENED«ED-65536 

47 IFSD<-32768ORSD>327670RED<-327670RED>32767THENPRINT"F.RROR - I 
nvalid address ( es) *:GOTO20 

50 CLS:IFSD<0THENS$-STR$(SD) :COT055EI,SES$-=RIGHT$ ( STR$ ( SD) , LEN ( ST 

R5(SD))-1) 

55 IFED<0THENES-STRS(ED) :GOTO60ELSEES-RICHT$ ( STRS ( ED) , LEN ( STRS I F. 

D))-l) 

60 PRINTLS" Start address »"SD* ( "SHS*) End address =*ED"("EH 

$') "iPRINTLSi 

70 LINEINPUT'Enter filespeO " ; F$: IFF$-*'THEN70ELSEOPEN"O* ,1 ,FS 

80 LINEINPUT'Startinq line number) * ;L$:L-VAL( I.S) -. IFL<1THEN80 

90 LINEINPUT" Increment) * ; I $s I-VALl I $) : IFK1THEN90 

95 A$-RIGHT$ISTR$[L) ,LEN(STR$(L) )-l)+* FORX-"-»S$»"TO"*ES» ": READY 

:POKEX,YiNEXTX':L»L*I:PRINTA$:PRINTtl,A$ 

100 P0RX-SDTOEDSTEP15 

110 A$-RIGHT$(STR$(L) ,LEN(STRS(L) )-l)*" DATA ":L-L+I 

120 FORZ-0TO14 

130 P-PEEK(X*Z) :AS-A$+RIGHT$(STR$(P) , LEN I STRS ( P) ) -1) 

140 IFZ014THENAS-AS*"," 

150 IFED«Z*XTHEN165ELSENEXTZ:PRINTAS:PRINTtl,AS:NEXTX 

160 CLOSE: END 

165 IFRIGHT$(AS,1) <>" , "THENAS-AS*' ," 

170 B$-LEFT$(AS,LEN(A$)-1) : PRI NTBS : PRINTI 1 , BS : CLOSE : END 

10000 A$-'0123456789ABCDEF-:A1-D1 :BS="" : FORI =1T04 : B-1NTI A !/16) :C 

-Al-B«16:Al*B:B$«MID$(A$,C+l,l)+B$:NEXT:RETURN 

20000 IN«0:FORI«1TOLEN(IN$) : IT-ASCIHIDS ( IN$, I , 1 ) ) : IT-IT-48 : IFIT> 

9THENIT-IT-7:IN«IN*16+IT:NEXT:D'IN:RETURN 

20010 IFIT>9THENIT-IT-7 

20020 IN- I N* 16+IT: NEXT :D-IN: RETURN 



Program Listing 1 



POKE all the data into memory: 

<starting line number> FORX = <Starl ad- 
dress> TO<end address> 
:READY POKEX.Y:NEXTX 

You specified the starting line 
number, start address, and end 
address. The line begins at the 
start address, reads a byte of 
the data, POKEs that byte into 
the current memory address, and 
continues to the end address. 

To merge this program at the 
start or end of another program 
type MERGE filespec; Data 
Maker creates a Basic program 
in ASCII format. 

Data Maker 

Line 10 clears string space 
and the screen, and sets up L$ 
as 63 CHR$(143)'s (a line of gra- 
phic blocks). Line 20 asks for the 
start address and converts it to 
decimal if necessary. Line 30 
asks for the end address, con- 
verting it to decimal if necessary. 

Line 40 checks for a start ad- 
dress greater than the end 
address. If this is found, the pro- 
gram displays an appropriate 
error message and allows you to 
re-enter the addresses. Line 45 
converts the start address from 
a decimal address greater than 
32767 to a negative decimal ad- 
dress, if necessary. Line 46 does 
the same for the end address. 
Line 47 checks for addresses 
greater than 65535 or FFFFH 
and indicates the presence of in- 
valid addresses. Line 50 clears 
the screen, and line 55 puts the 
addresses specified earlier into 
a string for later use. Line 60 
prints the line of CHR$(143)'s. 
the start and end addresses in 
decimal or hexadecimal, and 
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another line of CHR$CI43)'s. 

Line 70 asks for the filespec 
you wish to use for data. If you 
enter null or press Enter the pro- 
gram repeats the question. If not, 
the program opens the file for 
output in file buffer number one. 

Line 80 asks for the starting 
line number you wish to use. If 
the number you specify is less 
than one, you will be asked 
again. Line 90 prompts you for 
the increment; again, if you en- 
ter a value less than one it will 
repeat the question. 

Line 95 assigns "<starting 
line number> FORX = <start ad- 
dress> TO <end address> 
:READY:POKEX,Y:NEXTX" to A$. 
It then adds the increment to the 
current line number L, displays 
the line and sends it to the disk 
file. 

Line 100 executes a For. . . 
Next loop from the start address 
to the end address with a step of 
15 bytes. Line 110 assigns A$ a 
line number, a space, the word 
Data, and another space. 

The line counter is increment- 
ed again. Line 120 sets up a 



For. . . Next loop for 15 data ele- 
ments on each line. Line 130 
adds each byte to the end of AS. 
with a comma after each byte 
(data element) except the last. 
Line 1 40 checks for the last data 
element in that line. 

Line 150 checks for the end 



address. If it has been reached, 
the program branches to line 
170. Line 170 prints the last line 
to the video display and disk 
without an end comma and clos- 
es all files. 

The subroutine at line 10000 
converts a decimal address 



(variable D) to hexadecimal, re- 
turning with the hexadecimal 
string in the variable B$. The 
subroutine at line 20000 con- 
verts a hexadecimal address in 
variable INS, to a decimal ad- 
dress, returning with the deci- 
mal address in the variable DM 



L$ Sixty-three CHR$<143)'s used for graphics line and starting line number without leading blank. 

SS Start address without leading blank. 

ES End address without leading blank. 

E End address with leading blank. 

F$ Filespec of Data Maker's output. 

L Starting line number with leading blank. 

IS Increment without leading blank. 

I Permanent storage of increment with leading blank; used in number-conversion subroutines. 

AS Temporary storage for current line number. 

BS Temporary storage for last line number used in subroutine to convert decimal to hexadecimal 

P PEEK of current memory address. 

X Used in For. . . Next loop for each line. 

Z Used in For . Next loop for each byte (data element). 

C Used m subroutine to convert decimal to hexadecimal. 

Used in number conversion subroutines. 

ED Permanent storage for the ending address in decimal 

EHS Permanent storage for the ending address in hexadecimal. 

INS Used in subroutine to convert hexadecimal to decimal. 

IN Used in subroutine to convert hexadecimal to decimal. 

IT Used m subroutine to convert hexadecimal to decimal. 

SD Permanent storage for starting address in decimal. 

SHS Permanent storage for starting address in hexadecimal. 

A Used in subroutine to convert decimal to hexadecimal. 

B Used in subroutine to convert decimal to hexadecimal. 

Table 1. Variables used by Data Maker. 
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E22 




TRS-80 MODEL II 

8 4 MEGABYTE HARC 



TRS-80 MODEL III 

- s 2100 
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J 850 

2 DISK RS 232 (ALL RADIO SHACK EQUIPMENT) 



PRIMARY UNIT) $4040 ' ^ij^&KK^l^^r^ \ 



FREE 

OUT-OF-STATE TAXES AND SHIPPING COSTS 

WARRANTIES HONORED BY ALL COMPANY OWNED 
RADIO SHACK STORES OR COMPUTOR CENTERS 

WE ALSO CARRY A FULL LINE OF PRINTERS. 
COMPUTORS AND ACCESSORIES 



TRS-80 COLOR 4-K $3 1 5 
16-K $495 32 K $595 



COLOR DISK DRIVES 

o '509 12 3*339 

TM TANDY CORP 



WE ACCEPT 

CERTIFIED CHECKS, 

CASHIERS CHECKS 

AND MONEY ORDERS 



PERRY OIL & GAS INCORPORATED 



137 NORTH MAIN ST.. PERRY. MICHIGAN 48872 
WE OWN AND OPERATE A RADIO SHACK 



PHONE (517) 625-4161. MICH 
DEALERSHIP R 162 



FOR OUR PRICES. PLEASE CALL TOLL FREE 



1-800-248-3823 



• See L is r oi Advertisers on page 4 1 8 
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GENERAL 



More on using this popular utility. 



The Ins and Outs of EDIT 



William L. Schrader 
1409 Espanola Street N.E. 
Albuquerque, NM 87110 



If you seriously want to delve 
into the inner workings of the 
TRS-80, then the NEWDOS-80 
operating system produced by 
Apparat is probably the best in- 
vestment you can make. It in- 
cludes the Radio Shack ED- 
TASM Editor/Assembler as 
modified for disk input/output. 
This is a flexible, easy-to-use 
and very effective tool for 
writing machine language code. 
If you can afford to invest in only 
one assembler, this should 
probably be the one. 

EDTASM has several advan- 
tages over EDIT. It edits with 
many of the same commands 
which are used by the familiar 
Basic edit routine. It is co-resi- 
dent, which means that you can 
run a test assemblage of the 
source code you are writing as 
often as you like, and without all 
the nonsense of off-loading the 
text of your source code. You 
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must off-load with EDIT so you 
can assemble it with a separate 
assembler program. EDTASM is 
hard to beat in its ease of use, 
and if you don't have a disk sys- 
tem, it is available from Radio 
Shack as a cassette tape for a 
reasonable price. 

Your next step in an assem- 
bler is probably the Macro- 
Assembler package offered by 
Radio Shack. There are some 
major advantages in the Macro- 
Assembler, even if at the sake of 
simplicity and speed. This 
package includes several sep- 
arate programs, viz. EDIT the 
editor, M80 the assembler, L80 
the Linking Loader, and even a 
cross reference generator pro- 
gram. One major advantage is 
the resulting relocatable and 
linkable object code. Once a 
program is finished, L80 can 
prepare an executable object 
file which will load anywhere in 
specified memory. It is also link- 
able, so that your final ex- 
ecutable program can combine 
several sub-programs and sub- 
routines, and even combine with 
compiled Basic and Fortran seg- 
ments. If you need this cap- 
ability, then you need the Macro- 
Assembler. 



Another requirement which 
would dictate its use is file size. 
The EDTASM editor must load 
an entire file into memory to pro- 
cess it. Thus if you have a very 
long source code, very lengthy 
comments and documentation 
or limited memory, you can find 
yourself out of space with ED- 
TASM. The EDIT editor actually 
leaves text on disk and pro- 
cesses it by records, calling 
in new records as required. For 
this reason the disk drive works 
continuously while using EDIT, 
but only on load or write when 
using EDTASM. It appears that 
EDIT is limited in size only by the 
capacity of your mass storage 
system. In fact I tried it suc- 
cessfully with a 385 sector, 77 
granule listing file, which I was 
able to load and review using 
EDIT. This represents over 98K 
bytes or characters of actual 
text— or more than twice the 
available RAM in the TRS-80, not 
to mention the memory that 
EDIT itself was using. Another 
useful feature of EDIT is its abili- 
ty to assemble both 8080 and 
Z-80 mnemonics, even in the 
very same program. 

Some of the subtle features 
such as Macros and Block 



Pseudos could have been ex- 
plained more clearly in the 
manuals. For example, the re- 
peat block pseudos REPT, IRP 
and IRPC often need to use the 
SET pseudo-op. However, you 
must be in the 8080 mode to use 
it, or else the assembler thinks it 
is a Z80 bit set operation. 

The Cross Reference Facility, 
CREF80, sounds like a super-frill 
but it is really kind of useless. 
When used it adds an addition- 
al second set of line numbers 
to your source code and the 
final pages include a listing of 
labels and macros referenced to 
these new line numbers. EDTASM 
gives the same label reference 
with the line numbers you in- 
voked, which I personally prefer. 
CREF80 requires still more disk 
jockeying, but it is there if your 
file is too long for EDTASM. 

Now let's talk about EDIT, the 
real object of my investigations. 
First I would like to take Tandy 
to task for not providing better 
support of their software. I 
wasn't surprised to find some 
software bugs in the extensive 
package comprising the Macro- 
Assembler. However the lack of 
communication and/or interest 
concerning a customer com- 



plaint left me with a nagging 
negative Impression. I called the 
Texas hotline only to get ac- 
knowledgement that "yes a 
problem did exist, but ... ." 
Thereafter, my first letter was not 
even answered and the second 
letter, a couple of months later, 
gave condolences. They were 
sorry about the bugs and maybe 
future releases would correct 
them. Even if they do sell their 
software "unwarranted" and on 
an "as-is" basis, an investment 
of this size should include an up- 
date or patch service when er- 
rors have been corrected. 

Problems 

The most annoying problem I 
found with EDIT occurs when try- 
ing to scroll through a long file. 
The CNTRL-S and CNTRL-0 
commands referenced in the 
EDIT manual simply do not work. 
And if you are using the 
NEWDOS three-key Debug with 
Break defeated, then the Break 
command does not work either! 
Then you are in limbo until the 
entire file marches by— what a 
bummer!! If you use a stock 
TRSDOS system then you can 
exit the scroll with Break, but you 
still cannot stop and start the 
scroll — a feature which you real- 
ly need when writing source 
code. 

Another still more cat- 
astrophic fault was related to 
the "Z-file" or index file written 
with each file output, (except for 
very short files). Thus if you 
write a file called "FILES PEC/ 
ABC", then you also see a short, 
usually one granule file called 
"FILESPEC/ZAB". The index file 



has the extension shifted right 
with a leading Z inserted. This 
index file supposedly provides 
the editor with information 
needed for file processing, so 
that it can open the desired file 
without having to determine file 
length and other parameters at 
load time. The purported faster 
loading time (I've measured 
seven seconds with Z-file as op- 
posed to 20 without) hardly 
seems worth the effort. But the 
zinger is the fact that more often 
than not this Z-file seems to 
scramble EDIT's brains and the 
resulting line numbers get out of 
kilter. 

This problem seems to be ag- 
gravated when the file has multi- 
ple pages. It appears that the 
line number tracker gets even 
more confused if it has to jump 
page boundaries. The only way 
to recover is to delete out-of-se- 
quence lines, which doesn't 
always work, and off-load seg- 
ments properly numbered to be 
concatenated by some other 
means. The solution I got over 
the hotline was to kill each and 
every Z-file as soon as it is 
created. 

The last error is much less 
bothersome. It occurs when try- 
ing to use the F and O com- 
mands while in the alter mode. It 
turns out you have to use the 
shift up-arrow rather than Break 
to invoke these commands. 

After disassembling the EDIT 
object code and studying it at 
some length, I have found a 
single byte causes the CNTRL-S 
and CNTRL-0 problem. When 
checking for keyboard entry, a 
RET NZ is specified when it 
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should have been RET Z. Don't 
they test these programs 
before (or after) selling them? 
You can correct this malady us- 
ing SUPERZAP by changing the 
byte at FILE RELATIVE SECTOR 
(FRS) 54, RELATIVE BYTE (RB) 
3F from CO to C8. The loaded 
EDIT file can be corrected by 
making the same change at ad- 
dress 8767. The O/F command 
fault can be corrected by chang- 
ing FRS 19, RB CD from 1 B (shift 
up-arrow) to 01 (Break). The ad- 
dress for this change when 
loaded is 657D. 

Another change I have made, 
to scroll 15 lines instead of 20, 
involves changing FRS 24, RB 
1F from 20H to 15H (close 
packed BCD). The memory ad- 
dress is 69BF. The above 
changes are listed again in 
Table 1 along with a couple 
more. 

The EDIT editor is designed to 
expand tab characters before 
the text is loaded on a disk file. 
Consider the line of code: 

LD A,B". EDIT uses 19 
bytes or characters to store this 



data whereas it can be stored 
using only 7 bytes if tabs are not 
expanded. The assembler will 
accept either mode. Thus con- 
siderable savings of disk stor- 
age space can be made by not 
expanding tabs for mass stor- 
age. Table 1 gives the code 
necessary to accomplish this 
change. 

I have used the above 
changes at some length without 
problem. I have found that the 
Z-file can be defeated by chang- 
ing the code at 7365 from CA to 
C3 as shown in Table 1 (the 
change at 732B is also effective 
in defeating Z-files). I have not 
tested these Z-file defeat 
changes extensively, so use 
them with caution. 

You can get the best of both 
EDIT and EDTASM. By changing 
seven bytes at the beginning 
and two bytes at the end of your 
source files, you can get them to 
work on either editor. EDTASM 
source files always start with a 
D3 byte followed by the first six 
characters of the filespec. Then 
EDTASM ends with a 1A byte 




COMPUTERWARE 

Wj^^^r products for 

q^od Tre^?l &9 W I TIP B? 1?3 



SOFTWARE 

Color Invaders • Color Pac Attack • Monitor • 
Adventure Games • Text Editors • Assemblers • 
PASCAL • Magikube • Finance Programs • Color 
Data Organizer • Graphic Games • Disassembler 

HARDWARE 

32 K RAM Expansion Board • 16 K RAM Set • 

Cables • Interfaces • Power Pack ROM Cartridge 

• Printers 

ACCESSORIES 

Books • Cassettes • Supplies • Service Manuals 

Shipping from stock 



Call or Write: ^472 

COMPUTERWARE 



Dept. C • Box 668 
6809 Specialists Encinitas, CA 92024 • (714) 436-3512 

Computerware is a trademark of Computerware 




^ See Lis r ol Advertisers on page 418 
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following the last 00 carriage 
return. EDIT files start right off 
with the first line number and 
end simply with the last carriage 
return. Here's the recipe for 
changing: 

• If starting with EDTASM, 
make your first line the 
same as the filespec with 
the spacing shown. ;*• 
FILESPEC/EDT" 

• If starting with EDIT, make 
a blank first line and put 
the above on the second 
line. 

• In either case, append a 
last line of all ***'s. This 
makes it easier to find. 

When looking up the first sec- 
tor of the file using SUPERZAP, 
the two versions appear as 
shown in Fig. 1 and Fig. 2. One 
can be changed to the other 
simply by modifying the first 
seven bytes, (zero through six). 
The second line of the SUPER- 
ZAP display will give the ASCII 
equivalents of the filespec. If 
changing to EDIT you have to in- 
sert a line number, plus tab with 
bit seven set and a carriage 
return. If changing to EDTASM, 
overwrite the BOBO BOBO B089 
OD with a D3 first byte plus the 
first six characters of the 
filespec, which are also showing 
on the second line of the 
SUPERZAP display. At the end 
of the file, keeping the file length 
the same in either case, use "2A 
OD" for EDIT files and "OD 1A" 
for EDTASM files. 

I prefer to start a long source 
code on the EDIT editor. It has 
several additional features, like 



delete or move cursor over 
words, forward and backward, 
that offer some advantage. You 
can also replace a word or text 
with another word or text as 
many times as desired in a file, 
and all with only one command 
(good for changing labels). This 
advantage is only realized if you 
use it often enough to keep 
familiar with the commands. As 
with anything else, the more so- 
phisticated it is, the more com- 
plicated and hard to remember. 

When you have a substantial 
amount of code written and are 
ready to test and debug, you can 
then convert it to an EDTASM 
file and assemble, modify, 
reassemble and do whatever to 
it. To make it compatible with 
the M80 assembler, there are 
several disparities one must 
remember. First, the PSEUDO 
OPS usually are not compatible. 
Thus you cannot, at this stage, 
use the TITLE, SUBTTL, LIST 
ON, etc. PSEUDO OPS. One way 
around this is to go ahead and 
insert what you want, but use a 
";" to make it a comment line in 
the mode that won't accept it. 
Second, the EDTASM assembler 
must have an ORG statement, 
which you may not want in the 
Micro Assembler version. Most 
of all, for all labels you must 
place a ":" to end the label. This 
is compatible with EDTASM and 
required by the Macro- 
Assembler. 

If you have global or public 
labels for the Macro, then you 
cannot use the double "::" after 
the label in EDTASM. This may 



sound complicated, but you'll 
find that the bulk of your source 
code is not concerned with 
these frills, and this is a work- 
able way to travel. In fact, using 
EDTASM, you can run a trial as- 
semblage and usually find only 
a few items that you forgot to ";" 
out for the test run. Do keep a 
note pad with what has to be 
changed back for whichever ver- 
sion you are using. If you use 
this a lot, it will become easy. If 
you use it once every other 
month, forget EDIT and stick 
with EDTASM. 

And here is a note on the SEQ, 
UNSEQ, and Basic switches 
used with EDIT. The source 
code file of concern can be pro- 
cessed with EDIT, EDTASM, 
Scripsit, and even Basic. The 
main problem is compatibility 
with the using program. EDIT 
and EDTASM both use line num- 
bers which have bit seven set, 
B7 = 1. Scripsit and Basic 
always use B7 = 0. In fact, Basic 
will think you are using Basic 
command keyword numbers if 
bit seven is set. Concatenating 
multiple files requires you to use 
EDTASM, Scripsit or Basic. 

An understanding of the EDIT 
switches is called for. If the first 



byte of a file is a line number 
with B7 set, then EDIT will ac- 
cept its numbers and load it 
okay even if later line numbers 
do not have B7 set. If the first 
byte is a line number which has 
B7 reset, then EDIT will accept 
its line numbers only if you use 
the - Basic or - SEQ switch for 
loading. Subsequent numbers 
will be loaded okay even if you 
have B7 set. 

Also there is the question of 
which switch to use when sav- 
ing the EDIT files. IF - Basic is 
used on load and -UNSEQ is 
used on output, then line 
numbers will have B7 reset to 
zero and a space will follow the 
line number. This saves a Basic 
file. If - Basic is not used on 
load and - UNSEQ is used on 
output, then the output file will 
have no line numbers. All of this 
takes a little playing with to 
determine what is really going 
on. One way to check it out is 
to write some short test files 
and then look at them with 
SUPERZAP. I hope this will pro- 
vide some help to those who 
have had the same problems 
with EDIT that I have had. It has 
some neat features but simplici- 
ty is not one of them. ■ 



1 . Correcting the following error enables CNTRL-S 


CNTRL-O 






S File Relative Sector (FRS) 54. Relative Byte (RB) 3F: 






Address: Change: 


To: 






8767 OCOH RET NZ 


0C8H 


RET 


Z 


2. Correcting the following error enables Break for F & Cmds in Alter mode. 


(otherwise Shift Up-Arrow must be used) 2 FRS 19. RB CD 






Address: Change: 


T« 






657D 1BH SHIFT-UP' 


01H 


BREAK' 




3. Following change will print 15 lines/page rather than 20. 






3 FRS 24. RB1F: 








0BOtQQ31 ^*WIIQ01 


To: 






696F 20H 


15H 


BCD »'S) 




4. Following change suppresses tab expansion before storage 


1. 




9 FRS 53, RBs 57 thru 65: 








OMCode NewCode 






Change: 


To: 






8683 3E20 LO A.20H 


8683 3609 


LD 


(HLJ.09H 


85 77 LD (Hl).A 


85 23 


INC 


HL 


86 23 INC HL 


86 05 


DEC 


B 


87 05 PUSH DE 


87 3E20 


LO 


A.20H 


88 CO3300 CALL 0033H 


89 D5 


PUSH 


DE 


8B 01 POP DE 


8A CD3300 CALL 


0033H 


8C 05 DEC B 


8D D1 


POP 


DE 


80 1D DEC E 


8E 1D 


DEC 


E 


BE C8 RET Z 


8F C8 


RET 


Z 


868F C380B6 JP B680H 


8690 18F7 


JR 


8689H 


5. Following change defeats creation of a "Z-Flle' 








<g> FRS 33, RB EO: 








Addreaa: Change: 


T« 






7365 OCAH JP Z 


0C3H 


JP 




6. Following change also defeats creation of a "Z-file". but may not reset system 


parameters (5 and 6 not thoroughly tested). 








@ FRS 33. RB B3: 








Addreaa: Change: 


To: 






732B CA5A73 JP Z.73SAH 


000000 


NOP NOP NOP 


Table 1 
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the HOW-TO, SHOW&TELL, 
STEPbySTEP book of creating 

DOS RANDOM ACCESS 
PROGRAMS. 



NEW! 



r^Ti.il;l.TiiT» 



R4NDCU4GCESS 
& BASC RUE HAMX: • 



Written tor TRS-80 and •■ computers using 
Microsoft teste. The breakthrough book for 
non-programmers . . . businessmen and 
professionals who went to solve in house 
problems by writing your own customized 
program . . . and the hobby*! with the 
desire to get beyond the cassette end Into 
disk date storage and file manipulation 
-DOS Random Access * File Handing" is 
the plain speaking, easy to read 150 page 
book for learning HOW TO WRITE 
SPECIAL PROGRAMS for inventories, 
mailing lists, work schedules record 
keeping and more Your acquaintance with 
Level I and Level II basic and this self- 
instruction tutorial will assure quick 
progress 




2 Dogwood Dr 
PO Box 76^4 
Danbury.CT 06810 



Yes I want to expand my programming 

knowledge 

Pleaae send me a copy of "DOS Random 

Access A File Handling" for 24 50 * 1 50 

shipping Q 

Also send me the compatible program disk 

for 28 50 ♦ 1 .50 shipping D 

Overseas add 8.00 per book and disk 

airmail. 

Name , _____ 

Address 

City 

State Zip 



Master Charge D 
Expiration Date . 
Card • 



visa a 



Check D Money Order □ 
COO (2.00 extra) O 
Signature 



Phone Orders (203) 748-3231 
CT. orders add 7 5% sales tax. 
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GRAPHICS 



Gain access to unusual graphic modes in your color machines. 



POKE A, Color Computer 



Richard Esposito 
University of Baltimore 
Baltimore, MD 21201 



The Key Box 

Color Computer 
Extended Color Basic 



The TRS-80 Color Computer 
uses the highly potent com- 
bination of the Motorola 6883 
SAM and the 6847 VDG chips. 
The Color Computer supports 1 4 
different display modes; in Mo- 
torola terminology, they are: Al- 
phanumeric internal, semi- 
graphics-4, semigraphics-6, 
semigraphics-8. semigraphics- 
12, semigraphics-24, graphics- 
1C, graphics-1R, graphics-2C, 
graphics-2R, graphics-3C, 
graphics-3R, graphics-6C, and 
graphics-6R. 

In addition to these 14 modes, 



there are two additional modes: 
alphanumeric external and DMA. 
The former requires an external 
ROM for up to 256 characters. 
These could include APL char- 
acters, lowercase, kata-kana or 
any other combination. 

Level I Basic supports two of 
these modes and Extended Col- 
or Basic supports seven. If you 
wish to use any of the modes 
not supported by your version of 
Basic, you must either move up 
to a higher level of Basic or re- 
sort to POKE graphics. 

In order to enter any of the 
modes, certain addresses relat- 
ing to the two chips (SAM and 
VDG) must be POKEd. The ad- 
dress of the VDG is $FF22 (the 
dollar sign indicates the number 
is hexadecimal). 

Since the SAM chip is not di- 
rectly connected to the data 
bus, it must be programmed one 
bit at a time by POKEing ad- 
dresses $FFC0 through $FFC5. 
You can POKE the addresses 
$FFC1 , $FFC3, and $FFC5 to set 
the SAM signals or you can 
POKE the addresses $FFC0, 
$FFC2, and $FFC4 to reset the 
signals. Refer to Table 1 for the 
values to use for a given mode. If 
you have Extended Color Basic, 



it is not necessary to restore any 
VDG or SAM addresses when 
using graphics since the inter- 
preter does this automatically 
when your program stops or is 
interrupted. If you have Level I, 
this can be accomplished by 
pushing the reset button. 

If you do not have Extended 
Color Basic, you must also pro- 
vide additional screen memory 
for the different modes. Level I 
only provides .5K (512 bytes) 
while most graphic modes re- 
quire more. On power-up, Ex- 
tended Color Basic provides 
6.5K which is more than ade- 
quate for the graphics used in 
this article. 

All sample programs that fol- 
low assume that the user has 
Extended Color Basic. If this is 
not the case, see the section at 
the end of this article entitled 
"Level I modifications." 

Modes Supported by 
Level I and Extended Basic 

Alphanumeric internal and 
semigraphics-4 modes can be 
used by POKEing the screen 
memory (addresses 1024-1535). 
If you POKE the values 0-63 into 
memory, you get standard ASCII 
characters green on black. 



POKEing values between 65 and 
127 give you the normal display 
of black characters on green. If 
you POKE the values of 1 28-255, 
you get graphic characters that 
consists of zero to four quad- 
rants of a square filled in with 
one of the eight colors on a 
black back-ground (no more 
than one color can appear with- 
in the same square). You can 
display all 255 characters by 
running the following program: 



10 CLSO 

20 FOR I = 1024 to 1279 

30 POKE I, I - 1024 

40 NEXT I 

50 GOTO 50 



You may recognize the semi- 
graphic-4 characters as those 
generated by the set and reset 
instructions. 

To use graphics-2R mode 
(Tandy calls it PMODE 0) you 
must POKE location $FF22 with 
$B7 and $FFC1 and $FFC3 with 
zeros. In this mode your screen 
is divided into a grid of 128 col- 
umns by 96 rows. This mode 
uses 1536 bytes of screen mem- 
ory, one bit for each pixel. Six- 
teen bytes are used for each of 
the 96 rows of the display screen. 
If your display screen starts at 
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1024, the byte controlling a pixel 
at row R, column C, would be 
1024 + 24* R + INT (CIS) (0< FK95, 
CKCX127) and the particular bit 
(counting from left) = C- 8* INT 
(C/8). To illustrate, the following 
program draws a diagonal line 
running from (0,0) top left of 
screen to (95,95) right, middle of 
the bottom row. 

10 POKE&HFF22.&HB7 

20 POKE &HFFC3, 

30 POKE&HFFC1.0 

40 FORB = 1024 TO 2559 

50 POKE B. 

60 NEXTB 

70 FOR 0=0 to 95 

80 C = R 

90 B = 1024+16.R + INT(C/8) 
100 V = 2t(7-(C-8-INT(C/8))) 
110 POKEB. V 
120 NEXT R 
130 GO TO 130 

Modes Supported 
by Extended Basic 

If you have Extended Basic, 
you can obtain the same plot us- 
ing the following program: 

10 PMODEO 

20 SCREEN 1,0 

30 PCLS 

40 LINE(0,0)-(191.191),PSET 

50 GO TO 50 

The graphics-3R mode (Tandy 
calls it PMODE 2) is similar to 
the graphics-2R mode. The print 
matrix is composed of 128 col- 
umns by 192 rows. It involves 
twice as many points and uses 
twice as much memory (3K in- 
stead of 1.5K). 

Similarly, the byte (B) control- 
ling a pixel in row(R) and column 
(C) would be calculated as B = 
1024 + 16*R + INT(C/8) (0<R« 



192, 0<C<127) and the particu- 
lar bit (P) would be P = C - C« INT 
(C/8). 

The corresponding line drawing 
program is: 

10 POKE&HFF22.&HD7 

20 POKE &HFFC5, 

30 POKE &HFFC1, 

40 FOR 8 = 1024 to 4095 

50 POKE B, 

60 NEXTB 

70 FOR R = 0TO191 

80 C = INT(R/2+ 5) 

90 B = 1024 + 16'R + INT (C/8) 
100 V = 2T(7-<C-8'INT(C/8))> 
110 POKEB. V 
120 NEXT R 
130 GO TO 130 

The corresponding Extended 
Basic program is: 



10 PMODE 2 

20 SCREEN 1,0 

30 PCLS 

40 LINE (0,0) -(191.191). PSET 

50 GO TO 50 



The graph ics-6R mode (Tandy 
calls it PMODE 4) is also similar 
to graphics-2R and -3R modes 
except that you get a plot matrix 
of 256 by 192. This mode uses 6K 
of screen memory. 

As before, the byte (B) control- 
ling a pixel in row(R) and column 
(C) would be calculated as B = 
1024 + 32.R + INT(C/8) (0<R< 
191, 0<(X255) and the particu- 
lar bit (P) would be P = C - C* INT 
(C/8). 

The corresponding line drawing 
program is: 

10 POKE&HFF22.&HF7 
20 POKE &HFFC5, 
30 POKE &HFFC3, 
40 FOR B= 1024 TO 7167 



50 POKE B. 

60 NEXTB 

70 FOR R = to 191 

80 C = R 

90 B = 1024 + 32-R + INT(C/8) 
100 V = 2t(7-(C-8'INT(C/8))) 
110 POKEB. V 
120 NEXT R 
130 GO TO 130 



The corresponding Extended 
Basic program is: 



10 PMODE 4 

20 SCREEN 1,0 

30 PCLS 

40 LINE (0.0) -(191.191). PSET 

50 GO TO 50 



The full color graphic modes 
allow four colors at a time on the 
screen. These modes require 
two bits of data for each pixel 
for color values ranging from 00 
binary to 11 binary. 

The first full color graphics 
mode that is included in Extend- 
ed Color Basic is Motorola's 
graphics-3C mode (Tandy calls 
it PMODE 1). In this mode our 
screen matrix consists of 128 by 
96 pixels with 2 bits per pixel. 
This mode uses 3072 bytes of 
screen memory. Since one row 
of graphics consists of 128 pix- 
els and each pixel uses 2 bits or 
one-quarter bytes, we need 32 
bytes per line. If our display 
screen starts at 1024, the byte B 
controlling a pixel at row R, col- 
umn C would be B = 1024 + 32* 
R + I NT (C/4) (CK R<95, 0< (X 1 27) 
and the particular one-quarter 
byte Q controlling that pixel is 
Q = C-4*INT(C/4). 

To illustrate, I will again resort 
to the line drawing program but 



this time you have a choice of 
colors. 

10 INPUT "LINE COLOR (1.2. or 3) = "\X 

20 POKE &HFF22. &HC7 

30 POKE &HFFC5. 

40 FOR B = 1024 to 4095 

50 POKE B. 

60 NEXTB 

70 FORR = 0to95 

80 C = R 

90 B = 1024 + 32-R + INT (C/4) 
100 V = 4t(3-(C-4-INT(C/4))| 
110 POKEB, V-X 
120 NEXTR 
130 GO TO 130 

The equivalent program using 
Extended Basic: 

10 INPUT •LINECOLOR(1.2.or3) = ";X 

20 PMODE 1 

30 COLOR X+1. 1 

40 SCREEN 1.0 

50 PCLS 

60 LINE (0,0) -(191,191). PSET 

70 GO TO 70 

Rounding out the last of the 
seven modes supported by Ex- 
tended Color Basic is the graph- 
ics-6C mode. It uses a plot ma- 
trix of 192 rows by 128 columns. 
Similar to the graphics 3-C 
mode, this mode uses 2 bits per 
pixel and with double the verti- 
cal resolution of graphics 3-C it 
uses twice the screen memory 
resulting in 6144 bytes. 

If our display screen starts at 
1024. the byte B controlling a 
pixel at row R. column C would 
be B = 1024 + 32«R+INT(C/4) 
(0<R<191, 0<CX127) and the 
particular one-quarter byte Q 
controlling that pixel is Q = C- 
4* I NT (C/4). 

Once again I shall illustrate, 
using the line drawing program 
and as with the graphics 3-C 
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mode, that you have a choice of 
colors. 



10 INPUT LINE COLOR (1,2, or 3)= ",X 

20 POKE &HFF22, &HE7 

30 POKE &HFFC5. 

40 POKE&HFFC3. 

50 FORB = 1024 to 7167 

60 POKE B. 

70 NEXT B 

80 FOP. R = 0TO 191 

90 C = INT(R/2 + 5) 
100 8 = 1024 + 32- R + INT (C/4) 
110 V = 4Tf3-(C-4-INT(C/4))| 
120 POKE B. V-X 
130 NEXT R 
140 GO TO 140 



The equivalent program using 
Extended Basic is: 



10 INPUT LINE COLOR (1,2. or 3) = "; X 

20 PMODE 3 

30 COLOR X+1. 1 

40 SCREEN 1.0 

50 PCLS 

60 LINE (0.0) -(191.191), PSET 

70 GO TO 70 



The graphics-1C mode uses a 
plot matrix of 64 rows of 64 col- 
umns with up to four colors us- 
ing 2 bits per pixel for a total of 
1024 bytes. If our display screen 
starts at 1024, the byte B con- 
trolling the pixel at row R and 
column C would be B= 1024 + 
16«R + INT(C/4) (0«R<63, CKCX 
63) and the particular one-quar- 
ter byte Q controlling that pixel 
isQ = C-4«INT(C/4). 

A program to draw a diagonal 
line from the top left to the bot- 
tom right of the display screen 
follows: 



10 INPUT LINECOLOR(1.2,or3f ;X 

20 POKE &HFF22, 4H87 

30 POKE &HFFC1.0 

40 FOR B = 1024 TO 2047 

50 POKE B. 

60 NEXTB 

70 FOR R = to 63 

80 C = R 

90 B = 1024 + 16- R + INT (CM) 
100 V = 4t(3-(C-4.|NT(C/4))) 
110 POKE B, V.X 
120 NEXTR 
130 GOTO 130 



The graphics-2C mode has 
double the horizontal resolution 
as the graphics-1 C mode. It uses 
2048 bytes of screen memory. 
The line drawing program rewrit- 
ten for this mode is: 



10 INPUT • LINE COLOR (1. 2. or 3V" 

20 POKE &HFF22. 4HA7 

30 POKE 4HFFC3. 

40 FOR B= 1024 TO 3071 

50 POKE B, 

60 NEXTB 

70 FORR = 0\o63 

80 C = 2-R 

90 B= 1024 + 32-R + INT|C/4) 



100 V = 4t(3 - (C - 4-INT (C/4)) 

110 POKE B. V-X 

120 NEXT R 

130 GO TO 130 



The graphics- 1R is a 64 row by 
128 plot matrix and uses 1024 
bytes of screen memory. 
The line drawing program is: 



10 POKE4HFF22. &H97 

20 POKE SHFFC1.0 

30 FOR B= 1024 TO 2047 

40 POKE B, 

50 NEXTB 

60 FOR R = TO 63 

70 C = 2.R 

80 B = 1024+ 16-R + INT(C/8) 

90 V = 2*(7-fC-8.INT(C/8)) 
100 POKE B. V 
110 NEXTR 
120 GOTO 120 



Seriographies Modes 

Except for the semigraphics-6 
mode, the graphics can be inter- 
mixed with your standard ASCII 
characters. 

The semigraphics-6 mode 
takes a plot position and, very 
much like the graphics on the 
original TRS-80, breaks it up into 
six parts (three rows by two col- 
umns). Since the screen con- 
sists of 16 lines by 32 character 
positions, this gives us an effec- 
tive resolution of 64 rows by 48 
columns in 512 bytes of mem- 
ory. To print out all of the semi- 
graphics-6 characters, run the 
following program (no modifica- 
tions are necessary for a Level I 
machine). 



10 POKE 65314, 23 

20 FOR I = 1024 to 1535 

30 POKE I. 

40 NEXT I 

50 FOR I = TO 255 

60 POKE 1024 ♦ 1. 1 

70 NEXT I 

80 GO TO 80 



The first four lines (POKEd 
values of 1-127) are "garbage" 
characters because the external 
VDG ROM is not supplied with 
this system. The codes 128-255 
are much more interesting— they 
provide you with every combina- 
tion of blue/black and red/black 
in a 3 by 2 character position. 

The remaining semigraphics 
modes are not possible on a ma- 
chine that uses only the MC6847 
VDG. These modes are a result 
of the different ways in which 
the MC6883 SAM chip can ac- 
cess memory. 

The semigraphics-8 mode is 
similar to the semigraphics-4 



mode. The VDG generates the 
same set of characters for both 
modes The difference is that 
the semigraphics-8 mode uses 
2048 bytes of screen memory in- 
stead of 512. Imagine a screen 
that is 32 columns wide with 
room for 64 lines of display, both 
semigraphics-4 characters and 
the standard ASCII set. (If you 
POKE the values 0-255 into 
memory starting at 1024, you 
will see the characters under 
discussion.) 

Now take these 64 lines and 
divide each into four strips. The 
first strip from the first line would 
contain the upper quarter of 
each of the 32 characters on 
that line, the second strip would 
contain the next quarter of each 
character on that line, the next 
strip, the third quarter of each 
character on that line, and the 
fourth strip would contain the 
bottom quarter of each charac- 
ter on that line. Assuming this is 
done with all 64 lines, the top 
quarter of row one would contain 
the top stripe from the first row 
of the imagined 64 row screen. 
The second quarter of row one 
would contain the second stripe 
from the second row of the 64 
line screen. The third quarter of 
row one would contain the third 
stripe from the third row of the 
64 line screen. The fourth quar- 
ter of row one would contain the 
fourth stripe from the fourth row 
of the 64 line screen After the 
first row is filled, the process re- 
peats: The top quarter of the 
second row contains the top 
stripe of the fifth row of the 64 
line screen, and so on. 

To illustrate the graphics 
available in this mode I will fill 
the screen with random colors 
and print semigraphics-8 in the 
center of the screen. 

One fact regarding random 
numbers that Radio Shack does 
not mention in their manuals is 
that when you turn on your com- 
puter and print a random num- 
ber, you will repeatedly get the 
same random ?? number every 
time that you turn off the ma- 
chine then repeat the sequence. 
However, if you supply a nega- 
tive number as an argument for 
the RND function, that number 
will reseed the random number 
generator. If you insert the 
statement 1 X = RND ( - TIMER) 



at the beginning of any program 
that uses random numbers, the 
problem is eliminated. (Note: 
TIMER is built into Extended Ba- 
sic. It gives the time in sixtieths 
of a second.) 
Now the program: 



1 X = RND(- TIMER) 

10 POKE &HFFC3. 

20 FOR I ■ 1024 TO 3071 

30 POKE I. RND (128) + 127 

40 NEXT I 

50 FOR I - to 96 STEP 32 

60 POKE 1930 ♦ I. ASC C'S") 

70 POKE 1931 + I. ASC ("E ") 

80 POKE 1932 + 1. ASC CM") 

90 POKE 1933 ♦ I. ASC (T) 

100 POKE 1934 + I. ASC ("G ) 

110 POKE 1935 + I, ASC ( R ') 

120 POKE 1936 + 1, ASC ("A") 

130 POKE 1937 + 1. ASC ("P") 

140 POKE 1938+I. ASCCH'i 

150 POKE 1939+1, ASC IT) 

160 POKE 1940 + I. ASC (C) 

170 POKE 1941 + 1. ASCI S'l 

180 POKE 1942 + I. ASC C - ") 

190 POKE 1943 + 1, ASC {'V) 

200 NEXT I 

210 GO TO 210 



The semigraphics-12 mode is 
similar to the semigraphics-8 ex- 
cept each line consists of six 
stripes instead of four. This 
mode uses 3072 bytes of screen 
memory. 

The equivalent sample program 
is: 



1 X = RND (-TIMER) 

10 POKE &HFFC5. 

20 FOR I = 1024 TO 4095 

30 POKE I. RND (128) + 127 

40 NEXT I 

50 FOR I = TO 160 STEP 32 

60 POKE 2378 ♦ I. ASC ("S") 

70 POKE 2379+ I. ASC ("E") 

80 POKE 2380 ♦ I. ASC CM') 

90 POKE 2381 ♦ I. ASC ("I") 

100 POKE 2382 + I, ASC ("G") 

110 POKE 2383 + I, ASC ("R") 

120 POKE 2384 ♦ I. ASC ("A") 

130 POKE 2385 * I. ASC (P) 

140 POKE 2386 ♦ I. ASC CM' ) 

150 POKE 2387 + I. ASC C I") 

160 POKE 2388 + I. ASC <"C") 

170 POKE 2389 + I, ASC CS") 

180 POKE 2390 + I, ASC (" - ") 

190 POKE 2391 + I, ASCC'1 ') 

200 POKE 2392 + I, ASC (2) 

210 NEXT I 

220 GO TO 220 



The semigraphics-24 mode is 
similar to the two preceding 
modes except each line con- 
sists of twelve stripes. This 
mode uses 6144 bytes of screen 
memory. The equivalent sample 
program is: 

1 X- RND (-TIMER) 
10 POKE4HFFC3.0 
20 POKE &HFFC5.0 
30 FOR I = 1024 to 7167 
40 POKE I. RND (128) + 127 
50 NEXT I 
60 FOR I = to 352 STEP 32 
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New software system turns your TRS-80* 
computer into a complete office manager. 



Windham Software's Medical and Dental 
Office Systems economically manage 
financial and diagnostic office functions. 

If you're a physician or a dentist in a group of up to ten 
practitioners, you probably feel like you're spending 
more and more time on things other than caring for your 
patients— like bookkeeping, insurance forms, billing, 
collections, record-keeping. 

If you consider computerization as a good solution, 
you're on the right track. We at Windham Software have 
y our answer. We've developed two comprehensive soft- 
ware packages -the MOS-2 for medical offices, and the 
DOS-2 for dental offices — specifically for groups of up to 
ten practitioners. 

The MOS-2 and DOS-2 from Windham Software arc 
economical packages — priced at $499 — which include 
all the financial functions you've seen in other available 
office management systems. But there's more. 

The MOS-2 and DOS-2 can handle up to 15,000 
patient records — more than any other similar system. I p 
to 500 procedures and 500 diagnoses can be stored and 
retrieved on the MOS-2. And both systems provide a full 
statistical report on procedures performed, and number 
of patients seen per doctor each month. 

Designed specifically for groups of 
up to ten practitioners. 

Some software systems demand a change in your way of 
doing business, or radical programming alterations - 
expensive propositions. The Windham MOS-2 and DOS-2 
were developed by practitioners working with systems 
specialists. They have been using the MOS-2 and DOS 2 
on the Radio Shack' TRS-80 Model II to manage their 
practices for some time. The team also developed the 
Medical Office System being marketed bv Radio Shack 
for TRS-80 Models I/III (Cat. No. 26-1568). Their experi- 
ence and understanding have led to the development of 
a system ready to go to work in your office, as you now 
operate it. 

The most comprehensive software 
package for your TRS-80 Model II. 

The past few years have seen numerous microcompu- 
ters introduced to the market. We designed the MOS-2 
and DOS-2 to operate on the Radio Shack TRS-80 Model 
II microcomputer. The Model II is an economical hard- 
ware system, fast, adaptable, and with a particularlv high 
capacity. It is readily available and sen iced through 
Radio Shack dealers everywhere. The MOS-2 and DOS-2 
perform more functions and have greater storage capac- 
ity by far than any other medical or dental software 
package available for this hardware. 



IBM and Hewlett-Pai kard micro systems available soon. 

*TRS-80 and Radio Shark are registered trademarks of Tandy Corp. 

^ See List ol Advertisers on page 4 18 



What Windham Software Systems can do 
and how your practice can benefit. 

A wide range of financial and management functions 
are performed by the MOS-2 and DOS-2. Billing, account 
aging, payment recording — e\ en insurance forms — are 
all completed automatically by the system. Patient rec- 
ords can be quickly and easily sorted to pro\ ide meaning- 
ful practice profile information, heretofore nearly 
impossible to obtain. 

The MOS-2 and DOS-2 are so simple to operate — any 
or all of your current staff can easily be trained to work 
with a system. No need for computer language — the sys- 
tem communicates with simple Knglish questions and 
answers. Recording errors are virtually eliminated with 
the system's verification system. Since many office func- 
tions are now completed automatically, much time is 
saved which can be devoted to other important tasks in 
your office. Automatic account aging and statement 
generation also improves collections. Kach system is 
priced at $499 — a comprehensive, efficient, economical 
office management package that very quickly pays 
for itself. 

1\irn vour paperwork over to a specialist - the 
MOS-2 Medical Office System or the DOS-2 Dental Office 
System, from W indham Software. 



How to order. 
Orders mav be placed bv phone or bv mail. Call toll- 
free 800-424-4520, Operator 20; or in Washington. D.C. 
202-822-9090. Operator 20. For further information or a 
brochure, you may call 203-456-5530. Or fill out the 
attached coupon and mail it today! 

Windham Software, Inc. 



^312 



29/51 Ivanhill St.. W illimantie, CT 06226 

Please send me: □ MOS-2 Medical Office System 

□ DOS-2 Dental Office System 
I enclose: □ Check □ Money Order for $499. 
Please charge to my: □ MasterCard □ VISA □ American Express 



Acct. No. 
Exp. Date:. 



Inter. Bank No. (for Master Charge) 



(Signature for credit card use) 
(Total: $499 each. Connecticut residenLs, please add 7'/2% sales tax.) 



City /State/Zip 



Type of Practice 

□ I'm not ready to order, but please send me your brochure 
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70 POKE 3722 + I. 
80 POKE 3723 + I, 
90 POKE 3724 + I, 
100 POKE 3725 + I, 
110 POKE 3726+ I, 
120 POKE 3727 + I, 
130 POKE 3728 + I. 
140 POKE 3729+ I. 
150 POKE 3730+ I. 
160 POKE 3731 + I, 
170 POKE 3732 + I. 
180 POKE 3733 + I, 
190 POKE 3734 + I. 
200 POKE 3735 + I. 
210 POKE 3736+ I. 
220 NEXT I 
230 GO TO 230 



ASC <"S") 
ASC ("E'T 
ASC ("M") 
ASC m 
ASC ("G") 
ASC ("R") 
ASC ("A") 
ASC i"P") 
ASC ("H ") 
ASC ("I") 
ASC ("C") 
ASC ("S") 
ASC (" - ") 
ASC ( "2 ") 
ASC C'4") 



Level I Modifications 

If you have a Level I machine, 
your Basic provides you with 
512 bytes of screen memory. 
This is sufficient for only alpha- 
numerics, semigraphics-4, and 
semigraphics-6. If you want to 



use any of the other modes, 
steal a new screen memory from 
what is ordinarily used for your 
Basic program. 

If yours is a 4K Level I system, 
you only have 2343 bytes free 
upon power-up. If you put the 
statement 1 CLEAR 100, 3071, 
into your programs, you are lim- 
iting your string space to 100 
bytes. You are also limiting the 
Basic interpreter: It cannot use 
any memory beyond byte 3071, 
leaving 1024 bytes free in high 
memory. This modification al- 
lows you to use the graphics-1C 
and graphics-1R modes. All 
screen addresses in the sample 
programs would have to be 
translated by 2048 bytes since 
the sample programs assume 



that the screen memory starts at 
1024. You must also signal your 
computer that the new screen 
memory starts at 3072 (the start 
of screen memory must be a 
multiple of 512). Next divide 
3072 by 512 to get six. Convert 6 
to a 7 bit binary number. This re- 
sults in 0000110. You must then 
program the VDG by POKEing 
the addresses 65478 thru 65491, 
the even values for zeros and the 
odd values for ones. In this case, 
you would need the following 
additional statements: 

2 POKE 65478, 

3 POKE 64581, 

4 POKE 65483. 

5 POKE 65484. 

6 POKE 65486. 

7 POKE 65488. 

8 POKE 65490, 



Similarly, if you have a 16K Level 

I machine, you can create a 6144 

byte screen memory by adding 
the following statements: 

1 CLEAR 200. 10239 

2 POKE 65478, 

3 POKE 65480, 

4 POKE 65483, 

5 POKE 65484, 

6 POKE 65487, 

7 POKE 65488, 

8 POKE 65490, 

You must then also translate all 
references to screen memory by 
9116 bytes. 

Regardless of the size of your 
memory, you must also convert 
all hexadecimal numbers to dec- 
imal. For example, you must 
convert 10 POKE &HFF22, &H17 
to 10 POKE 65314, 23. ■ 



BLACKJACK PLAYERS 

A YEARS INCOME IN 4 MONTHS. 

■oik Strotagy luiort lor Itw rtovica ( aaport olika 
Uh our Tutors I quickly loom how to bacoma A WINNER 
lorn W0 hour Loot" ma sacrats of our luani Our Tutors 
will taoch you how to 

•* mt MMMOMt " 

•* PlAV IACM HAND " 

** NOTOCTIAMfO •• 

" M A aUUNtU •• 

•••' UrVAII •••• 

Our Tulori ora not gomoslH !►>«» or* wnout too 1 * to 
moka wmnort our ol you Tho outhors hovo spanl 7 yaort 
pkryino, 4 botng wmnors Now to con you with tha otd 
ot our 'u'o't Our Tutors or* oasad on ma strotogias 
davalopad by Lowranca Ravara Mora odvoncad strotagias 
ora ovoilobla coll 'or mlo Consultation it ovoilobla 
for you by moil or pnona From 13pm Horn MSI 

PKG 1 contains 10 Bosk Tutort lor Atlantic City, or Navada 
Ruth MS lor I6K Mod I or Mod lit coss *30 tor MK disk 
■laosa odd 12 00 lor shipping 

• 205 

MICRO BIAJAK SYSTEMS INC. 
2*00 NORTH ELLEN STREET 
FLAGSTAFF. ARIZONA M00I 
402 774-5723 or (403) 774-75*1 



\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 

prices and information. Dealer 
inquiries invited. COD. and 
charge cards accepted. 




VISA 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo, CA 
93401 In Cal. call 
(800) 592-5935 or 
(805) 543-1037 

^370 




EDUCATIONAL 
SOFTWARE 

For TRS-80* Color Computet. PUT. Apple II 
ELEMENTARY 
SCIENCE 
GEOGRAPHY 
ECONOMICS 
FOREIGN LANG. 
GRAMMAR 




MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
f ARM RECORDS 
COIN INVENTORY 



Write for FREE Catalogue: 
MICRO LIARNINCWARE *>* 

BOX 2 I 34. N. MANKATO MN S600I 
507-625 220S 



VISA I MASTER CHARGE ACCEPTED 

vVe p*y I S°» 'Oyolty lot IciuC*t<onal 

Hrogi^rm lived *».rh us 

Apple is a trademark of Apple Computer Co. 

TtVttt to) a .t^rwrtrO tt«o>m*rt ol TANOT < < >Rr 



'« M i m 



ol (oamwtor tut Macnsrw-t 



BIG CP/M* 

programs 

on TRS-80* 

MODELS 1 &3 



Pluggable Board mo soldenngi with 48-64K 
Operating System S/D Oensity 5V on Mod 3 
plus 8" on Mod 1 Memory expanded by 
overlaying ROM with RAM Date/clock w 'battery 

48KCP/M* (minimum system) $199 

64K CP/M' Memory A clock $490 

48K CP/M* (its expandable) $340 

COO. Visa or Mastercharge 



F.E.C. Ltd. 



P.O. Box 2368 Woburn. Ma 01888 0668 
(617) 944-5329 



■ 141 



•Tandy Corp 

"Digital Research 



CdmpuCquer 

COVER YOUR INVESTMENT 

•CUV B*C*#M N*wQ.ftf>TC» V* f •M*M«'r«oo' 4 Dul'i-oc 




N 



Over 200 covers, wrl'e for complete list. 



limsm nwiiN' 



Co-*-!,*" 



B(»ll»i»0ui«S'1viTt0 



BUSINESS & 
PLEASURE SOFTWARE 

FOR TRS-Stf'MOD. I & III 

INCOME TAX ESTIMATES 8K 
No tables to look up. Pro- 
gram does It all. $19.95 



MAIL LIST (disk) 32K 

INCOME/DEDUCTIONS & 
MILEAGE FILE 8K 

STOCK CHARTING 8K 

FINANCIAL STATEMENT 16K 



* 



"THE WIZARDS CITY" 



22.95 

10.95 
15.95 
14.95 

a*. 



A Fantasy Adventure Game 12.95 
Add $4 for disk except Mail List 
Add $1.50 shipping 

BAP$ Software 

6221 Richmond.Suite 220 
Houston.TX 77057 713/783-3433 

TRS-80 is a reg. trademark ol Tandy Corp 
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\J¥ If You've Written a 

\j-* Topnotch Program- 

We'd Like to Publish It! 
Programs needed for BUSINESS/ 
OFFICE Applications: 
WORD PROCESSING 
PAYROLL/TAX CALCULATION 
GENERAL LEDGER/ AR-AP 
ORDER ENTRY/INVENTORY 
Start collecting your royalty 
checks soon! Write for our free 
Programmer's Kit today. 
INSTANT SOFTWARE. INC. 
Submissions Dept. 
Peterborough, NH 03458 



JOE COMPUTER PRESENTS WORD GRINDER 

80,000 

WORDS! 



WORD GRINDER IS A DATA BASE OF OVER 
80.000 ENGLISH WORDS IN ALPHABETICAL 
ORDER WITH SPACES DELIMITING EACH 
WORD THE TRS-80t AND APPLE VERSIONS 
INCLUDE A BASIC EDITOR FOR DISPLAYING 
OR EDITING THE DATA FILES USING RAN 
DOM ACCESS WORD GRINDER IS AVAIl 
ABLE FOR TRS-80 MODEL I, II. OR III. APPLE. 
CP/M, RT-I l/HT-l I OR ANSI TAPES PRODUC- 
ED ON A PDP-I 1 PRICES START AT $89 95 
FOR MODEL I. Ill OR APPLE 5124.95 FOR 
MODEL II, CP/M. RT- 1 I OR ANSI TAPES 
MAKt CHECKS PAYABLE TO 
JOE COMPUTER - PHONE ORDERS AND 
INFORMATION (2131 992 -05' 4 SEND ?0 
JOE COMPUTER 2271 3 VENTURA BLVD 
SUITF F WOODLAND HILLS CA 91364 

• 193 
CALiF RESIDENTS ADD r> SALES TAX 
\TRS-80 IS A TRADEMARK OF TANDY CORP 



FLOPPY DISK DRIVES 

$ 275 

Famous make 40 Track drives, in grey 
textured enclosure with power supply. 
Fully tested and guaranteed. 

ADD $20 FOR 'FLIPPY." 

80 TRACK "FLIPPY" $395 

40/40 DOUBLE SIDED $395 

EPSON PRINTERS $CALL 

C. ITOH PRINTERS SCALL 

CORSAIR COMPUTER CORP. 
7952 Highway 80 West 
Fort Worth, TX 76116 

817-244-8051 "» 



Is Your 
micro your 
terminal too? 

Then you already know it's hard to 
find a single source of information 
about microcomputer telecommuni 
cations. The hardware, the software 
And what makes it tick. 

That's what the On -Line Computer 
Telephone Directory is all about! 
News, reviews, and more than 200 
listings of free -access microcomputer 
bulletin boards throughout North 
America. 

Subscribe today. I year. $995; 2 
years. $15.95 Get the most out of 
your microcomputer with The On- 
Line Computer telephone Directory 
(a quarterly publication). ^ 23fl 

The On-Line Computer 

Telephone Directory 

PQ Box 10005 

Kansas City MO 64111 
816-756-1847 




Check 

our book pages 

for 

the 

latest books 

about 

microcomputers. 




*& 



COMPACT 232-lS 
INTERCONNECT SET 

• Easy, full configuration of line signals 

• All 25 signals passed to headers 

• Designed for wire-wrap or lumpers 

• Additional header for break-in round cable 

• Made for permanent installation 

LOW COST -only $35.00 

JIS- Jumper Set 6.50 

SYZYGY™ " 286 

"the interface people 

256 W. San Bernardino Rd. 

Covina. CA 91723 • (213) 332-3320 



wore . . . 

SPECTACULAR 
OFFERS 



BASF bX^ WABASH 

r-rrti . 

MAXELL I OPUS 

We slock the complete line of BASF diskettes, 
reel-to-reel tapes, mag cards, disk packs and 
cartridges. We also carry MAXELL. OPUS and 
WABASH products. All are 100% certfied and 
fully guaranteed. 

B ox ot 10 diskettes: 51ft" 8* 

OPUSss/sd $20 $21 

BASF ss/sd 23 24 

WABASH ss/sd 23 24 

MAXELL TOO LOW TO QUOTE CALL 
5'.'4"-10 sector-now available 
Sectoring must be speci'ied 

5 V* ' or 8" Vinyl Storage Pages 10'$5 

LIBRARY CASES Mf 

8 Kas-sette'10 . . . S2.99 AT^K* 
5"'« ' MiniKassette,10 $2.49 aP^ 



HARDHOLE DISK PROTECTORS 
Reinforcing rings of tough mylar 
protect disk hole edge from 
damaoe 

5V«- 

Applicators $3 

Hardhole Rings (50) $6 



DISK DRIVE HEAD 
CLEANING KITS 

Prevent head crashes and 
ensure error-free operation. 

5V„"or8' $19.50 



& 



SFDC- 10 CASSETTES 1<V$7 

iAH cassettes include box ana labels i 



Get 8 cassettes. C-10 
Sonic, and Cassette/8 
Library-Album, as illustrated, 
for only $8 




SNAP-IT POWER CENTER 

Turns 1 outlet into 6 Wall 
mount or portable. Circuit 
breaker, lighted switch and 
UL approved. 

4"x3"x2" 



%J4 




W 



We also offer printer ntbons, printwheels, 
type elements, equipment covers, power con- 
soles, paper supplies, storage and filing equip- 
ment, furniture and many other accessories 
for word and data processing systems Write 
for our free catalog. 



•See List ol Advertisers on page 4 18 



VISA • MASTERCHARGE • MONEY 

ORDERS • CERTIFIED CHECK • FOR 

PERSONAL CHECKS ALLOW TWO WEEKS 

• COD REQUIRES A 10% DEPOSIT • CAL 

RES ADD 6% SALES TAX • MIN $2 

SHIPPING & HANDLING • MINIMUM 

ORDER $10 • SATISFACTION GUARANTEED 

OR FULL REFUND 



PRODUCTS 

8868 CLAIREMONT MESA BLVD 
SAN DIEGO. CALIFORNIA 92123 

Toll Free 800-854-1555 Order Only 

For Information or California Orders 

(714) 268 3537 
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TUTORIAL 



The end of the line for computer simulations. 



Queue Theory 



Alan Neibauer 

1 1 138 Hendrix Street 

Philadelphia, PA 19116 



Whenever I'm asked to 
defend my computer, I 
forget about games and adven- 
tures, household budget pro- 
grams and its lightning calcula- 
tions. I forget about the simple 
business applications, those 
that can replace a roomful of 
bookkeepers or file cabinets. 

My computer, I tell critics, 
simulates real life and solves 
real problems. In fact, it is only 
through the simulation of hu- 
man activities that you can 
judge the full value of a comput- 
er. My TRS-80 can look into the 
future, project probabilities of 
success or failure, and return 
with an answer in seconds. 

In computer time, a program- 
mer can represent years of 
human life and activity in just 



minutes. Almost any activity 
that involves repetitive steps or 
mathematical probabilities can 
be duplicated by the machine. 

The key to simulation is mea- 
suring time. Examine the loop 
structure in the following: 

10FORX = 1 to 500: NEXT X 

Each loop takes only 1/500th of 
a second. If each loop repre- 
sents just one minute of real 
time, we can simulate over eight 
hours of human life in each sec- 
ond of computer time. 

Queue Theory 

Of course, the accuracy of 
any simulation depends on the 
efficiency of the program itself 
and the programmer's ability to 
find the proper method of repre- 
senting the activity in computer 
language. 

One such method of analyz- 
ing human activity includes 
queue theory. A queue is simply 
a line— a serial movement of 



people, events or data through 
time. Since time is a measurable 
quantity, any activity that in- 
volves a queue is a prime candi- 
date for simulation. 

One of the best examples of 
using queue theory to simulate 
and solve a real problem ap- 
plies to cars backing up at a 
local gas station. 

At what point does it pay to 
hire that extra person or to open 
up that extra line? How can the 
business executive measure op- 
timal customer service, lower 
the average waiting time for ser- 
vice and employ the fewest at- 
tendants? 

By using a queue analysis, a 
programmer can focus his or her 
efforts on an easy-to-control, 
easy-to-visualize business day. 
If you plan wisely, you can simu- 
late a great number of variables 
in a short period of time. 

For instance, this simple 
simulation tells the gas station 
owner the number of cars his 
station can handle in a day, the 



actual time spent working on 
customers' cars, how many cars 
might pull away from the station 
should the lines become too 
long and what effect more than 
one attendant would have. 

The gasoline line is a simple 
queue. One attendant working 
one line is a single queue. Sev- 
eral attendants serving several 
lines are parallel queues. 

This simulation allows the 
station owner to "observe" 
various combinations of time, 
attendants and probabilities. It 
allows the operator to select the 
number of workers on duty, the 
probability of cars pulling in for 
service every minute, the maxi- 
mum number of cars in the 
queue and the length of time for 
which the station is observed. 

You can divide the program 
into distinct sections. Lines 10 
to 57 initialize some variables 
and give the user his instruc- 
tions. It is here that you can 
customize the queue for a par- 
ticular application or business. 
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TO GET YOURS. 
SEND CHECK OR MONEY ORDER TO 

P.M.W. 

7741 ALABAMA AVE «8 
CANOGA PARK CA 91304 
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We ship same day on money orders, 

4-6 weeks tor checks 

no COD's or charge cards 

•TRS-80 is a trademark ol Ihe Radio Shack Div ot 

Tandy Corp 

"Foreign residents add $1.50 postage and handling 
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BUSINESS USERS! 

SAVE TIME & MONEY BY 

CONTROLLING YOUR LONG 

DISTANCE TELEPHONE COSTS 



T* 3.t»ttl7C« TV -3.r»:» E ft T> 4.S3SV £ ft 



80 SPACE RAIDERS 
Starship Simulator 
and Combat Game 

This is the most realistic combat space simulation 
available lor any computer system anywhere 1 
Operator is placed in a rapidly moving ship looking 
out through a window into the depths of space 
Thousands of stars appear in the distance and pari 
toward the screen edges as the ship flashes past 
Forward and aft views available at any lime. Ac- 
curate celestial navigation using both XYZ and 
spherical Coordinates! Comment from Aug '81 80 
Microcomputing May be the ultimate Star Trek 
type game and, possibly the most complex micro 
computer game ever attempted ' Fast action 
graphics never stop 1 

I'Muitimately Realistic'!" 

$24 95 (MasterCard VISA, check, etc ) 
includes shipping COD OK 

Model 1 Level 2 16K 

Bosen Electronics 

445 E. 800 N. 

Spanish Fork, UT 84660 

(801)-798-9553 ^-e 



LONG DISTANCE ANALYZER will 

• Sort your billed calls 

• Identity each party called (Irom your known 
list) or print locations ot unrecognized 
numbers 

• Total the cost of calls to each number, to an 
numbers, and to all unrecognized numbers 

• Analyze calls and tolls by area code state 
and WATS zone 

• Pnnt an alphabetcal directory of recognized 
numbers 

• Save venfeation time 

• Create cost-consciousness 

• Facilitate cost accounting and client billing 

• Isolate personal calls and billing errors 

• Reveal inefficient use patterns 

• Help you perform WATS feasibility studies 

Requires Model I. II. or III TRS-80 - Level II. 16K, 
and 1 disk Printer is optional No connection to 
phone system 



Model 


CaaMtte 


TRSOOS* disk 


1 SOS 


$135 


II 


N/A 


$155 


III 


$95 


$135 



Brochure on. request 

Send model number and check or money order to 

• 281 

TRsaoaiKj ifteoos 

are trademarks 

Sarasota, Florida 33578 _>i Tandy Corporation 



Golden Braid Software 
RO, Box 2934 ^281 





call (617)934-0445 
for faster delivery 



GRAPHIC 

SOFTWARE 

FOR MICRO'S 



Graphic Software for Micro's - Tnisseit-ieacr^ng guide win show you how to 

write your own 2D and 3D graphics software Contains 61 programs for elementary to 
advanced graphics operations - translation rotation, scaling, clipping, stretching hidden 
Ime removal, shading, perspective, intersections, animation and more, Also includes 
practice problems for classroom use Program listings m BASIC fully explained and 
presented alongside theory Perfect for students, professionals & software developers 

One ol the most Outstanding books on computer software - Aian Grund University of 
Illinois Urbana 

A magnificent book, a maior contribution to the educational literature tor computers 
Philip Becker Christian Brothers College Memphis 
Book with ll»tlngt-$'9 95 Dltk-Si895* 

Engineering Applications of Micro's - a collection of techniques and 

programs for applying micro's and computer graphics to engineering - structural 
mechanics, kinematics, heat transfer systems analysis Fourier analysis, optimization 
CAD CAM, and more Theory with listings in BASIC fully documented Book with ll«tlng§- 
$28 50. D»»k-$19 95* 

Structural Analysis on Micro's - Theory and program listings m basic for 

matrm structural ana'ysis of 'igid frames Grapnical output shows displaced 
configuration. Member loads determined Use software as is or modify for your special 
applications Book with Hsllngs-$39 95 DUk-$24.95* 



Add $2 per item »n ppmg.$3UPS m US S3 SO Canada 
J"2 a" Europe * Central America $1« ei**wnere 



*Disks contain all programs listed In the books m BASIC 
They are available for the Apple II Plus 48K DOS3 3 and the 
TRS-80 32K Color Computer A tape lor Ihe Color 

Computer is also available 



*^25t 



KERN PUBLICATIONS • 190 Duck Hill Rd • PO BOX 1029M • Duxbury, MA 02332 



*■ See L ist ot Advertisers on page 4 18 
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Lines 140 to 320 generate the 
cars needing service, place the 
first cars at the pumps, and 
determine if any must be placed 
in the line or taken from it when 
cars pull out. 

Lines 400 to 555 print the 
report of the queue's activity. 

Lines 1000 to 1160 are the 
"Put" subroutine that places 
cars in a queue. Lines 2000 to 
2510 are the "Take" subroutine 
which withdraws cars from the 
queue. 

Lines 3000 to 3510 perform 
some bookkeeping service 
needed when more than one at- 
tendant is on duty. 

When the gas station opens 
for business, the attendant has 
to wait until the first car pulls in 
for service. It another car pulls in 
when car number one is being 
serviced, it either begins a line 
behind the first car or pulls over 
to another attendant. When all 
the pumps are busy, incoming 
cars are placed in line and re- 
main there until one of the cars 
being serviced has pulled away. 
This procedure continues until 
the gas station closes for busi- 
ness or, as in this program, the 
pre-determined number of min- 
utes elapses. 

In constructing a simulation 
of this type, the programmer 
must represent each section in 
computer language. Since the 
program operator can select 
any number of attendants, I 
used the WAIT (A) array to repre- 
sent the car being serviced with 
the subscript A being the atten- 
dant's number. The value of the 
array is the length of time the 
car needs service. 

If only one attendant is on 
duty, the subscript A would 
always be the value one, while 
the value of the WAIT (1) array 



would be some time from two to 
six minutes, an average time 
suggested by a mechanic friend 
of mine. 

Since the line itself holds a 
number of elements (cars), I se- 
lected another array, Q, to repre- 
sent the cars waiting in line. As 
the program adds a car to the 
tail of the line, it increments Q(T) 
until it reaches the maximum 
number of cars. At this time a 
full flag is set. Further cars are 
frustrated by the long waiting 
lines. 

When cars are taken from the 
queue, the program removes 
them from Q(H), the head of the 
line. This is also incremented. 
When Q(H) and Q(T) are the 
same, the empty flag is set and 
makes no attempt to withdraw 
another car from the line. 

While all this takes place the 
program increments its counter, 
which represents the passage 
of time. As time passes, the pro- 
gram checks to determine if a 
car's service time is now com- 
plete, and so draws a new car 
from the line or generates an ad- 
ditional car in the queue. 

Once I had represented each 
of the major elements in the 
simulation, I needed to create 
statistical probabilities and a 
bookkeeping system. In this 
case, I designed the program so 
the operator inputs the prob- 
ability with which cars approach 
the station each minute. 

Finally, I created a report seg- 
met that takes program data 
and prints it in some usable 
form. 
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Timing Loops 

In this simulation, the loop 
established in line 140 repre- 
sents the passage of time. 
Within each of these are delay 
loops (lines 145 and 175) that 
keep the queue on the screen 
long enough to observe. Line 
170 prints this display with addi- 
tional information being gen- 
erated and displayed by other 
sections of the program. 

Lines 180 and 190 generate 
the cars. Let's assume the op- 
erator wants a 10 percent prob- 
ability that each minute a car 
pulls in for service. The program 
generates a random number 
from 1 to 100. If that number 
falls between 1 and 90, the pro- 
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To increase the speed of the pro- 
gram, delete the following delay 
loops, display commands and 
Put-Take comments: 
145 
170 
175 
1120 
2501 

Delete print command in line 222 
The program will run through the 
desired "time period" and print 
the results on the screen. 

Table 1. Speed Increments 



gram acts as if no car has pulled 
in. That is, the program decre- 
ments the wait time and loops 
back to the start. 

However, in 10 percent of the 
cases (from randomly generated 
numbers 91 to 100), the program 
acts as if a car has pulled in. 
Line 210 assigns a service time 
to the car from two to six min- 
utes. (The C = C+ 1 is simply a 
counter.) 

From here you will notice sev- 
eral loops: 

For x = 1 to A 

IFWAIT(X)... 

These loops examine the con- 
dition of the pumps to see if they 
are busy (<>0) or empty ( = 0) 
and can either send the car arriv- 
ing to the Put subroutine or with- 
draw a car from the line in the 
Take subroutine. 

Let's follow a car pulling into 
the station. The car is assigned 
a service time. Since the pro- 
gram has just started, line 222 
finds that WAIT(1) equals and 
assigns WAIT(1) the value of the 
service time, say five minutes. 

The program prints a report 
on the screen and performs 
some counting functions. It 



then "decides" if there are more 
attendants. If there are, it jumps 
to line 3000 which decrements 
the service time and loops 
around for the second minute of 
the counter. 

If only one attendant is on 
duty, the program loops back to 
find another car. With arrival of 
the second car, WAIT(1) is not 
so the program jumps to the Put 
subroutine and places the newly 
arrived car in line. Its service 
time becomes Q(1), the tail of 
the line increments to position 2 
and a flag is set stating that the 
line is not empty (E = 0). 

From there, the service time 
of each car is reduced by one 
minute, and if any lines are now 
empty the program either takes 
a car from the line (GOTO 2000) 
or loops around to generate a 
new car. 

Back at line 222, if all the at- 
tendants are busy, the program 
simply places the car in line and 
continues from that point. 

Subroutines 

The Put subroutine (line 1000) 
places cars in line (the Q array) 
and takes care of the program's 
bookkeeping. Line 1010 exam- 



Variable 


Reference Lines 


A 


54 220 222 260 280 3000 3020 


C 


200 420 520 530 


E 


30 281 1070 2010 2080 


F 


1010 1100 2050 


G 


222 440 550 2040 


H 


30 1100 2060 2070 2080 


J 


3020 3030 3040 3050 


K 


470 500 


L 


470 500 520 530 540 


M 


140 320 


MAX 


55 170 460 1030 1090 2070 


Ml 


56 140 


N 


175 180 190 


P 


170 


PER 


57 190 


Q<A) 


55 170 460 470 1020 1040 1060 2020 2030 


R 


222 430 520 530 540 550 2040 


T 


30 1080 10901100 2080 


TAKE 


283 2020 2040 2501 


TIME 


210 222 1020 1120 


TK 


540 1040 1060 


WAIT(A) 


54 222 262 264 282 283 1060 3010 3030 3040 


X 


145 220 224 260 266 280 284 460 390 


X1 


1030 1050 


Y 


3000 3500 


260 


190 


284 


282 


320 


222 281 3060 3510 


490 


460 


540 


520 


1000 


250 


1160 


1010 


2000 


282 


2510 


2010 


3000 


222 


3500 


3010 


Table 2. Variable Cross Reference 



ines the full flag. If the line is full 
(FOO), the program skips 
around the subroutine and the 
car pulls away, frustrated by the 
long lines. It the line is not full, 
however, line 1020 places the 
value of its time into the tail 
position of the Q array, Q(T). 

For the first car in queue, the 
tail position is one. This is incre- 
mented as each car joins the 
queue. 

Lines 1030 to 1060 compile a 
total of waiting time, reported 
back at the end of the program. 
Waiting time for each car is the 
total of the service time needed 
by all cars in queue ahead of it, 
plus whatever time remains for 
the car currently being serviced. 

Line 1070 sets the empty flag 
at false. The next three lines in- 
crement the tail of the line and 
determine if the final position in 
line has been reached. 

Say that a car has just taken 
the last position in queue. Thus, 
T is greater than MAX. In this 
case, the line rotates. The pro- 
gram increments the tail around 
to the first position. 

We compare the new tail posi- 
tion with the head position. If 
they are the same, the line is full 
and the full flag is set. Line 1120 
reports the action. This is dis- 
played next to the queue posi- 
tions and values at the top of the 
screen. 

The Take subroutine works in 
the same manner. It checks the 
empty flag in line 2010 and if a 
car is in line it assigns its service 



time to the variable TAKE. Line 
2030 now clears that position. 

Lines 2060 to 2080 increment 
the head of the line and test to 
see if the head must wrap 
around to the first position or if 
the line is now empty. 

Finally, a report of the action 
is printed and the program re- 
turns to line 283 where TAKE is 
placed in the WAIT array, and 
the simulation continues. 

Expanding Time 

If you run this program as 
written, 100 minutes of real time 
is represented by about three 
minutes of computer time. De- 
lay loops require much of this 
time to print the line activity to 
the screen. If you let the comput- 
er try various combinations and 
print the results, you can greatly 
reduce the time the program re- 
quires. 

With the changes cited in 
Table 1, the number of working 
minutes of service time can be 
extended to cover days or even 
weeks. For busy stations, the 
timing loops can represent 
periods shorter than one 
minute; you can decrement ser- 
vice time in tenths or halves of 
minutes. 

For stations that want to ex- 
amine multiple lines, you can 
convert the WAIT and Q arrays 
into a two-dimensional array 
representing several parallel 
queues. 

While there are other meth- 
ods of writing computer enact- 



Variable 


Comment 


A 


Number of attendants 


C 


Counter tor cars generated 


E 


Line-empty Hag 


F 


Line-full flag 


Q 


Total-of-service time 


H 


Head of-llne pointer 


J 


Loop counter 


K 


Time left in line counter 


L 


Number of cars left in line counter 


M 


Loop for minutes of program 


MAX 


Maximum number of cars In the line 


Ml 


Length of program time 


N 


Counter, random generator 


P 


Loop counter 


PER 


Percentage probability of cars pulling in each minute 


CXA) 


Array for the line Itself 


R 


Number-of-cars-servlced counter 


T 


Tall-of-llne pointer 


TAKE 


Withdraws value from Take subroutine 


TIME 


Time of service placed In wait array 


TK 


Total-waHlng-tlme counter 


WAIT(A) 


Attendant's array of car receiving service 


X.X1.Y 


Loop counters 




Table 3. Variable Identifier 



COLOR COMPUTER SOFTWARE 



EDITOR ASSEMBLER 
DEBUGGER 



$ 6 



95 



CCEAD: This 8K Basic Program supports cassette !■ es. has full cursor con- 
tro.. line nsert on ■ deletion, anc much more Two pass assembler supports tun 
6809 instruction set & aodress'ng modes, lists to screen or printer Debugger 
a'lows memory examine' modify, program execution At ttrs pnee otter eo on 
an "as-is" bass, however, we've used this extensively ir house ana believe 
you'll be delighted It not return within 2 weeks tor a fur. refund You get fully 
commented Basic source & complete instructions Requires Lxt Basic & 
16K CASSFTTF $6 95 

DELUXE TERMINAL PROGRAM 

COLORCOM/E: This terminal program has everyth ng' PLUS it's n a con 
venient plug-in cartrdge LOOK at these 'eatures 



• ONLINt and offline scrolling 

• Selectable baud rate & parity 

• Full or half duplex 

• Write to printer or cassette 

• Supports ANY serial printer 



• Automatic or manua capture 

• Selectable Capture characters 

• Lxchange Basic programs 

• Worrj mode means no spl t words 

• And much, much more 



Use with CompuServe The Source, etc Talk to other Color Computers Works 
with any model Color Computer & full duplex RS232 modem 
CARTRIDGE: S49 95 

SECURITY: PrivateLme lurns the color Computer into a secure communi- 
cations terminal. Advanced encryption algorithm has billions o' combina- 
tions lalk to any similarly equipped Color Computer in absolute security 
Requires lull duplex modem CAR I HIDGF $99 00 

CUSTOM CARTRIDGES: Put YOUR Basic program nto a convenient 
ROM Cartridge It's easy 1 Runs instantly at power-up. 'rees up memory. Use 
for AD displays, schools, etc Call or write for into FROM $41 65 



PO Box 10234 
Austin. Texas 78766 
(5121837 4665 



Send check money order c Visa MC NumOt" 
include $1 'or postage and handling Visa MC Phone ror <ast service 




StatPac" IF YOUR TIME IS MONEY 




AND YOU NEED DETAILED STATISTICAL 
ANALYSIS . . . 



then you need StatPac 

Because with StatPac you won t need to sit at the com- 
puter for hours typing in each task. StatPac is uniquely 
designed to perform batch processing: You can specify 
several hundred tasks to be processed in a batch, then 
leave the computer alone to do the work. 

Your valuable time is free to do other work. 

StatPac is available for Model I (requires NEWDOS) or 
Model III. 2 disk drives. 48K RAM and a lineprinter Also 
available for other operating systems. 

StatPac handles all phases of research analysis including 
frequency analysis, descriptive statistics, crosstabs & chi- 
square. t-test. correlation & linear regression, analysis of 
variance, multiple linear regression and management 
reports. 

Buy the complete 3-disk package for $285. The extensive 
user's manual is included or may be purchased separately 
for $30 (the cost of the manual may be applied to the cost ot 
the disks at a later date). MasterCard and VISA accepted 
Entire package includes over 30 integrated programs 

For more information and a free 16 page brochure write 
or call: 

612/866-9022 

Walonick Associates ^363 
5624 Girard Ave. So. 
Minneapolis, MN 55419 



• Sw List ot Advertisers on page 418 
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SOFTWARE FOR YOL'R 16K TRS80 COIjOR 
MODEL I, III, ATARI 400 800, APPLE II 



the 

programmer's 

program 





appfetrec" jiMACATAHJ 



Do you know ail the innmarit 
»av* of ming Ra<ic com- 
mands? Thr \taf( at trie Pro 
■Erummrr *. Imtitutr have tp?n 
ft months dc-Micning a set of 

proflrun ripl 

-the 



thine t 

much I 



anuak omit And 



The Programmer'* Program 
It-ad*. v<mj \try h\ \trp through 
the fundamental* of program 
ming vinir i-ompulrr. Then \«« 
explore the liner points 
multiple loci|». I'ueufs. stark*, 
game programming. sort*., 
irees, noMMB logic, and 
mt-mor\ *aver* All these 
meth<»d* makp \iMir program 
ming t*\k\ easier ana more 
efficient 

Difficult (and ver\ nvful; 
program* are built before \oiir 
\er\ r\ev and designed w \tnj 
learn at vtnir own speed 1 Thr 
Programmer' i Program b a 
must for ever* owner of a 
mkrocomputcr i)40) 



On cassette or diskette*, our magazines are 
designed explicit!) for your computer Included 
e\er> month are 6- 10 read> to load program* 
ranging from games, home entertainment, and 
personal finance, to more of our unique 
"teaching" programs We will alto keep vou 
informed^ of the latest hardware, software, and 
publications compatible with your 
microcomputer 

Our Orcrmbrr mue will include 
1 CHECKERS!! 

2. Algebra Test 

3. Ciincrnlration Card Camr with graphics. 
4 Comptitrrizrd Telephone Directory. 

5. Christmas (Carols played hv vcmr computer! 

fi Test vour Trivia knowledge 

7 Two more of our special "Teaching" Programs! 

ft and as alwavi you get our 1001 commitmrnt 

li> eicrllence and service from the 
Programmer's Institute (Hack issues are available! 
Later issues will include backgammon, home 
budget, forecasting, stock market, and mans 
more. The price per subscription to TRC. AP- 
PI.ETBEE. or MAC ATARI is $*> |»r sear. 130 
per ' t year, and $10 for a trial issue 
Don't mitt out on our December issue. 



H sou order nou . sou will receive our complete home accounting sssleru (Reg. $39.95) 
ABSOLUTELY KRfcE with anv $5(1. (XI order. Purchase both above packages and vonr i 
cost is i.nK $7.5 (Ml. This is our Christmas special, so don't wait! ORDER TODAY!! 



fi> 



THE PROGRAMMERS INSTITUTE 



^241 



A Futiirchouse Coinpans 

PO Box J191 

Chapel Hill. \ C 27514 

(919) 488-2196 

MC & Visa Welcome 

Programmer's Program 
T Computer Model 



address 

city/st 

Year Subvriptio 
Cassette 



both 
Diskette 



Trial Is 



THC and the programmer s program are trademarks of Kutu rehouse 

•All software available on cassette lor the THS-K0 Model I. Color Extend*-*) Basic. Atari 41X1' MX) 

On diskette for the Model III. Apple II {add $5.00 for each diskette order) 



ACTION GAMES 

The fastest growing producer of computer garnet for 
your MXX hat the products you have waited fori! 



NEW BEBSEBK 

AN ARCADE GAME FOR THE COLOR COMPUTER 

Fast paceO action • Super Hi Res Graphics 
Dynamite sound e'tects • One or two players • Runs in 16K ot memory 

This game will astonish you with its Detail and Quality 
I! sets a standard tor others to follow 



— ADVENTURES — 

Calixto island •ahc Slack Sanctum 

Highly tcdaknod by rtrVNtwcrs • Challenging situations 

Fart, •fflctont machine language • Runs in 16K of memory 

Save game in progress 



Adventures on 5'/. TSC FLEX disc 
(specify 6800 or 6809) 
Both adventures on single disc 
Adventures for color computer 
Color Berserk for color computer 

Shipped prepaid in continental U S Caiilo 



ea S24 95 

S39.95 

ea $19 95 

ea $24 95 



> i dents pieas** a<l<J 6 8 b ta» 



- MORE COMING SOON - 



3WR. 



MARK DATA PRODUCTS 



?38C2 Barqoi'ia Mission Vieio CA 9269" 
CM4 768 15S1 Evenmqs 

'HS to <S » "UADfMARK :>' t«r»D' C0H>- 



ments of real situations, queue 
programs take advantage of the 
computer's natural logic— its 
program counter, a queue itself 
—the computer's speed and its 
ability to nest loops so that 
parallel operations can be repre- 
sented simultaneously. 



As with any simulation, don't 
run the program only once and 
draw your conclusions. Enjoy 
the luxury of the computer's 
speed. Remember, even if you 
wait hours for reasonable con- 
clusions, the hours can repre- 
sent years of trial-and-error.B 



1 CLS 

5 DEFINT F,T,H,«,X,P,N,Y,J 
IB REM GAS LIVE SIMULATION 

2 REM ALAN NT I BAUER FOR 60 MICROCOMPUTING 
38 E-1:T-1:H-1 

3b RANSOM 

40 PKINT 022, "GAS LINE SIMULATION" 

42 PRINT 

45 PRINT "YOU OWN A GAS STATION. EVERY MINUTE THERE IS A CERTAIN 

CHANCE THAT A CAR WILL PULI. IN FOR SERVICE OF FROM 2 TO 6 HIN 
UTES . " 
48 PRINT "HOW MANY ATTENDANTS DO YOU NEED TO HANDLE THE LINE? OR 

WILL CAMS POLL AWAY BECAUSE THE LINE GETS TOO LONG? HOW MANY" i 
58 PRINT " MINUTES DO YOU* ATTENDANTS ACTUALLY WORK? 
52 PRINTrFRINT "OBSERVE THE ACTION OP YOUR GAS LINE, EVALUATE TH 
E EFFECTIVENESS OF A NUMBER OF ATTENDANTS AND LINE LENGTH. FIRST 
.ANSWER A FEW QUESTIONS TO CUSTOMIZE THIS PROGRAM F03 YOU — " 

54 INPUT "HOW MANY A1T3JDANT DO YOU WANT":A:DIM WAIT(A+10) 

55 CS: INPUT ■KAXIHl'M NUMBER OF CASS IN LINE" ; MAX: DIR Q(MAX) 

56 CI.S: INPUT "I OF MINUTES TO OBSERVE THE LINE'jMI 

57 '. L-: INPUT "PS-sCENT PROBABILITY OF A CAR EACH MINUTE* ; PER 
14P KUK M-l TO HI 

145 FOR X>1 TO 508: NEXT X: CLS 

178 FOR P-l TO MAX: PRINT Q(P)|" ",:NEXT P 

".7 5 FOR N»l TO 580: NEXT 

138 N'RND(l**8i 

198 IF NvlSB-PER GOTO 268 

298 C-Ol 

218 TIMS-iRNDC) +i 

228 FOR X-] TO A 

222 IF WA1T(X)-B THEN WAIT(X) -TIME : PRINT«525 , "LINE EMPTY, TOOK CA 

R NEEDING ";TIME:" H INUTES" :C-G*TIME : P--R* 1 : IFA>1 GOTO 3888 ELSE3 

20 

224 NFXT X 

258 COSI'B 1889 

26C I OR X«l TO A 

262 WAITIX)»WAIT(X)-1 

264 IF WAIT(X)<8 THEN WAIT(X)<=0 

266 NEXT X 

2ttB FOR X-j TO A 

281 IF BOB GOTO 328 

282 IF WAIT(X)»8 GOSUB2808 ELSE 284 

283 WAIT(X)=TAKE 

284 NEXT X 
328 NEXT M 

399 FOR Xl-1 TO 5B8.-NEXT XI 

4B8 CLS 

418 PRINT " REPORT" 

428 PRINT 'TOTAL CARS GENERATED WERE *;C 

438 PRINT "TOTAL CARS SERVICES WERE *;R 

448 PRINT "TOTAL TIME SPENT SERVICING CARS WAS ";C;" MINUTES." 

468 FOR X-l TO MAX: IF Q(X)-E GOTO 49B 

47B L«L*1 : K-K+QIX) 

49B NEXT X 

588 PRINT:PRINT "YOU HAD ")L;" CAKS LEFT IN LINE NEEDING A TOTAL 

OF ";K;" MINUTES OF SERVICE" 
52B IF C-(R+L)=-8 GOTO 548 

538 PRINT "OF THE CARS GENERATED"; C-(R+L); " DID NOT GET IN [.IN 
E BECAUSE IT WAS TOO LONG" 

548 PRINT "YOUR AVERAGE WAITING TIME WAS "; TX/1R+L);" MINUTES" 
558 PRINT "YOUR AVERAGE SERVICE TIME WAS ";G/R;" MINUTES" 
555 END 
999 nTOP 

1808 REM PUT SUBROUTINE ALSO TOTALS WAITING TIME 
1818 IF F>>8 GOTO 1160 
1828 Q(T)-TIME 
1838 FOR Xl=-i TO MAX 
1848 TK-TK*Q(X1) 
1858 NEXT XI 
1868 TK*TK-Q(T)+WAIT(X) 
1878 K-0 
1888 T-T+l 

189B IF T>MAX THEN T»l 
1188 IF T-H THEN F-l ELSE F-8 

1128 PRINT "PUT CAR IN LINE NEEDING ";TIME;" MINUTES" 
1168 RETURN 
1999 STOP 

2888 REM TAKE SUBROUTINE 
2818 IF E=l GOTO 2518 
2828 TAKE-Q(H) 
2838 Q(H)-8 
2848 G-G*TAKE:R-n»l 
2850 F-8 
2868 H-H+l 

2878 IF H>MAX THEN H-l 
2888 IF T-H THEN E-l 

2581 PKINT "TOOK CAR NEEDING ".-TAKE;" MINUTES" 
2518 RETURN 
2999 END 

3080 FOR Y=l TO A 
3810 IF WAIT(Y)<>8 GOTO 3588 
3020 FOR J-l TO A 
3030 WAIT(J)-WAIT(J)-1 
3048 IF WAIT(J1<8 THEN WAIT(J)'B 
3050 NEXT J 
3969 GOTO 320 
3500 NEXT Y 
3510 GOTO 32B 



Program Listing 
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STARK SOFTWARE 

introduces 
TIME-TABLE 

A NEW CONCEPT IN 
MICRO-COMPUTER SOFTWARE 



T1HB-TABU is a tested, interactive time manage- 
ment program developed lor the TRS-80 Models l/Hi 
by a lea ding designer of decision aiding software 

THH-TArJL. provides the busy manager pro- 
fessional, project planner, personal user, among others . 
with a versatile tool tor maintaining files of time-related 
activities TIM-TAMA includes features tradition 
ally associated with computer mainframes, such as 

• Simplistic user customization - requires no 
programming 

• Conversant menu-driven displays & controls 

• Extensive data entry, edit & updating capabilities 

• Convenient data review, search & documenting 
controls 

• Automatic on-line time sorting 

• Extensive error trapping & user prompting 
functions 

• Efficient data storage A file management oper- 
ations 

TMB-TABU versatility can be illustrated by the 
following list of "designed-for" applications 

• Business & personal calendar maintenance 

• Protect planning & control 

• Construction planning & control 

• Transportation scheduling 

• Produclion planning & control 

• Professional appointments management 
TlWTfttf M was exhaustively tested and certi- 
fied and includes a comprehensive user's manual 

Minimum system requirements include TRS-80 
Model l/lll. Level II or Model III ROM. 3?K RAM. 
cassette recorder, and an optional printer 

TMM-TABta is available on a premium program 
cassette complete with users manual fo' an intro- 
ductory price Of t29.96.* 

To place an order, ma ii to the below add ress or use 
the order phone 
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STARK SOFTWAM 

P.O. BOX 695 
RICHBORO. PA 18954 



ORDER PHONE: (21 5) 493-51 1 1 

Orders can be placed using bank check, money 
order, personal check (Allow 2 wks to clear) or 
VC.O.D. Include $1 .50 Postage & Handling. 

•PA Residents include 6% Sales Tax 
•TRS-80 is a trademarK of Tandy Corp 
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TRS-80* Model III 

T«pe> Operating System 



H |ou canl »nort • 006 r* *•" *■*■ TO u r a af to B» nut 
bwl wwnf. a TOST Th** » imjM. you can now how 

a Tap* 0M»»«im ay —* •» only sasi 
jmt cumo — » tmmttamt »»aaar« and ico ■ *a>a una* po«- 

artal f p a aj a. aajpaw and iMarai al ii a at your diract com 
■nana o> «ra» a I Mm laaau aaa can vary aaaay oa aou- 
Kfcjd and ajaaajdajpj 10 your a n Pa 

• natal Hma olcoh control 

• Memory oonunii 

o Spoolol m o r a>phloaj ehar. 

• Qraphlaa aynthaala 

• Lin* ranumbar folloorotoJ 

• BASIC program appandlng 

• Sound fanarator 

• HollODlo CSAVB » CLOADT 

• Paiot data aon 

• I/O routing 

• Many mora unique) old* 
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UNCOMMON 



SCREEN ARTIST — turn your screen into 3 drawing 
board Create complex screens with simple com 
mands Store screens as BASIC statements on tape 
or disk n any of 4 formats including ultra last 
packed strings or la-ies Edit the screens you create 
easily Makes ultra tasi graphics a snap Merge 
completed screens •>ith your program A powerful 
tool, great tor schools Specify Tape. f>sk. Model I 
III 11 7.00 

DISC OME TEH — disk drive tachometer tor ihe 
Model I Real time analog display ol rotation speed 
of your drives Save S in diagnosing disk problems 
and making simple motor adjustments 11 4.00 

DUPLICATOR — copy virtually any tape with ease 
BASIC, system, or data Includes verify feature 
Model I only M.00 

SUBPACKER — pack machine code in BASIC lines 
or strings Execute them easily from BASC Simple 
to use: stunning results Specify Model I. Ill: 
Tape/Disk J9.00 

LANGUAGE ARTS - reading fluency, cloze 
reading comprehension drills, tachistoscope In- 
cludes 4 programs A complete program for the 
educator or concerned parent Specify Model I III. 

Tape Disk SCO. 00 

MIGHTY WORD CANNON — educational drill with a 
touch of 'un Create quizzes on any subject Word 
cannon does the rest Specify Tape Disk S9.00 

Tape versions requve 16K. Level II 
Disk versions itqu'e 32K. 1 drive 

MONEY BACK GUARANTEE 
SEN0 CHECK'M.O. TO: 

smallsystem 



design 



^397 

Box 268, New Hartford, CT 06057 
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PRODUCTS FOR YOUR RADIO SHACK 



** 
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MICROTEXT COMMUNICATIONS VIA YOUR MODEM! 



Now you can use your printer with your modem! Your computer can be an 
intelligent printing terminal. Talk to timeshare services or to other personal 
computers; print simultaneously through a second printer port: and re-display 
text stored in memory. Download text to Basic programs, dump to a cassette 
tape, or printer, or both. Microtext can be used with any printer or no printer at 
all. It features user -configurable duplex/parity for special applications, and can 
send any ASCII character. You'll find many uses for this general purpose 
module! Available in ROM PACK, ready-to-use. for $59.95. 



SOFTWARE DEVELOPMENT SYSTEM 

The Micro Works Software Development System (SDS80C) is a complete 6809 
editor, assembler and monitor package contained in one Color Computer program 
pack! Vastly superior to RAM-based assemblers /editors, the SDS80C is non- 
volatile, meaning that if your application program bombs, it can't destroy your 
editor /assembler. Plus it leaves almost all of 16K or 32K RAM free for your 
program. Since all three programs, editor, assembler and monitor are co-resident, 
we eliminate tedious program loading when going back and forth from editing to 
assembly and debugging! 

The powerful screen-oriented Editor features finds, changes, moves, copys and 
much more. All keys have convenient auto repeat (typamatic), and since no line 
numbers are required, the full width of the screen may be used to generate well 
commented code. 

The Assembler features af of the following: complete 6809 instruction set; 
complete 6800 set supported for cross-assembly: conditional assembly; local 
labels: assembly to cassette tape or to rnemory; listing to screen or printer; and 
mnemonic error codes instead of numbers. 

The versatile ABUG monitor is a compact version of CBUG. tailored for debugging 
programs generated by the Assembler and Editor. It features examine/ change of 
memory or registers, cassette load and save, breakpoints and more. SDS80C 
Pries: $89.95 



THI 
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Star Blaster — Blast your way through an asteroid field in this action-packed 
Hi-Res graphics game! Available in ROMPACK; requires 16K. Price: $39.95 
Pac Attack — Try your hand at this challenging game by Computerware. with 
fantastic graphics, sound and action! Cassette requires 16K. Price: $24.95 
Berserk — Have fun zapping robots with this Hi-Res game by Mark Data 
Products. Cassette requires 16K. Price: $24.95 

Adventure — Black Sanctum and Calixto Island by Mark Oata Products. Each 
cassette requires 16K. Price: $19.95 each. 



ROMLESS PAK I — is an empty program pack capable of holding two 2716 or 

2732 EPROMs. allowing you up to 8 K of program! The PC board inside comes 

with sockets installed, ready to go with the addition of your custom EPROMs. 

Price: $24.95 

2-PASS DISASSEMBLER — with documentation package. 16K; cassette. 80C 

Disassembler Price: $49.95 

CBU6 — Machine language monitor. CBUG Cassette Price: $29.95 

CBU6 ON 2716 EPR0M: Can plug into Romless Pak I CBUG ROM Price: 

$39.95 

PARALLEL PRINTER INTERFACE — serial to parallel converter allows use of all 

standard parallel printers. PI80C Price: $69.95 

Assembly Language Programming, by Lance Leventhal. Price: $16.95 

MEMORY UPGRADE KITS: 4-16K Kit Price $39.95. 16-32K (requires soldering 

experience) Price: $39.95 

PARTS A SERVICES: SAMs. 6809Es. RAMs. PI As Call for prices. 



mnn^r-x^ /La«r~ WE SHIP FROM STOCK! 

ZJ5\D©IS® " ,09 *»£? GOODSTUFF! Master Ch.rgeWiM.nd COD Accepted 

W©{f&^ P.O. BOX 1110 DEL MAR, CA 92014 714-942-2400 



s See List ol Advertisers on page 418 
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APPLICATION 



LOAD 80 



An old saw says organization can get you out of the woods. 



The Logger 



Russ Kelly 

103 Ridgesprings 

Taylors, SC 29687 



There's nothing like a few lost 
programs and data files to 
rearrange your priorities! When I 
purchased my TRS-80 in 
December 1979, I was deter- 
mined that my first software 
effort would be a tape logging 
program. 

But a year of "urgent" re- 
quirements passed, before the 
confusion of 200 programs and 
data files pushed my tape log to 
the top of my priorities list. 

Tracks 250 Programs 

Log It (Program Listing 1) 
keeps track of up to 250 pro- 
grams or data files on a Model I 
Level II in 16K. It eliminates old 
files and programs and has 
reduced the number of files I 
keep track of by 25 percent. It 
tracks cassettes as well as 
Stringy Floppy tapes. 

To maximize its record han- 
dling (250), I wrote Log It with com- 
pressed multiple statement lines 
and simple prompting. Input val- 
idations are also minimal. For ex- 
ample, on date entries the pro- 



gram checks that the date falls 
between January 1, 1979 and 
December 31, 1982, but the test 
can't detect a 13th month or a 
32nd day. 

I used very few report headings. 

The program maintains a data 
file, produces a report of pro- 
grams and files (each in 
alphabetical order) and prints a 
media report of all programs 
and data files on each tape or 
Stringy Floppy. It reports in se- 
qunce by medium number and 
file number or location (see 
Sample Listings 1-3. It also pro- 
duces a list of all deleted 
records. 

After each report, the pro- 
gram automatically advances to 
the head-of-form. 

The program has blank print 
lines, printing a space rather 
than a control character, 
because they are not always 
compatible between printers. 

A machine language version 
of Shell/Metzner actually sorts 
the data. This version, devel- 
oped by Allan Emert of Odessa, 
TX, sorts over 200 34-byte 
records in seconds. 

If the volume of data exceeds 
200 records, the TRS-80 uses a 
considerable amount of string 



POS 


LEN 


CONTENTS 


1 


1 


Record Type (A = Program. B = Data file) 


2-11 


10 


Program or File Name (Special names = Avail. @New, Foil) 


12-18 


7 


Dale (YYMMDOS). The date is entered and displayed as 
MMDDYY, and stored as YYMMDD In addition, a sequence # 

(1-9) is appended to indicate the chronological sequence dur- 
ing the day. 


19-25 


7 


Media Number: Beginning letter "E" indicates an Exatron 
Stringy Floppy: All others are considered tapes 


26-27 


2 


File Number: Applicable only on Stringy Floppies. 


28-33 


6 


File Location: Applicable only for tapes. First three digits 
denote start location, last three digits represent end location. 


34 


1 


File Code: Applicable only for tapes 

Table 1. Record Format. 



space. When this happens, the 
computer likes to pause occa- 
sionally to rearrange the strings. 
This doesn't happen too often 
and it lasts only a few seconds. 



The Key Box 

Model I 
Level II Basic 
16KRAM 



15-40 


Housekeeping 


50-110 


Read Input 


1000-1040 


Update Function Controller 


2000-2050 


Print Programs & File List 


3000-3050 


Print the Media List 


4000-4110 


Write Output File(s) 


5000-5110 


Record Update 


6000-6120 


Record Input Routine 


7500 


Date Format Conversion for Printing 


7600-7620 


Tape Input & Unblock 


7700-7710 


Tape Block & Output 


7800-7810 


Tape Close Routine 


8000-8040 


Machine Language Shell/Metzner Sort (Allan Emert) 


12030-12200 


Load Machine Language Sort (Allan Emert) 




7ao/e 2. Program Structure. 



Variable 


Comment 


A 


Integer 


Used by Sort. 


AS 


String 


DIM 250, record string area. 


AA 


Integer 


Update S additions field length indicator. 


AD 


Integer 


Count of deleted records. 


0$ 


String 


Date, any format, used in report headings. 


I 


integer 


For. . Next counter, general function indicator, print tab 
values 


11 


Integer 


For. . Next counter in update. 


IR 


Integer 


Number of records. 


IX 


Integer 


Current record indicator during update and additions. 


N 


Integer 


Used by Sort. 


OS 


String 


Current record program/file name 


T1% 


integer 


Number of input tape logical records. 


T2% 


Integer 


Number of output tape logical records. 


TBS 


String 


Tape Input/Output physical record area. 


TL% 


Integer 


Logical record length for tape I/O. 


TR$ 


String 


Tape I/O logical record area. 


X 


Integer 


DIM 2. used by Sort. 


z 


String 


File input type (S, T, or other), also update function (A. C. D, or 
DONE). 


ZA 


String 


Update general work area. 


ZC 


String 


Current record file code. 


ZF 


String 


Current record file number. 


ZL 


String 


Current record file location. 


ZM 


String 


Update media number 


ZN 


String 


Current record program/file name. 


zs 


String 


Update file number or start location. 


ZT 


String 


Current record type (A, B, PROG, or FILE), also update 
general work area. 


ZZ 


String 


Record Input & output area, general work area, output tape 
indicator 

Table 3. Variables Identified. 
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Buy Products 
By Computer. 




Need Computer 
Accessories? 
We've got you \ ™ 
covered. 

• VERBATIM DATALIFE DISKETTES* .... $ 24.95 

• TDS (TAPE DOWNLOAD SYSTEM) $ 37.95 

Will turn your non-disk TRS-80 into a smart terminal. 

• MICROCONNECTION— FOR MOD 1 . . . . $235.00 

• RS232 CONNECTION $185.00 

• CHRISTMAS GREEN SCREEN $ 17.95 

For models I, II, and III. 

• 80 TRACK DRIVES-COMPLETE $419.00 

• FORBIDDEN PLANET 

TALKING ADVENTURE $ 39.95 

The first in a series of new talking adventures 
from FANTASTIC SOFTWARE. Written by William 
Demas. All machine language program, vocabu- 
lary of 40 words We're sure this will stump you, 
but hints are available from Bullet-80 Headquarters. 

'MINIMUM 2 BOXES 

If you don't see what 
dial up and ask. 

COMPUTER SERVICES OF DANBURY ^ 

P.O. Box 993 

Danbury, CT 06810 

Voice Line 203 744-5516 

Bullet-80 203 744-4644 Headquarters 

COMPUTER SHACK 

2119 South Broadway 
Tyler, TX 75701 
Voice Line 214 595-4216 
Bullet-80 214 595-4217 

TERMINAL SETTING: 300 Baud, 8 



you want, 



MclNTYRE DESIGN 

RD 1, Bridgetown Pike 
Langhorne, PA 19047 
Voice Line 215 322-1895 
Bullet-80 215 364-2180 

FELDMAN ENTERPRIZES INC. 

1276 East Archwood Avenue 
Akron, OH 44306 
Voice Line 216 724-5583 
Bullet-80 216 645-0827 

Bits, No Parity, 1 Stop Bit. 



Three special names do noi 
print on the program/file report, 
but will print on the media 
report. ©New is used when a 
tape is erased or on a Stringy 
Floppy. 

Avail indicates that no pro- 
grams or files are on a tape and 
ensures that the medium is 
listed on the media report. 

I use Full when a "too short" 
error occurs on tape or Stringy 
Floppy so that you don't try to 
write an additional file. 

When these special names 
are used for Stringy Floppies, 
file number 00 indicates ©New 



and Avail, and file number 99 is 
for Full. This provides the proper 
sequence on the media list. 

You can read an input file 
from either Stringy Floppy or 
tape. Data records are 34-byte 
fixed length strings (logical 
records) (Table 1). The Stringy 
Floppy automatically blocks the 
physical records to contain the 
maximum possible logical rec- 
ords. The tape record is blocked 
and unblocked by Input/Output 
(I/O) subroutines. 

Eliminates Parity Errors 

I reserve a 35' Stringy for my 



ARITHMETIC 


06-02-80 1 


15001 A 


080-09'., 


A 


AKITHMI TIC 


16-02-80 J 


15001-E. 


080-09i, 


A 


CALENOAR 


12-25-80 1 


16010-A 


065-111 


L" 


CALENOAR 


01-03-81 1 


16010-A 


115-162 


C 


CALENDAR 


01 03 -81 2 


E50- 004-06 








Sample Listing 1. Programs 







data file, with a file number of 
one. Since I use the same physi- 
cal Stringy, the program per- 
forms an ©New while running 
to erase and verify the file before 
writing; otherwise, frequent 
parity errors can occur on 
subsequent reads. 

If you are using tape instead 
of Stringy Floppies, remove the 
output Stringy commands and 
the ©Clears. The input Stringy 
commands don't have to be re- 
moved since the program already 



offers you the cassette option. 

The ©Clear command is at 
line 15, and the Stringy output 
commands are at lines 4005, 
4010, 4060, 4080, and 4090. 

The only problems I have en- 
countered in running this pro- 
gram are parity errors on the 
©New using Stringy Floppies 
as output, or a "tape too short" 
error when writing the output 
file. The parity errors are 
generally caused by forgetting 
to clean the read/write head. I 



AM DUMC :'•". 


12 jii an 


. 


1 il :, : . 


i : l; - 1 . • . 


f-'iu in-i. 


D6-ei-ap 


■ 


1 l»O02» 


Bi i -vv> 


IAU TAfl 


06-C'i ti> 





. :'- .•!. 


00C-99V 


CI 8 *•'■ 


Ul -C1-&1 


n 


620 0C1 -00 




U Sr-PRGS 


C 1 t / ;-. 1 




r /.ti-o '..'-• -'J li 




l.UNMJl I IK 


<j/ !!. In; 


l 


! . 1 .'.' 161 


(1 1 !•- ;:'.!* 


UJNSlH I ^ *. 


i!/ 1 ;. -80 




: 21 1! .. 


'."'-.• 




Sample Listing 2. Files 





10 ' LOG- IT 

11 ' BY RUSS KELLY, 1-1-Cl, TAYLORS, SC 
15 9CLEA1! 

20 CLEAF.B90B:CLS:PK.i:iTC!ii;S(23) : POi;tl6 526 ,0 : POKE16527 , 127 : POUE164 

25,l:POi:E16426,66:PI.i:.T"LOG-IT ■ ;:IE:: : INPUT'DATE" ;DS: PRI NT "LOAD IN 

C SORT":DEFIHTA,I,N,X:DEFSTKZ:DI:.AS<250) / X(2) :TRS="" :TBS«" " :T« = 

34:GOSUB12030 

30 INPUT" 1=UPDTE, 2 = Pi:C LET, 3-I.EDIA LLT";I 

4H IFI<lORI>3?HEN30ELSLI!iPUT"(S)TkI:iCY, (T)APfc, (U)O I/P FILE'jZ 

:CLS:PRINT"READIllG":lFZ-":i"VIIEN100GELSEIFZ«"T"THi:W60 

50 eOPENl 

60 IFZ = "T"THEIIGOSUU76OC:2Z«TI!S:COTO70 

61 yillPUT ZZ 

71; IFZZ«="lEOF"TF.F.:iIFZ-"T"iHE:ill0ELSLlD0 

8u ifi-3the:.as(II!)-::ieS(:z,19)+left5{z: ,13) else/.siip.) = zz 

90 IR«1K+1:C0TO6l 

100 ^CLOSE 

110 PRINTIhj" kECS":OMGOTOl000,20C0, 3000: END 

1000 PRI!IT:l!!Pir:-(A)DD, (C).P.i:, 0)LL, 0!( |D<)I.E)";Z 

ioio ifz-'doi.l'thlikooo 

102u IFZ«*C"ORZ»"D"THEN5000 

1030 IFZ«"A"THEtlII-II<>250THE:JlUOOELSEI.\-Il<:GOSUIi6aOO:IR»IR + l 

11140 GOTO1000 

200b ZZ«"PP-OGRAKS/FILES":I*(BU-(LEN(ZZ)*2))/2:LPkIN7VABd)CIIRS(2 

7) ;CHRS(14) ;ZZ:Z:i = " " : LPr.ITrT'.AL ( 33) Iil-1;" RECORDS" : LPPi:iTTAB( 36) 

L.S:LPKi:JT" ": LP?. I :.V " : Z7 = ",\" : LPI.IIITCiiP.S ( 27) ; ;mhJ(14) ; "PKOGRA>".S- 

" : LPRIWi" " 

2010 POP.I-tTOIR-l 

2015 Q$-MIDS(AS(I),2,S) :IF0S»* K'.Cl "uRl>S-"FULL "ORQS-"AVAIL"THEt: 

2050ELSEZF-- ":ZC=" ":ZL=" " : IF!iID5(AS( I ) ,19,1) =*£"THEi:Z 

F'"-"+MID-(Ai.[I) ,2«,2)tLSEZC-P.IGHTS(AS(I) ,1) : ZL-HIDS( AS 1 1 ) ,28,3) 

♦ *-"+:iIDS(AS(I) ,31,3) 

2./20 IFSTOLtFTS(A5(l] , 1) THLNZT«"B" : ZH-" " :LPKIHTCHR$( 11 ) :LPRIHT 

" "sLPRIHV" ":LIT:I!iTCllK5(27) j C1IHS (14) ; "F ILES-" s LPKI11T' " 

2030 IFMIDSlASd) ,2,10) O'/ITVIIIWiLPKIIlT* " : Z!J=IIID$ ( AS ( I ) ,2,10) 

2040 ZZ-;iIl,S(;S(I) ,12,7) :GOS'JD7500:LPKIIITZM;" ";ZZ;" ";MIDS( 

A$(I] ,19.7) ;ZF;" ";Z:.;" " } ZC 

2050 :iEX7I:GO7C4l0J 

3000 GOSU31.000: z:.= " ":ZZ = ":. I. a I A LIS ".":I«(60-(Lt!!(ZZ)*2) 

)/2;L?SIHTTAB(I)ai!'S(27) ;C!IKi.(14) ;ZZ 

3i.lj FORX-OTOIB-1 

3015 IF.'.IDS(ASd) ,17,1) ="A"THENZT="PROC"ELSEZT»*FILE" 

3020 IFIIIUSIASd) ,1,7) <>Z:!T!li::iLPRIHT" ":Zli»l!IDS(AS(I) ,1,7) 

303U ZZ-iiin$(A$(I) ,2H,7) :COSUB7508: ZF-" ":ZO" ":ZL=" ": 

XFLtt'TS(ASd) ,l)-"L"TllEHZF = "-"4-:iIUS(AS[I) , 8 , 2) ELSEZC-MIDS < ASd ) , 

id) :ZL-:;iustAS(i) ,iy,3) ♦■-"»::ids(as(d ,13,3) 

3j4C LPPINVZI.iZFi" *;ZL;" ";Z7;" " .-/.IDS ( ,\S ( I) , 18, 11) ) ; " 

";ZC;" ";ZZ 

3050 IH3CT] :uiAG410b 

4«Jj0 GCSUL&i/OC :i:.Pl V'O/? FILL iDY {'..I LI. fat ERASED) "; ZZ : ZZ = *" : IMP 

UT'TAPE AI.LU (Y/i.)*;Z"-sZ:>* * 

4-»5 y.:n:. 

4 Bill XPI.M 

40 2 n F0RI1-B701«-1 

4C30 IFLKFTSIAS(Il) , 1 ) -"D"TIIL;iLPKIHT"D::LETED ":AMI1) :An»AD+l:GO 

70 4070 

4840 IFZZ""Y"VHL:iT?.5«;.Sdl) :GOSI!U7700 

WO- ,-FP.i:.V ni(Il) 

4.7.: ..LXTIl.-i'RIiiTIR-AO;* TlECS" 

4C75 IFZZ-"Y"7HLNGOSUE7bOO 
4C10 IPFI..V "1F.OF" 
40 90 ."'CLOSE 

nioc iFA;j>joi(i<>ivn:.::LP;.i:;TciiH5di) 

411 J PR1IJVLOJ* :Ei;u 

50(10 Z!i-"':I;;PUT":,[:DIA r ";z:. : IFZil-""Tlll:i:500(iLLiiKAA-LEN(Z:!l :1FAA> 

6THEiiZI,-LEI , TS(Z:L,7)ELSEZM«Z. l *STRINGS(7-AA," ") 



5D18 ZS-"*:IUPUT"FILK 1 (XX) Oil -START LOCH (XXX) ";ZS 

5040 PORIl=BTOiR-l 

5045 ZT-"":IFUI3S(ASdl),19,l)»"L"7HEHZT«i:iD$(A5(III»2«,2)EtSE« 

=:H0S(AS(I1) ,2b, 3) 

505u if:;ids(as(id ,i9,7)-z:.A:;azv=zsTHu:iPRi:iT::ia5(AS!iu ,2,11:) :" 

";Z:!;" ";ZT:ZA-"":I:;i';-7— .il:, >:\\: (Y/::)";ZA:IrZA»"Y"TlIi::;510j 
5060 :;LX-iIl:GOTOlOOC 

5100 IFZ = "D"THEi;AJdl) ''O'K.V. S(ASdl) ,2) : PP.i:rT"DELE?ED" :COTO10U 


5110 IX"Il:GOSUD6000:PUI!JT"UPDATED TO " ; A5{ IX) : GUVO100C 
60UO PRINT'KCC { " ; IX : ZZ = " " : IT.-pl.T" ( P) ROG 0(1 (F)ILE")ZZ 
6010 IFZZ-"P"TIIEIJAS(1X) -"A"ELSLlFZZ«"F"Tlir.tlAS(IX) = "B"ELSi:600P 
6020 ZZ = "": IHPUT'liWIE"; ZZ: IFZZ" ""THCN602O 

6030 AA-LEti(ZZ) : IF,V»>9TI!FJL\3 (I X) =AS (IX) 'LEFTS ( ZZ , K') ELSEAS ( IX) »A 
SdX) *ZZ + GTRI!iCSdO-AA f " ") 

6040 ZZ«": i:iPUT"DATE C'.tlUDYYS) " ; ZZ : I Fl.l.:: ( ZZ) <>7THEtJ604CELSLZZ»:: 
IDS! ZZ , 5 , 2 ) «LF.F r .S(ZZ, 4) ♦?.IGiiTJ( ZZ.l) : IFVAL(ZZ) <CZ0Hll30PVAL( ZZ) > 
8212319THEN604CELSC AS( IX) =AS( IX) +ZZ 
6060 2Z = "":INP'JV":-.EDIA »"; ZZ : I FZZ«""THEN6060 

607 AA=LEN(ZZ) : IFAA>6TIIL:iAS( I.-.) =/.S(i::) * LEFTS (ZZ, 7) ELSEASI IX)=AS 
(IX)+ZZ + STRI!JGS17-/»/.," ") 

6080 IFLEFTS(ZZ,1) <>"E*T1IE[!AS( IX) -AS(IX) ♦ "CO" iCOTOClOU 
6090 ZZ = "";INPUT"FILi; « (CI TO 99) " ; 7.Z : IFLE1! ( ZZ ) O2THEH6090KLSF.A 
S(IX)«AS(IX) +ZZ + "0000000":GOTO612(l 

6100 ZZ-"": II.PUT'FILL LOCII ( 00C-S99) " : ZZ : I FLEll ( ZZ ) <>7THE!I6 1 30ELS 
EAS(IX)=ASdX)»LEFTS(ZZ,3)+ElG!lTS(ZZ,3) 

6113 ZZ»"":INPL'T"F1LI- COOL (A TO Z) " ; ZZ : IKLti: ( ZZ)< ,-lTHENOl ll'ELSF 
AS(IX)=AS(IX)*ZZ 

6128 ZZ = "" : INPUT'OF (Y/L") ",- ZZ : IFZZ<>"Y"THF.N608BKL:U.Ri:Tl'!'*' 
7500 ZZ.:;iUS(ZZ,3,2) «"-"*t;iDS(?.Z,5,2)+"-"*LEFTS(ZZ,2)+" "♦RIGHTS 

lti,l) isasTiim 

7600 IFTBS = ""THL'IJlNPUTt-l,TBS:IFTRS="lEOF"THF.NPRlNT , I/P TAPE REC 

S»";TlVi:GOTO7620 

761U TRS-LEFTS(TUS,TL1) iTBS-IUDS (TBS.TL* +1 ) rTH-TU*l 

76 20 i'.ETUl::i 

7700 TB$-TIIS*T:<S:T2»-V2**1:IFI.LN(TBS1 ♦;L: >248THF.:1PPI:,T»-1 ,TBS:TB 

7710 RETURII 

7ol-J IFTL-;<>""'.ilE:.Pi:i:.Ts-l,TbS:VhS="' 

7810 PRi:.Tt-l,*lEOF":PRi:.T*0/P TAPE F>ECS-"|T2tlRETORIl 

7900 ' MAC!!i:.L LAtlGUAGE VEP.SIO?: OF SliEL!./:'CTZ:;En SO-VT 

7910 ' DLVLL'JPLD 11Y ALLA1. EliEHT, ODESSA, TEXAS 

8000 PRItlT"SOHTIllG" 

8010 X(0)>I1( 

13020 X(l) =VAP.PTR(AS(U)) 

triO A-USK(VAi:PTP.(X('J)) ) 

8040 kEYUKti 

12038 DATA 2u5, 127, 10, 94, 35, 86, 237, b3, 19, 127, 35, 94, 35, 06 , 237, 63 

120 41' DATA 21 3, 127, 33, •),,;, 34, 21 1,127, 237, 91, 211, 127, 203, 59, 17 5 

12o5L DATA 20 1, 5b, 4b, 2, 2 33, 251, 237, 83, 211 , 127, 122, 179, 2i , i', 42, 19 

12060 DATA 1 27, 237. 82, 34, 207, 1 27, 33, 0,0, 34, 205, 127, 42, 2C5, 127, 34 

12C 70 DATA 203,127,42,2(13,127,237,91,211 ,127,25,34,205,127,235,3 



12080 DATA 0,0,25,25,25,229,237,91,203,127,33,0,0,25 
12090 DATA 75,213,127,9,235,225,9,229,213,14,0,126,7 
12100 DATA 3,14,1,71,175,176,40,25,197,19,35,78,35,7 
12110 DATA 235, 76, 35, 7J, 197, 225, 193, 26, 150, 56, 10, 32, 
12120 DATA 246,203,65,32,31,209,225,6,3,78,235,126,1 
12130 DATA 35,19,16,240,42,211,127,235,42,203,127,17 
12140 DATA 203, 127, 4b, 144, 24,2,2;",, 225, 42, 235, 127, 17 
12150 DATA 34,205,127,237,91 ,207, 127, 237, 02,213, 58,1 
7 

12160 H=0 

12170 FORl = lTO203:READA:N»JI+A:POKLI+32511,A::;nXTI 
12180 IFM<>22393THEtlPRItlT"ERR IN SORT LOAD" : END ELSE 



.25, 
1,26 
C.19 
39,1 
13,2 
5,2i 
,1,0 
27,1 



25,237 

,184,48 

7,225 

9.35,16 

35,119 

7,b2,34 

,175,25 

95,24,12 



Program Listing 1. Logic. 
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* SPECIAL** SPECIAL 

TRS-80 TANDON ADD ON 

IMMEDIATE DELIVERY 



SINGLE SIDED $215.00 
DOUBLE SIDED $335.00 



COMPLETE SYSTEMS 
SINGLE SIDED $330.00 
DOUBLE SIDED $450.00 

INCLUDES 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD*s 



I 



2 INTERFACE, INC -™ 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



INTERFACE EXPANSION BOARD] 



For the TRS 80' 



MD 



MOO-DCSIGN *HS 




cK 



The Interface Expansion Board gives 
your computer these features 



MDX-1 



Phone Modem 

2K EPROM OPTION ln s,ock Now 

32 K Memory 

Real-Time Clock 

Parallel Port 

RS-232 Port 

Dual Cassette Line 

Floppy Disk Controller' MDX-2* 

On Board Supply 

Silk Screen 



64?5 



7495 



Solder Mask 
Expansion Port 
Manual 



Add 5.00 tor shipping 
& handling Te»as res- 
idents add 5°c sales 
tax 



MANUALS $7.95 

•FREE PAMPHLET AVAILABLE— 
Call or write 



fc 



^ MOO-D€flGN 

H p ° Box 748 

Manchaca, TX 78652 

512-282-0225 

' TRS 80 is a Trad emark ot Tandy Corp 
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RELATIVITY 

Travel through a space time continuum to distant 
stars Understand the concepts ot time and 
dimensional changes, mass energy relationships 
Quasa's— the ultimate in mass energy conver- 
sion Compute your own relativistic time, dimen- 
sions, mass, kinetic energy and energy per unit 
mass "A fascinating and educational adventure 
(LII.16K) $16 95 



CALENDAR I .*""■.. ' 

computations \ i ; ■ , , ,D 

Compute the number ot days be I I I I ! *~*~! 
tween any two dales Find an un 
known date m the past or future given the starting 
date and a number ot days Tens you the day ot the 
week tor any given date "Fo' any date after 
10/15.1582 (Lit. 16Ki $9 95 



SIDEREAL TIME _ 



ijiW.o* 



Z 






Computes: local sidereal time given 

the date, local lime and coordi 

nates. Greenwich sidereal time tor hour u r given 

the date only, and Greenwich Julian Date lor any 

given date Accurate to -30 seconds "Fast and 

easy to use. complete instructions (Ul. 16K) $14 95 

CLOUD 

altitude 4 formation 

Programmed learning. 

How and why clouds 

form. Lightning and lightning rods. Temperature. 

Relative Humidity and Dew Point relationships 

without the need of tables. Cloud altitude computa 

tion. includes experiment (Lll. 16K| $1295 



^7^P 



Home Mortgage 

Analyze an existing 
loan Determine pay 
ment size or number of 
payments to suit your 
budget Includes ex 
amples (LII.16K) $6 95 



BIORYTHM 

Compute Intellectual 
Physical and fcmo- 
tionai cycles tor any 
dale. Analyze 

historical figures, and 
friends (LII.16K) $4 95 



BECKER ELECTRONICS^ 290 

108 West Franklin Street etm 
Chapel Hill, NC 27514 523 

$1.50 shipping 4 handling Ph 919-967 8299 



Do your own taxes like an expert 
with TAX/SAVER 



TAX/SAVER: M The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type in your figures and you've done your own tax return. 

• Output to video or lineprinter. (Overlays available.) 

• Tax deductible. 

• Optional text: help for novices speed for professionals 

• Manual: Tax information, lists of deductions, tax glossary. 

• TAX/SAVER 7 " I: completes long and short forms, itemized 
deductions, interest, dividends, income averaging and 
maximum tax, tax calculation. 

• TAX/SAVER'" II: all features of TAX/SAVER'" I plus 
business income and capital gains. 

• Discount on yearly updates. 



& 



mfr 



TAX/FORECASTER" converts TAX/SAVER" 

to a tax planner Lets you see how financial decisions 
will affect your taxes. TAX' FORECASTER" can 

be used alone 



Orders will be filled in late January to allow inclusion of new tax laws 
TO ORDER: 



^355 



Reviews: 

"Well designed and easy to use" D. Lubar, Creative Computing Magazine 1 81 

"TAX/SAVER'" may very well live up to its name" 

M Tannenbaum, CPA. 80 Microcomputing Magazine 2 81 



•Registered trademark of Kadio Shack 



^Copyright 1481 



Call collect 203-324-3009 or 203-544-8777 or mail this 
coupon to Micromatic Programming Co. 

P.O. Box 158. Georgetown, CT 06829 

Please enroll me in member "s service and send: 

□ TAX SAVER" I (a $79 95 Manual included 
D TAX SAVER" II a $119 95 Manual included 

□ TAX FORECASTER" @ $49 95 
(with either TAX SAVER" $29.95) 

D Tax Form Overlays @ $39 95 

□ Please send me more information 

Please check one: 

D TRS 80* Model I. 32K with 2 disk drives 
D TRS-80* Model III. 32K with 2 disk drives 

Add $3 50 for postage and handling CT residents add 7 ! , . sales lax 

Name _ 



Address 
City 



State 



.Zip. 



D Check 
Card No. 



ZI Master Charge D Visa 



. Exp datt 



• Set List ot Advertisers on page 418 
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The Captain 80 Book of 

ADVENTURES 

This "first of its kind" book includes line listings of 18 
currently popular BASIC Adventures. Introduction by 
Scott Adams Programs by Boner. Kepner. Powers. 
Micklus. Hassett and others. Individual cost of these 
programs would exceed $200! Also contains a unique 
Adventure Program Generator and six chapters on 
Adventures in general - how to write, play, market, get 
ideas for Adventures etc 

All programs are written for TRS 80 Model I & III but are 
easily converted to any other machine using Microsoft 
BASIC 

Over 250 pages! 8V2 X 11", Semi Hard Cover. 

A perfect Christmas gift idea! 

Only $19.95 + $2.05 Postage/Handling 

80- Northwest Publishing Inc. 

3838 South Warner Street 

Tacoma, Washington 98409 

(206)475-2219 

VISA/MC accepted 

Foreign orders please add appropriate additional amount for 
postage and specify air or surface mail. 

TRS-80 is a trademark of the Tandy Corporation 
Microsoft BASIC is a product of Microsoft. Incorporated 



ORDER YOURS TODAY' 



^33 



avoid the "too short" problem 
by reserving a Stringy Floppy of 
sufficient size for the output file. 

You can recover from either 
problem by entering GOTO 4000. 
This takes you to the beginning 
of the output routine. You can 
also use this statement to 
create additional copies of the 
output at the program's end. 

The program's structure is 
shown in Table 2. I have in- 
cluded variable definitions in 
Table 3. 

Running the Program 

To use the program, perform 
the following steps: 

• System (Enter). 

• /0 (Enter). 



• Respond to MEM SIZE? with 
32512 (Enter). 

• System (Enter). * * * Omit if not 
using Stringy Floppies. 

• /12345 (Enter). *** Omit if not 
using Stringy Floppies. 

• @LOADx (Enter). Load Log It; 
use CLOAD if from tape. 

• @LOADx (Enter). Load Exa- 
tron Data I/O program. Omit if 
not using Stringy Floppies. 

• RUN (Enter). 

After completing the run, 
restore the memory size with 
System (Enter), /0 (Enter), and 
Enter on MEM SIZE?. I hope you 
find that this program not only 
saves time, but also avoids the 
frustration of "lost" files and 
programs. ■ 



14006-& 


008-022 


FILI 




'■• : 




1 4 C 6 - B 


030-ose 


FlLl 




SufcSC 


[i 6 -02 I' 1 


i1007-fi 


ooo-vvv 


HI ( 




AviV. 


06-0?-90 1 


l«l)07-i 


B00-V9V 


FII.I 




Mi .. 


ht. '... . .• l 


14008-6 


ooti-yyy 


Hi. t 




AWtli 


06-0,2-Sfi 1 




Sample 


Listing 


3. 


Media List 





CO-DIR, BLINKING 



▲ vu-uin, duuimhu 

JT CURSOR ORIENTED 
<T DIRECTORY! 

KILL! EXECUTE! COPY! LIST! 

BLINKING CURSOR DOES IT ALL RIGHT ON THE DIRECTORY SCREEN! 



riXSIT48^ffi 

«m$/ihs 
lac/CHS i 

CGAhf/BAS 



BlS/Ot 
SPELL 
SKYRAI 
SCREEN/!** 



Never type a program name again! 

Access to any program on any directory page! 

Very very easy to use! 



TO ORDER CO-DIR' (R): Specify DOS and Model I /III. 
Available for DOS PLUS* NEWDOS/80" 1.0 and 2.0 



95 



•Trade Mark of Micro-Systems Software, Inc. "Trade Mark of Apparat, 



19 



PICOTRIN 

TECHNOLOGY. INC. 



Dealer inquiries invited. 



Fl. res. add tax. PH.: 305—586-2377 3531 San Castle Blvd. Lantana, Fl. 33462 
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Ever tried to read computer sales literature? 

Ever tried to talk to a computer salesman? 

Ever tried to make a decision about 

which computer to buy? 



Yes . then you know what frustration is. 
Help is on its way. Desktop Computing pre- 
miers this fall. The first and only computer 
magazine written in plain En g lish. Preposter- 
ous? Not at all. It is possible to explain com- 
puters without all the "computerese." That is 
what Desktop Computing will do each month. 
Send the card today for a no- risk subscription 
that will give you the kind of understandable, 
useful information on computers you've been 
waiting for. 

Why do you need a plain-En g lish explanation 
of desktop com puters? Because they have just 
come of age and are saving thousands of busi- 
nessmen like you an amazing amount of 
money. They not only save money, do things 
faster, provide access to more information, 
allow a smaller staff to do more work, they also 
allow you to get into services for your custom- 
ers which were not practical before. You can 
provide more services at lower cost. To get in on 
the savings and expanded customer services, 
you need information. Desktop Computing will 
bring you that information. Desktop Com- 
puting will cut through all the technical 
hocus-pocus. 

In this time of high interest rates, a truly low 
cost desktop computer system ( usually a micro- 
computer system) is a welcome event. Let Desk- 
top Computing explain what these systems can 
do for you. The subscription price is $25 a year 

but as a charter 

subscriber you can 

get the first year 

for only $17.97. 

totally tax 

deductible. 

Call toll-free: 

(800) S58-5473 

or mail the 

coupon below. 




Here's a look at some of the articles $17.97 will 
bring you: 

•When a small Business Computer 
Arrives. What Happens to the 
Small Business? 
•Letter to Hemingway RE: Word 

Processing 
•Professional Se Small Business 
Microcomputers: Buying. Using 
and Fixing a System. 
•Adequate Backup: Protecting the 
Data in Your Computer. 
Wayne Green, the publisher of Desktop Com- 
puting (and also of Kilobaud Microcomputing 
and 80 Microcomputing — both successful 
computing publications) has gone through both 
the agony and joys of working with computers. 
He has lost a quarter of a million on a mainframe 
big boy computer only to come out on the other 
side with all the frustration necessary to run a 
200 employee publishing firm on several 
TRS-80's. 

Wayne has a reputation for being honest and 
unafraid. He'll make sure you get the truth. In 
the meeting introducing the idea of Desktop 
Computing to his staff Wayne said. 

"Our objective is to be the only com- 
puting magazine written in plain 
English." 

So that is what you'll be getting— honesty and 
directness. Desktop Computing will give you all 
the information you need on computers in plain 
English. 

This charter subscription is available for a 
short time only. Send the card today for the 
premier issue— October 1981— and get the infor- 
mation you've been needing for only $17.97. 

Desktop Ckuupullng 



Relief is here for only $17.97 

I "i .;...: Sl fi n roe up as a Charter Subscriber to Desktop 

■ Computing I will get one year of the only comput- 

ing magazine written in plain English for $17.97 (a savings of 50% 
off the newsstand). My subscription will begin with the premier 
issue— October 1981. 

Your first issue will be arriving by mid October 1961 . 

Canadian 1 yr. only/US funds $19.97 Foreign 1 yr. only/US funds $29 97 



NAME 



ADDRESS 








CITY 




STATE 


2D? 


SIGNATURE 






EXPIRE DATE 


CARD# 


INTERBANK # 




Desktop Computing 

80 Pine Street Peterborough. NH 03458 



*-S** List of Advertisers on page 4 16 
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TUTORIAL 



The uses of loopses. 



FOR My NEXT Trick 



Alexander MacLean 
18 Indian Sprint Trail 
Denville. NJ 07834 



Given any two values, you 
can find the third. If you 
need only one answer, pencil and 
paper will do, but suppose you 
know that the voltage (E) is ten 
and you want to know what the 
current will be through a range of 
resistance values from one to 
ten ohms. It's still possible to do 
by hand, but we are now talking 
about ten separate calculations. 
Program Listing 1 lets the com- 
puter do the work. 

Line 10 prints the three 
variables as column headings: 
voltage, resistance and current. 

Line 20 creates a blank line 
between the headings and the 
columns of data that will be 
printed on the screen. 

The For... Next Loop 

Line 30 is the first of the high 
power computer instructions. It 



is called a For.. .Next loop. In- 
stead of our having to give the 
computer the ten values of 
resistance, this instruction tells 
the computer that it is to vary 
the value of R from one to ten. 

Line 40 tells the computer the 
value of our fixed variable, volt- 
age. In mathematics we refer to 
a variable, even though its value 
is fixed. 

Line 50 gives the computer 
the formula it needs to work with 
our data. I have taken our 
original equation E = IR, and 
solved it for l:l = BR. We know 
what the voltage and the resis- 
tances will be; we want to know 
what the current will be. 

Line 60 tells the computer to 
print the values of E, R and I. To 
print these values, the computer 
must find the values for E and 
for R, find the formula, compute 
the value for I and print the re- 
sults. The instructions to do all 
this are built into the computer's 
internal code. 

Line 70 sends the computer 
back to the start of the loop at 
line 30, the next R. The first time 
through, the computer assigns 
the value R = 1, works the for- 
mula and prints the result. When 
it hits the Next R line, it goes 
back to line 30 and assigns R the 
value of two. 



The program keeps this up un- 
til it reaches R = 10, the highest 
value that you assigned for R. At 
that point the loop's instruc- 
tions are completed, and the 
computer will go past line 70 to 
the next part of the program, in 
this case the end. 

Let's add another element to 
the program. If you know the 
voltage and the current, you can 
calculate the power with the for- 
mula Power (?) in watts equals 
Voltage (E) in volts times Cur- 
rent (I) in amperes. 

Since the computer already 
has given us the current, it can 
now find the power. Program 
Listing 2 adds only a few simple 
lines. 

We add the new heading to 
line 10: Power. 

Line 55 gives the computer 
the new formula to calculate the 
power, P = El, but written as the 
computer wants it, P = E*I. We 
could add it to line 50, but let's 
keep things as clear as we can. 

To line 60 we add the variable 
P for power. Make sure that the 
order in which the computer 
prints your variables is the same 
order in which they are listed in 
your headings. 

The four headings and vari- 
ables are separated by commas: 
E,R,I,P. This tells the computer 



to automatically tabulate the in- 
formation in the four-column 
feature built into the computer. 

If you need more than four col- 
umns use the Print Tab feature. 

Our program now gives us 
twenty calculations; ten values 
of resistance and ten values of 
power. A few additional changes 
will liven things up even more. 

Step Function 

Let's explore the Step function 
of the For.. .Next loop. 

Retype line 30 to read For R = 
10 to 100 Step 10. This tells the 
computer to vary the resistance 
value from 10 to 100 in steps of 10 
(ohms); thus 10, 20, 30. etc. We 
can use any convenient whole 
number value; Step 2, Step 5, 
Step whatever. 

Run the program with a few 
different step values and see 
what it looks like. It will come in 
handy for our next project, the 
nested loop. 

A nested loop is a For... Next 
loop used within another For... 
Next loop. It's simple to use. 
Let's apply it to our program. 

Suppose we want to know the 
current (I) and the power (P) 
when we vary both the resis- 
tance (R) and the voltage (E). The 
computer can handle it easily. 

To make life easier on our- 



380 • 80 Microcomputing, December 1981 



selves, we'll limit some of the 
values. We'll vary the voltage 
from 10 to 100 in steps of 10 
volts, and the resistance from 
five to 25 ohms in steps of five 
ohms. 

Next, let's look at the mathe- 
matical functions the computer 
will be doing. (It will be easier for 
the computer to do all this, than 
for us to follow.) 

For each value of voltage, the 
computer must figure the current 
and the power for each of the five 
resistance values. This means ten 
calculations for each voltage 
value; five for current and five for 
power. Since there will be ten 
values in the voltage steps, this 
means a total of 100 calculations, 
ten times ten. Program Listing 3 
gives the details. The early lines 
just set up the basic headings 
that the computer will print. For 
clarity, we add line 20. This recalls 
for us the measures of our vari- 
ables—volts, ohms, amperes, 



watts. Line 30 now prints a blank. 

The fun begins on line 40. This 
sets the values for voltage at 10 
to 100 volts in steps of 10. 
However, notice the next line. 

Line 50 is the same type of 
statement as line 40 and sets 
the resistance values at five to 
25 ohms in steps of five. This 
loop is nested to the first. 

Line 60 and line 70 then repeat 
our formulas. 

Line 80 tells the computer to 
begin the calculating, and prints 
the answers on the screen. 

Line 90 sends the computer 
back to the next value of re- 
sistance. This is most impor- 
tant. The computer was told to 
give E (voltage) a value, and then 
start working with the different 
values of R (resistance) as ap- 
plied to that first voltage value. 

Keep in mind that the re- 
sistance loop is the nested loop. 
It comes inside of the other 
loop. When the computer goes 



10 PRINT VOLTAGE'VRESISTANCE". •CURRENT/POWER- 

20 PRINT "IN VOLTS' ."IN OHMS'VIN AMPERES"."IN WATTS" 

30 PRINT 

40 FORE = 10 TO 100 STEP 10 

50 FOR R = 5 TO 25 STEP 5 

60 I = E/R 

70 P = E'l 

80 PRINT E.R.I.P 

90 NEXTR 

100 NEXTE 

110 END 
RUN 



Program Listing 3. 




Pal 04 259 705 



10 PRINT "VOLTAGE'VRESISTANCE" 


"CURRENT - 


20 PRINT 




30 FOR R = 1 TO 10 




40 E = 10 




50 1 = E/R 




60 PRINT E.R.I 




70 NEXTR 




80 END 




RUN 




Program Listing 1. 





10 PRINT "VOLTAGE'VRESISTANCE", "CURRENT" 


"POWER" 


20 PRINT 




30 FOR R = 1 TO 10 




40 E = 10 




50 I = E/R 




55 P = E-l 




60 PRINT E.R.I.P 




70 NEXT R 




80 END 




RUN 




Program Listing 2. 





DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't 

Blame The 
Software! 

Power Line Spikes. Surges & 

Hash could be the culprit! 

Floppies, printers, memory & processor often interact! Our 

patented ISOLATORS eliminate equipment interaction AND curb 

damaging Power Line Spikes. Surges and Hash 

• ISOLATOR (ISO 1) 3 filter isolated 3 prong sockets: integral 
Surge/Spike Suppression; 1875 W Maximum load. 1 KW load any 
socket $62.95 

• ISOLATOR (ISO 2) 2 filter isolated 3 prong socket banks; (6 
sockets total); integral Spike/Surge Suppression: 1875 W Max 
load. 1 KW either bank $62.95 

• SUPER ISOLATOR (ISO 3), similar to ISO 1 except double 
filtering 4 Suppression $94.95 

• ISOLATOR (ISO-4), similar to ISO-1 except unit has 6 
individually filtered sockets $106.95 

• SUPER ISOLATOR (ISO 11) similar to ISO 2 except double 
filtering & Suppression $94.95 

• CIRCUIT BREAKER, any model (add-CB) Add $ 8 00 

• CKT BRKR/SWITCH/PILOT (CBS) Add $16.00 

Master-Card, Visa, American Express 
Order Toll Free 1 800-225 4876 
(except AK, HI. PR & Canada) 



AT YOUR 
DEALERS 



£±z? Electronic Specialists. Inc. su 

171 Soul" Main Srreel. Natick Mass 01760 
Technical & Non-800: 1 617 655-1532 



AT LAST! 

Mass production prices tor high quality software Buy direct and save 50 Also 
available tor CPM and HD0S 

DATA BASE MANAGER Mod I & III S69. C149 (48KI Mod II S199 

Maintain a data base and produce reports, all without user programming Dehne 
tile parameters and report lormats on-line Key random access, fast multi-key 
sort, field arithmetics, audit log. label No time-consuming overlays 500 happy 
user-s in one year Mod-ll and 48K versions have over 50 enhancements, including 
40 fields maximum IDM-M2 is great 1 " - 80-US. 

A/R Modi S69 Mod-ll S149 Mod-Ill S69 

Handles invoices, statements, aging, sales analysis, credit checking, forms input. 
and order entry. Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc 

WORD PROCESSOR S49 

Centers. |ustifies. indents, and numbers pages Modi version features 
upper /lower case without hardware modification' File merge option available 

MAILING LIST Mod I & III S59 S79 i48Ki Mod-ll S99 

The best 1 Compare and be selective Includes torms input. 5-digit selection code 

/ip code extension, sort on any field and multiple labels Who else offers a report 

writer and merges with word processor'' 

INVENTORY Mod I & III S89 S109 i48K> Mod-ll $149 

Fast key random access Reports include order into performance summary EOQ 

ana user-specified reports Many people have converted to our system' Next to 

impossible to damage the hie 

GL. A/R. A/P. PAYROLL Mod-ll $129 each 

Integt ated accounting package 100* page manual As opposed to Osborne s slow 

binary search and 64 column screen we use fast ISAM and 80columns Dual disk 

and TRSDOS required 

L2I6 S59 

A cassette package of 10 business programs lor Level II 16 K systems Includes 

word processor and data base manager Poker game S19 

Mosi programs are on-line, interactive random-access, bug-free documented 

and delivered on disks Modi programs require32K TRSDOS We re «1 in business 

software — don t let our low price fool you 1 Ask toi our tree 20-page catalog if 

you re still not convinced Compiled versions are available 



& 



MICRO ARCHITECT. INC. -s< 

96 Dothan St.. Arlington, MA 02174 



• See List ol Advertisers on page 4 18 
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Word Processing? You need a 

SPELLING CHECKER 



This is if> *:<*»1* of a text btiriQ checked by 
rCGKLL. The text scrolls up the screen « it it checked. *en 
an error is detected, you have three choices. 

1) REPLACE the incorrect word. The repl acewn t word 
is D6TANTLT RE-OCOO for correctness, then inserted in the 
text. 

2) The word is correct, leave it as it is. 

3) Leave the word as it is, AW tell ICXSPELL to 
LEARN this word for future reference, with just one keystroke. 

Tour document is ready to print as soon as ICXSPELL 
is finished. The word in error e.g. i 



HORO IN ERROR! msstake 

CONTINUATION ! is shown in context, including continuation 

PRESS! R) REPLACE HORO S> LEAvE AS IS L> LEARN HORO 



HexspeLL 

zaps those-sneeky typos 

HEXSPELL shows you the errors right where it finds them, 

then instantly checks your corrections to make sure they ARE 

correct! When HEXSPELL is finished the corrected docu 

ment is ready for printing HEXSPELL comes with a 20,000 

word list, with room for 8000 more! Just one keystroke 

teaches HEXSPELL a new word You can even clear the 

memory and teach HEXSPELL a complete new language 

Programs, wordlist A manual S69us Manual only $12 ^5^ 

Roauirm 4BK ins ho m.»i i «.th 7 Dm* & tksdos 

It Ekt-lft Pm.mI. ihouM ■ «* » "i MI..-.I «<hiI pra 



HeXAGON 



PO Box 397. Station A 
Vancouver. B.C. Canada V6C 2N2 
Telephone (604) 682 7646 



through all of its values for R, it 
will proceed to its next instruc- 
tion (Line 100) to pick up the next 
value for E. 

It will then take the new value 
for E and solve the equation for 
all the changing values of re- 
sistance. 

Loop Format 

The format of a nested loop is 
critical, but simple. 

for a = x to y 

FOR B = R TO S 
NEXTB 
NEXT A 

You can also next more than 
one loop. For example, look at 
this form: 

for a = x TO Y 

FOR B = R TO S 
FOR C = W TO Z 
NEXTC 
NEXTB 
NEXT A 

It is a simple form to use, but 
if we don't follow it correctly we 
get an invalid nest. The form 
below might seem to be the 



same, but the computer won't 
follow it. 

FOR A = X TO Y 
FOR B = R TO S 
NEXT A 
NEXTB 

These loops are nested im- 
properly. Test them yourself. In 
a large program with many 
nested loops indenting our 
loops might help us avoid 
trouble. 

I used a minimal number of 
calculations to make it easy to 
watch what was happening in 
the program. Now let's add a 
few changes to Listing 3 and 
show what the computer does 
with a great many calculations. 

Change line 50 to read For R 
= 10 to 100 Step 10. This cre- 
ates 200 calculations. Then 
make E = 2 to 100 Step 2 and R 
= 2 to 100 Step 2 for 5000 cal- 
culations. If you really have 
some time, make both E and R 
= 1 to 100 without the Step 
function for 20,000 calculations. 

Don't try these changes if you 
are running a printout. There 
isn't that much computer paper 
in anyone's budget! ■ 



Z8 BASIC 
COMPUTER/CONTROLLER 




■■VtaaleaTiTi il 
As featured in 
Byte Magazine, July and August 1981 

• On board tiny BASIC Interpreter. 

• 2 on board parallel ports. 

• Serial I/O port 

• 6 interrupts. 

• Just attach a CRT terminal and 
immediately write control programs 
in BASIC. 

•BAUD RATES 110-9600 BPS 

• Data and address buses available for 
124K memory and I/O expansion. 

• 4K RAM. 2716 or 2732 EPROM 
operation. 

•Consumes only \Vi WATTS 
Z8 Basic Microcomputer/Controller 

Assembled & Tested S 195.00 

Complete Kit $165.00 

Universal Power Supply 

(+5, +12, &-12v) $ 35.00 

Z8 is a trademark of Zilog Inc 



SWEET-TALKER, 

IT GIVES YOUR COMPUTER 

AN UNLIMITED VOCABULARY. 




As Featured In 
Byte Magazine, September 1981 

•Utilizes VORTRAX SC-01A speech 

synthesizer chip. 
• Unlimited vocabulary 
•Contains 64 different phonemes 

which are accessed by an 8-bit code. 
•Text is automatically translated into 

electrically synthesized speech 
•Parallel port driven or 

Plug-in compatible with APPLE II. 
•On board audio amplifier. 
•Sample Program for APPLE II on 

cassette 
SWEET-TALKER 
Assembled and Tested 

Parallel Port Circuit Card $139 

APPLE II Plug-in Card $149 

VORTRAX is a trademark of Federal Screw Works 



To Order: Call Toll Free • 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 



DISK-SO 

EXPANSION INTERFACE 

FOR THE 

TRS-80 MODEL I 




As Featured In 
Byte Magazine, March 1981 

•Disk controller (4 drives^ 

• Hardware data separator 
•Buffered TRS-bus connector 

• Real-time clock 

• Printer port (optional) 

DISK 80ASSEMBLED & TESTED 

with 32K RAM $329.95 

Centronics Printer 

Port add $ 50.00 

DISK-80 pc board $ 48.00 

Printer/Power Supply 

pc board $ 16.00 

Complete Kit with 32K 

RAM and Printer Port $275.00 

TRS-80 is trademark of Tandy Corp. 



MICROMINTINC. 
917 Midway 
Woodmere, N.Y. 11598 
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NOW AVAILABLE FOR THE TRS-80 .. 

CnnpuCmM 

THE FIRST COMPUTERIZED CHURCH RECORD SYSTEM 
AT AN AFFORDABLE PRICE FOR YOUR CHURCH 

DEVELOPED EXCLUSIVELY FOR CHURCHES TO: 



RECORD WEEKLY 

CONTRIBUTIONS 
PRIPAHt INDIVIDUAL 

TAX STATEMENTS 
Pflf Pl»£ PERIODIC 

SUMMlBirS 

OF INCOME 



• MAINTAIN PERSONAL RECORDS 

• PREPARE TYPED DOCUMENTS 

• MAINTAIN INVENTORIES 

• PRINT MAILING LABELS 

• MAINTAIN GENERAL LEDGER 
AND MUCH MORE 

Give us the special requirements 'or your 
church We will send you detailed information 
and a written quote for a complete system 
custom designed for your church Complete 
system for $5000-$8000 with software, instruc- 
tions & new Radio Shack equipment. 

OTHER PROVEN BEST SELLERS FROM MTS. INC. 
DEVELOPED BY DR. S.W. TURNER 
FOR STUDENTS AND ENGINEERS 

OL/ HVr IT Determines coefficients tor 
all polynomials up to 14th degree through 
large no of data points (limited by memory 
size) Data points may be input in any order 
Program tabulates correlation coefficients 
for selection of best fit 

CfUHVPLOT Rapidly plots nearly any 
user defined function User controls range of X 
& Y and program labels both axes 

i\JL Y&\JL V Solves any polynommal 
of any degree tor all roots, including real and 
imaginary Program uses iterative procedures 
which automatically vary starting point to han 
die any equation 

ANY OF ABOVE PROGRAMS ON: 

BMMM 'o> !«K L vii '6*4/2 'o< 2995 

■■-,■■.■: ditk ' J2K . -- d*K '9 »V2 ro' 32 94 

BONUS PACKAGE m mm «m b ™ 



HtM d<*». 



39 'X 



SB 

*tc*oco*Bw+uriAj rtc 
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This graph was produced with less than two 
dozen keystrokes on a TRS-80 Model I with 
EPSON MX-80 printer plus GRAFTRAX 

YOU CAN DO IT TOO WITH AUTOPLOT the 

sensational automatic curve plotter written in 
BASIC • fast machine language 

Plot functions y-f(x). x = f(y). or x=f(v). y-g(v) 
Plot data from keyboard or disk file 
Linear or logarithmic presentation 
Numeric integration or differentiation 
Automatic scaling and labelling of axes 
4 different print sizes and formats 
Many more features 

AUTOPLOT for TRS-80 

(Model I or III with 48k. 1 disk drive) 

on disk with 40 page manual $79 50 

AUTOPLOT for LNW-80 

(•Hi-Res video graphics) $99 50 

CA residents add 6% sales tax 

Phone orders. VISA and MASTFRCARD welcome 

MENLO SYSTEMS 

3790 El Camino Real. Suite 221 
Palo Alto. CA 94306. Tel (4151 327-7424 

'BS-80 TMol Tandy CO'P MX-80 GRAFTBAX TM ol EPHON Inc 

^282 



HARD DISK FOR 

TRS-80* 
MODELS I & III 

The PSM-W5 

FEATURES: 

• Seagate ST506 5.25" drive 
•5.0 Megabytes formatted 
capacity 
•Full block buttering 
•Winchester controller 
•Error accommodation 
•OEM-style packaging 

PRICING: 

PSM-W5 (open frame) $2300 

Additional 5MB drive 1500 

Multiuser interface 500 

Cabinet 250 

LDOS operating system 149 

♦ or more info contact: 



pSiM 



prrjfyaniminu 
andsysJems 
management, iix: 



P.O Box 1877 
Kettering, OH 45429 

(513) 426-8644 
"TRS-80 is a trademark of Tandy Co 



Introducing 




MAYDAY.+ 



dy Co A 



...SO Cycle 

Sine Wave 

U.P.S. 

(Uninterruptibe Power Supply) 



Mayday 



from..* 




%r 



for those systems that 
need 60 cycle sine 
wave keeps computer & 
disk systems on when 
the power goes out 
rated for 150, 250 and 
600 watts continuous 
operation * 

i provides up to 30 min- 
ute operation time for 
Model II TRS80with4 
disk drives 



• Standard MAYDAYS available 
starting at $195.00 for 150 Watt 



^161 

*run olebealcn, 3nc. 

Box 210 New Durham. NH 03855 
(603)859-7110 TWX 510-297-4444 



• See List ol Advertisers on page 418 



80 Microcomputing, December 1981 • 383 



GENERAL 



A real-life account of a man, a boy and 

the computer that changed their lives forever. 



Lenny's Story 



David D. Busch 
515 E. Highland Ave. 
Ravenna, Ohio 44266 



Once upon a time there was 
a software connoisseur 
and TRS-80 owner named Len 
who had 60 disks full of pro- 
grams. Well, almost full. Ac- 
tually, because he owned just 
one 35-track disk drive, each 
disk was partially occupied by 
System files that hogged a lot 
of space. 

Len was smart enough to be 
using a DOS that allowed Kill- 
ing unwanted System modules, 
so he was able to eke out 50 
free grans on every disk. More 
than 500 programs of every 
description were crammed on- 
to those 60 disks. 

Then Len purchased his sec- 
ond disk drive, and converted 
ail his programs to data disks. 
The new configuration pro- 
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vided room for nearly 90,000 
bytes of data per disk— 67 
grans— and pared his disk 
count down to 44 jam-packed 
5V4-inch segments. Not only 
did Len feel as if he had been 
given 16 disks for free, he found 
it a lot easier to access pro- 
grams on the smaller number of 
disks. There was a great deal 
more room to group like pro- 
grams together. 

Discoveries 

Less than a week later, Len 
made two discoveries. The first 
was NEWDOS 60, which al- 
lowed him to access up to 44 
tracks on both his disk drives. 
He then found that by punching 
extra holes in the disk jackets, 
he could use both sides of the 
disk. 

The results were impressive. 
A 44-track, two-sided disk could 
hold 225,000 bytes, and Len 
was able to put every program 
he owned onto just 17 disks. 
This latest progess inspired 
him to do further research. 
Within a few weeks he had pur- 
chased a double-density disk 
controller and converted his 
programs to 10 disks, each with 
a capacity of 405,000 bytes. 

But Len wasn't satisfied. He 
found a friend who was in the 
market for disk drives, and sold 



him the 44-track drives. Len im- 
mediately purchased four 
80-track drives rated for double 
density operation. Using both 
sides of the disk, he found he 
could fit more than 700,000 
bytes of data into the double- 
density sectors. With some pru- 
dent Basic program packing 
and discarding some useless 
software, Len reduced his disk 
library down to five. Each was 
so packed with data that Len 
had to use two hands to insert 
them in the 80-track drives. 

At last he was happy. Len 
knew he could never afford a 
hard disk drive for his TRS-80, 
but felt his current configura- 
tion was the next best thing. 
The NEWDOS 80 system disk in 
drive zero had every utility 
available for the TRS-80 some- 
where within its sectors. With 
three of his five data disks per- 
manently stashed in drives one, 
two, and three, he sometimes 
went for two or three weeks 
without having to swap or flip 
disks. It was great. 

The Accident 

Then the accident happened. 
Len was making one of his bi- 
monthly disk swaps when his 
oldest child came racing into 
the den, shrieking like a ban- 
shee. 



"Michael hit me!" the 10-year 
old wailed a few inches from 
Len's ear. But Len ignored the 
plea. His eyes were riveted on the 
floor. His rotten kid was stand- 
ing on the disk which Len had 
dropped when startled by the 
cries. It was folded in half, and 
slightly crumpled, and Len 
knew in his heart that this par- 
ticular disk would never revolve 
again. 

Newspaper accounts of the 
event reveal that after running 
amok through seven neighbor- 
ing backyards, Len was cap- 
tured and taken, incoherent, to 
the police station, allowed to 
cool off, and released a few 
hours later without being 
charged. All his lamentation 
failed to bring the injured disk 
back to life. 

Today, Len is a well-adjusted 
computerist, although he is 
back to 60 disks full of pro- 
grams. Still dedicated to 
80-track double density, dual- 
sided operation, he keeps his 
five diskettes available for 
everyday use, and 12 backups 
of each stored in safety deposit 
boxes around town. 

Moral: Less is more. Those 
with fewer disks usually have 
more need for a backup than 
those with many, for they have 
a great deal more to lose. ■ 



Years of conquering, years 
of victory and what do 
people remember Napoleon 
for? Waterloo. You've got to 
have. . . 

STRATEGY 

It's an acquired skill. And 
now, Instant Software has 
three programs to help you 
sharpen your tactical 
thinking. Don't make the 
same mistake Napoleon 
made — practice first, with 
Instant Software. 



"NOW they tell me." 

■ 

ft 




OIL TYCOON 

What would it L>e like to be one of the world's biggest oil pro- 
ducers? You and your friends can find out with this action- 
packed simulation as you compete to become one of the oil 
industry's wealthiest tycoons 

The game involves elements of both strategy and chance. 
Whether you wind up as one of the world's wealthiest men. or 
the bankrupt victim of too many oil spills, blowouts, and dry 
wells, you re sure to find Oil Tycoon both challenging and 
exciting. TRS-80 Model I and III Level II. I 6K RAM. 

002 3R-A66 TRS-80* tape $9.95 plus %i 50 shi PP ,n S 

MASTER REVERSI 

Master Reversi is a tournament-winning game program that 
has more features than any other reversi program on the market 
It will challenge and teach you no matter what your degree of ex- 
pertise. 

What makes Master Reversi really special is its ability to allow 
in-depth analysis of moves and games. You may examine the 
computer's evaluation and choice of moves. You can save and 
replay interesting moves and games You will be able to study 
and manipulate dozens of tournament-level games which are 
provided in the program s vast library 

Master Reversi will enable you to overcome any barriers 
standing between you and a world championship Model I. Level 
II. I 6K. expansion interface. I disk drive. Not Mod incompatible. 

03 78RD A67 TRS-80* Disk $29.95 plus*2 SO sh.ppmg 

SANTA PARAVIA AND F1UMACCIO 

The year is A.D. I 400. and you are the ruler of a tiny Italian 
city-state You are ambitious by nature and intend to build your 
little city-state into a powerful kingdom. 

So begins Santa Paravia and Fiumaccio. where you and your 
fellow players compete as rulers of neighboring cities. You con- 
trol the grain harvest, feed your people, set tax rates, exercise 
justice, and invest in public works. 

Life was short back then, and you'll have only a limited 
amount of time in which to build your kingdom. The lives of your 
serfs will depend on your decisions. If they are wise, then your 
city-state will grow and you will acquire loftier titles. If your rule 
is incompetent, your people will starve and your city state may 
be invaded by your neighbors. 

How will you rule your kingdom? Will you become 
unscrupulous and follow the examples set by Niccolo 
Machiavelli in his book on government. The Prince — or will you 
be a benevolent ruler — an iron fist in a velvet glove? Only you 
can answer that question— with the Santa Paravia and Fiumaccio 
program. 

Level I & II. I6K 004 3R-A68 TRS-80* tape $9.95. 
Applesoft in ROM. 48K 0I74A-A69 Apple tape $9.95. 
Applesoft in ROM. 48K 0229 AD-A70 Apple* * disk $19.95. 
Tl 99/4. 1 6K 0273TI-A7 I Texas Instruments tape $9.95. 

plus S2 50 shipping 



Our Guarantee 

Detective software may be returned for 
exact replacement at no cost to you. or for 
full credit, within thirty days of the invoice 
date You MUST enclose dated proof of pur 
chase for any replacement to be made, so 
please keep your invoice 

Should a disk or cassette become defec- 
tive after the warranty period. Instant Soft- 
ware will still protect you You may return 
the defective cassette along with £4 00. or 
any disk with $5 OC for a replacement 
Again, you must provide us with a copy of 
your invoice for any return to be made. 



Instant Software 



TO ORDER: 

See your local 

Instant Software dealer 

or call toll-free 

1-800-258-5473 

orders only 

In New Hampshire 
1-603-924-7296 

Mon -Fn 8 00 am-4 30 pm EST 




Peterborough, N.H. 03458 



A division of Wayne Green Inc. 



"TRS-80 is a trademark of Radio Shack division of 

Tandy Corp. 

"Apple is a trademark of Apple Computer Co. 



.-See List of Advertisers on page 4 18 
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APPLICATION 



A calendar program for all you moon-eyed 80 owners. 



Sheer Lunacy 



Alan Harris 

6 Birch wood Court 

Aurora, IL 60538 



The following calendar pro- 
gram offers you a graphic 
representation of the moon for 
centuries past and centuries to 
come. 

The program finds dates and 
days of the week from as early 
as January 1, 100 A.D. and will 
project the same well into the 
future. The program uses to- 
day's calendar system, extend- 
ing its calculations backward 
and forward from the present. 
(In the eighteenth century cal- 
endars were revised, resulting 
in some panic over the loss of 
several days.) 

It takes into account all the 
leap years, on the following 
schedule: every year that is 
evenly divisible by four (exam- 
ple: 1904) is a leap year except 
those evenly divisible by 
100. For example, 1900 is not a 
leap year. 
However, every year evenly 



divisible by 400 (example: 2000) 
is a leap year. 

Five Options 

The program gives the user a 
menu of five options. 

• You can display a calendar 
for any month. The computer 
combines numbers and graph- 
ics to create an accurate wall- 
type calendar, with the correct 
number of days in the month 
(including February). 

• Given any two dates, the 
computer can calculate exactly 
how many days there are be- 
tween them, allowing for any in- 
tervening leap years. 

• It can tell you what day of 
the week any date you give it oc- 
curred or will occur on. 

• Given any date, and then a 
positive or negative number of 
days to add to it, the program 
will display the resulting date, 
again allowing for leap years. 

• It tells you how many days 
past a new moon any date you 
enter was or will be, using noon 
of that day as a reference point. 
This is accurate to within a few 
hours. It is inaccurate only 
because of the elliptical orbit of 
the moon. The moon's cycle is 
figured at 29.530587963 days. 

Further, the menu offers you a 
key that shows you a graphic 



Variable 
A(50): 



D$(7): 

M$(12): 

GR(24): 

A: 

AJ: 

C: 

D: 

F: 

J: 

K: 

L: 

M: 

N: 

ND: 

NM: 

NY: 

Q: 

S. 

V: 

W: 

X: 

Y: 

Z: 

R1: 

M1: 

X$: 

RY: 

RX: 

M1#: 

MD: 

MH: 

MM: 

Q1#: 

R1* 

Z1: 

72: 

Z3: 



Remark 

A(1)-A(12) contain the normal lengths ot each of the months 

A(1)-A(42) (later) contain the day numbers of the calendar display (6 

possible rows of 7 days each). 

Contains the names of the 7 days of the week. 

Contains the names of the 12 months. 

Table of numbers of width of each graphics line in drawing a full 

moon. 

Day number of first date (from day 0), then difference. 

Used In INKEYS to break out of calendar display 

Day of week (Sunday = 1) 

Day of month 

Absolute day number (from day 0) 

Subscript used in printing calendar array. 

The Y coordinate, used in setting the calendar s vertical lines. 

Length of month (in days) 

Month number (January = 1) 

Number of days to be added to the first date 

New day 

New month 

New year 

The Y coordinate, used in setting the calendar's horizontal lines. 

(a) A counter used in setting up the calendar array 

(b) Subscript for new month 
Choice number from the menu 

The X coordinate, used in setting the calendar's vertical lines. 

Utility variable 

Year 

The X coordinate, used In setting the calendar's horizontal lines. 

Single-precision number of days into moon's cycle 

Single-precision length of moon's cycle 

Used to INKEYS a response on whether to display moon. 

Counter used as subscript for GRO and Y coordinate for setting 

graphics points. 

X coordinate for setting moon display graphics points 

Moon's period of revolution in days (to several decimal places) 

Days past new moon 

Hours past MD 

Minutes past MH 

Number of moon periods since noon on day 0. 

Work variable for days, hours and minutes past new moon 

Temporary variable used in calculating new year. 

Ditto 

Ditto 

Table 1. Program Variables 



386 • 80 Microcomputing, December 1981 



display of the moon's phase on 
any date. Another option lets 
you see how the moon will look 
from one to nine days later, with- 



out requiring a new date. 

Table 1 lists the variables I 
used and Table 2 breaks down 
the program into sections.! 



Unas 


Remarks 


10-40 


Initialize, display instructions and menu; go to one ot five possi- 




ble subroutines. 


45-120 


Difference between dates, main routine 


200-230 


Day of week main routine 


400-896 


Calendar display main routine 


1000-1030 


Input month, day and year, and validate each. Year can be input 




as two digits if in the 1900s. 


1500-1520 


Input month and year, and validate each. 


2000-2040 


Calculate absolute day number from month, day and year. 


3000-3020 


Calculate day of week from absolute day number. 


3600-3690 


New date main routine 


3800-3840 


Data statements for arrays 


3850-3880 


Read data statements into arrays. 


4000-4230 


Arrive at month, day, year from absolute day number. 


5000-5100 


Print instructions. 


9000-9230 


Calculate age of moon (number of days past new moon) of a 




given date. 


9230-9580 


Display a graphics representation of the moon on that date. 




Table 2. Program Sections by Lines 



Program Listing 1. Date Handler and Moon Display 

10 REM * CALENDAR PROGRAM * 

11 CLEAR 150 

12 CLS 

15 DIM A(50) ,DS(7) ,H$(12) ,GR(24) 

16 GOSUB 5000:GOSUB 3800 

20 PRIMT-.PRINT "TYPE MODE: 1=CALENDAR, 2-DAYS BETWEEN, 3=DAY OF 

WEEK," 

25 INPUT " 4-NEW DATE, 5-MOON'S AGE";V 

30 IF V<1 OR V>5 GOTO 20 

40 ON V GOTO 400,45,200,3600,9000 

45 PRINT "FIRST DATE" 

50 GOSUB 1000 

60 GOSUB 2000 

70 A-F 

80 PRINT "SECOND DATE" 

90 GOSUB 1000 

100 GOSUB 2000 

Hi A-F-A 

120 PRINT "DIFFERENCE IS" ; A; "DAYS" :GOTO 20 

200 GOSUB 1000 

210 GOSUB 2000 

220 GOSUB 3000 

230 PRINT DS(C):GOTO 20 

400 GOSUB 1500 

410 D »i Program continues 



Program continued 

420 GOSUB 2000 

430 GOSUB 3000 

490 L-A(M) 

500 IF M<>2 GOTO 550 

510 IF INT(Y/4)OY/4 THEN L-28:GOTO 550 

520 IF INT(Y/400)-Y/400 THEN 540 

530 IF INT(Y/100)-Y/100 THEN L-28:GOTO 550 

540 L-29 

550 FOR X-0 TO C-liA(X) -0:NEXT X 

560 S-0 

570 FOR X-C TO C+L-1-.S-S+l : A(X) -SiNEXT X 

580 FOR X-C+L TO 42:A(X) «0:NEXT X 

590 CLS 

600 PRINT TAB(14) ,H$(M) ;Y 

740 PRINT 

750 PRINT TAB(3) "SUN MON TUE WED THU FRI SAT" 

760 FOR J-0 TO 35 STEP 7 

770 PRINT 

780 PRINT TAB(3) A( J+l) ;TAB(9) A(J+2) ;TAB(15) A( J+3) t 

790 PRINT TAB(21) A(J+4) ;TAB( 27) A( J+5) ;TAB(33) A( J+6) ;TAB(39) A(J+7 

) 

800 NEXT J 

810 FOR 0-4 TO 46 STEP 6 

820 FOR Z«2 TO 87:SET(Z,Q) :NEXT:NEXT 

840 FOR W»2 TO 86 STEP 12 

850 FOR K-4 TO 46 

860 SET (W,K):SET (W+1,K) 

870 NEXT: NEXT 

890 A$-INKEY$:IF A$-""GOTO 890 

895 RUN 

1000 INPUT "MONTH" ;M: IF M<1 OR M>12 GOTO 1000 

1010 INPUT "DAY";D:IF D<1 OR (D>29 AND M-2) OR (D>31 AND M<>2) G 

OTO 1010 

1020 INPUT "YEAR";Y:IF Y<100 THEN Y-Y+1900 

1030 RETURN 

1500 INPUT "MONTH";M:IF M<1 OR M>12 GOTO 1500 

1510 INPUT "YEAR";Y:IF Y<100 THEN Y=Y+1900 

1520 RETURN 

2000 IF M>2 GOTO 2030 

2010 F«365» Y+D+31 * (M-l) +INT( (Y-l) /4) -INT (.75*1 INT ( ( ( Y-1J/100) +1) 

)) 

2020 GOTO 2040 

2030 F»36 5»Y+D+31*(M-l)-INT(.4*M+2.3)+INT(Y/4)-INT(.7 5*(INT(Y/10 

0)+l)) 

2040 RETURN 

3000 C=F+(INT(F/7) *-7) 

3010 IF C«0 THEN C=7 

3020 RETURN 

3600 PRINT "FIRST DATE" 

3610 GOSUB 1000 

3620 GOSUB 2000 

3630 INPUT "NUMBER OF DAYS TO ADD (MAY BE + OR -)";N 

3640 A-F+N 

3650 IF A<1 PRINT "UNABLE TO HANDLE B.C. DATES" : GOTO 20 

3660 GOSUB 4000 

3670 F=F+N:GOSUB 3000 

3680 PRINT "NEW DATE IS ";DS(C) ; ", " ;MS (NM) ; STRS (ND) ; " , " [NY 

36 90 GOTO 20 

3800 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

3810 DATA SUNDAY, MONDAY, TUESDAY, WEDNESDAY, THURSDAY 

3820 DATA FRIDAY .SATURDAY 

3830 DATA JANUARY, FEBRUARY, MARCH, APRIL, MAY, JUNE, JULY 

3840 DATA AUGUST, SEPTEMBER, OCTOBER, NOVEMBER, DECEMBER 

3 843 DATA 16,24,30,34,37,40,43,46,48,50,52,53,54,55,56,57,57,58, 

58,59,59,60,60,60 

3850 FOR X=l TO 12:READ A(X):NEXT 

3860 FOR X = l TO 7:READ DS(X):!.EXT 



Program continues 
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™TRS80 color 

From the January '981 .ssue of the CSRA Computer 
Club newsletter 

There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that me software in the j 
ROM cartridges could not t>e copied. This 
month s 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some ol the connector pins with 
tape They promts* details nentmonti Never 
tell a hobbyist sorneewig can't be done! This 
magazine seems to be the only source so tar 
of technical information* on the TRS-80 color 
computer'* Devoted to SS-50 6800 ana 
6809 machines up to now 68 Micro Journal 
plans to include the TRS-80 6809 unit m 
> future issues 
^-— __— — ~~- v^~- 
To get the MOST from your 6809 CPU - This is the 
BEST SOURCE! The ONLY Magazine tor the 8809 
Computer Months Ahead ol An Others' 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 
Hixson, TN 37343 

USA 

1 V, - $18 SO 2 Vr - $32 SO 3 Vr . $48 SO 

•Fotagr. Surfaca Add $12 Yr to USA Pnca 

foragn K- Mail Add $3S Vr to USA P"C8 

•"-«•>*» «. Manco AOfl S5 50 Yi 10 USA Price ., 



►* See List of Advertisers on page 4 18 
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LOAD 
80 

LOADS 
EASY 



(SMD 



LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 




In the April, 1981 issue of 80 Microcomput ing, we 
introduced LOAD 80 to save you the time and trouble of 
typing our programs yourself. LOAD 80 cassette tapes 
contain dumps of the major program listings in 80 
Microcomputing . 

If you have not yet ordered any LOAD 80 tapes and 
wish you had, don't worry. We are now offering a "back 
issue" cassette program. You can order any LOAD 80 
cassette from April, 1981 to date for $9.95. Back issues 
of 80 Microcomputing are also available with the LOAD 
80 cassettes for $3.50. With the complete documenta- 
tion found in the companion magazine issue, you 
should have no difficulty loading any of 80's major 
programs. 



Please send me the following: 

month year 
Tapes Magazines 



month year 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes 
overseas, add $1.00 


$9 96 






80 Microcomputing 
add $1.00 per magazine for postage and 
handling if ordering magazines 


$3.50 








T 


OTAL 





Check Enclosed Bill my: D MC C AE H VISA 



NAME 

ADDRESS 
CITY 



STATE, 



CARD# 

SIGNATURE 



ZIP. 

EXP. DATE 



INTERBANK #. 



Please allow 4-6 weeks for delivery 

LOAD 80 • 60 Pine Street • Peterborough NH 03458 

Attn: Oebra Boudrieau 



Program continued 

3870 FOR X»l TO 12:REM> M$(X):NEXT 

3872 FOR X-l TO 24:READ GR(X):NEXT 

3 880 RETURN 

4000 NY-0HF A<366 THEN NY=-l:GOTO 4199 

4005 A-A-365 

4010 IF A>146997 THEN A-A-146097 : NY=NY+400 : GOTO 4010 

4020 Z1=0 

4030 IF Zl-309 GOTO 4059 



Il»Zltl00 : A-A-36524:(V>TO 4030 



4049 IF A>36524 THEN 
4959 NY-NY+Z1 
4969 Z2-9 

4079 IF Z2-96 GOTO 4090 

4080 IF A>1461 THEN Z2-Z2+4 : A-A-1461 :GOTO 4070 
4099 NY-NY+Z2 

4199 Z3-0 

4119 IF Z3=3 GOTO 4130 

4129 IF A>365 THEN Z3-Z3+l:A-A-365 : GOTO 4110 

4139 NY-NY+Z3 

4149 IF Z3<3 GOTO 4190 

4150 IF Z2<96 GOTO 4180 
4160 IF Zl-399 GOTO 4189 
4179 GOTO 4199 

4189 A(2)-29:COTO 4200 

4190 M2)=28 

4200 S-l 

4219 IF A>A(S) THEN A-A-A(S) :S=S+1 :GOTO 4210 

4220 NM-S:ND-A:NY-NY+1 
4239 RETURN 

5990 PRINT TAB(14) "CALENDAR AND DATE PROGRAM" 

5919 PRINT TAB119) 'BY ALAN HARRIS" 

5020 PRINT 

5030 PRINT "THIS PROGRAM DOES ANY OF THE FOLLOWING:" 

5040 PRINT "1. GIVEN A MONTH AND YEAR, DISPLAY ITS CALENDAR." 

5050 PRINT "2. GIVEN TWO DATES, FIND THE NUMBER OF DAYS BETWEEN 

THEM." 
5060 PRINT "3. 
5070 PRINT "4. 
5075 PRINT " 
5077 PRINT "5. 
T DAY." 

S080 PRINT "NOTE: 
TES." 
5099 PRINT ■YOU MAY OMIT FIRST 2 DIGITS OF YEARS IN THIS CENTVRY 



GIVEN A DATE, FIND ITS DAY OF THE WEEK." 

GIVEN A DATE AND AN INCREMENT, FIND NEW DATE." 

EXAMPLE: 2/28/72 + 2 DAYS ■ 3/01/72" 

GIVEN A DATE, FIND THE MOON'S AGE AT NOON ON THA 

PRESENT CALENDAR SYSTEM IS ASSUMED FOR ALL DA 



5199 
9999 

9919 

9929 

9939 

9949 

9959 

9955 

9969 

9979 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9155 

9160 

9170 

9180 

9190 

9200 

9219 

9229 

9239 

WISE 

9249 

9250 

9260 

9270 

9280 

9299 

9399 

P -1 

9319 

9329 

9339 

9349 

9359 

9369 

P -1 

9370 

9388 

9398 

9499 

9419 

9429 

9439 

1 

9449 

9459 

9469 

9479 

9480 

9498 

1 

9599 

9518 

9529 

9539 

9532 

9533 

9538 

9540 

9550 

9560 

9580 



PRINT: RETURN 
GOSiJB 1999 

GOSUB 2999 

GOSUB 3999 

M14-29. 530587963 

Q1»-(F-21. 9843139080391 2) /HH 

R19-(01l-INT(Qlt) ) "Mil 

R1-R1I:M1-M1I 

MD-INT(Rll) 

Rlt-Rll-INT(Rll) 

R1MR1»*24 

MH.INT(Rll) 

R1»-R1#-INT(R1I) 

Rl#«Rlt*69 

MH = INT(R1») 

MM=MM-10 

IF MM<9 THEN MH-MH-1 : MM-MM+69 

IF MH<0 THEN MD=MD-1 :MH=MH+24 

IP HD<0 THEN MD-29 

CLS:PRINT"AT NOON ON ";D$(C);" r " ;M$ (M) ; STRS (D) ; " , " ; Y 

PRINT "THE AGE OF THE MOON IS" ;MD; "DAY " ; 

IF MDOl PRINT'S"; 

PRINT* , " ;NH; "HOUR" ; 

IF HBO] PRINT'S"; 

PRINT" , " ; MM ; "MINUTE" ; 

IF MMOl THEN PRINT'S" ELSE PRINT 

PRINT: PRINT'TO SEE A PICTURE OF THIS MOON, TYPE AN X; OTHER 

TYPE A Y.* 

XS=INKEYS:IF X$«""GOTO 9240 

IF X$<>"X" GOTO 20 

CLS 

IP Rl>Hl/2 GOTO 9410 

FOR RY-1 TO 24 

IF INT(Rl/(Ml/2)»GR(RY)*2)-9 GOTO 9330 

FOR RX«62*GR(RY) TO 62+GRIRY) -INT(R1/ (Ml/2; •GR(PY) *2) +1 STE 

SET(RX,RY-1) 

NEXT 

NEXT RY 

FOR RY-24 TO 1 STEP -1 

IF INT(Rl/(Ml/2)*GR(RY)*2)-0 GOTO 9390 

FOR RX»62+GR(RY) TO 62+GR ( RY) -I NT (Rl/ (Ml/2) *GR ( RY) *2) +1 STE 

SET(RX,48-RY) 

NEXT 

NEXT RY 

GOTO 9539 

FOR RY-1 TO 24 

IF INT( (M1-R1)/(M1/2)«GR(RY)*2)=0 THEN 9468 

POR RX-63-GR!Ry; TO 63-GR(RY)+INT((Ml-Rl)/(Ml/2)«GR(RY)*21- 

SBT(RX,RY-1) 

NEXT 

NEXT RY 

FOR RY-24 TO 1 STEP -1 

IF INT( (M1-R1)/(M1/2)*GR(RY)*2)=0 THEN 9520 

FOR RX-63-CRIRY) TO 63-GR(RY) ♦INT( (Ml-Rl)/(Ml/2) *GR( RY) *2) - 

SET (RX.48-RY) 

NEXT 

NEXT RY 

PRINT90,"EXIT-X"; 

PRINT964, "ADVANCE-1-9" ; 

PRINT °U 28, "DAYS" j 

X$»INKEY$:IF XS»" THEN 9538 

IF X$<"1" OR XS>"9" THEN RUN 

R1«R1+VAL(X$) 

IF R1>M1 THEN R1-R1-M1 

GOTO 926 
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SICK 



OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL VER. 1.1 

• No complicated initialization 

• EDIT& LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 

• SALARIED or hourly 

• SPECIAL PAY — special hours 

• TWO SAVINGS— including RIA 

• CLASSED by occupation or dept 

• PAYSTUB shows Year to-Date 

• STATE — FICA— FED. TAXES-SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE— customized to your state tax 

Documentation $1000 
Disk & Documentation $95.00 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year's depreciation 

• OR complete list ot all property 

• PRINTOUT shows— I D Number — description — 

• Yr purchased — life— method— 
1st yr additional depreciation — 

• Reg deprec — deprec prior yrs —balance 

• SUMMARY — total value prop additional 1st yr 

• REGULAR deprec —deprec prior yrs 

• PERMANENT records tor your taxes 

Documentation $1500 
Disk 4 Documentation $195 00 

MIN 32K — 1 DISK — PRINTER/132 CPI 

TERMS Personal checks require 3 weeks to clear 

USE-VISA — MASTER CHARGE-MONEY ORDERS 

TEL 7 PM 930 PM EASTERN-(617) 359-2364/6370 

SEND SASE tor additional information 

MEDFIELD "** 1 
COMPUTER SOFTWARE 

39 GREEN ST , MEDFIELD. MA 02052 




Sungeon ^Escape 



A Super, real time game with a Dungeon and Dragon 
Theme Graphics, sound and more (14.95/ 19.95) 

Scarfman 

Clase to the Packman arcade game (14.18/ IMS) 
Close to the Packman arcade game III4.N/ ll.tS) 

Alien Defender 

• ! Arcade game ot the year it you don't have it get >t 
now a.a-lOe '-• modei and III (S1I.M / $24.11) 

SuperMeter 

Plugs m between your computer and the tape piaye' 
shows you the best loading level and can be used to 
adiust 'he head position S2S 90 

Print Buffer 

G'eatest peripheral since disk drives Acts like a 
tunnel Your computer can send data tc lhe printer 
•aste- then the printer can accept it So the butter tills 
up ano ets you use the computer while the printer is 
Still printing Has its own I 6K memory 30 day trial ll 
you don't like it send it back. No quesiions asked 

Print Butter $»l.00 



Wabaah Disks 




The Best disks you can buy Super Premn, 


m 


80 track double density 


Mi •• 


80 track doubie dens.ty 2 Sides 


S3) DO 


8 nch double density 


SJi 00 


Ait Guaranteed 'or 2 Years 





Please inclose $2 00 lor shipping and handling MC 
and Visa OK 

Qlnrlnrk HUarchousr 



1691 Eason • Pont.ac. Ml 48054 
(3131673-2224 • (313) 673-8700 

Dealer inQuires invited' 



-433 




mmmmmmmmm 



FREE EPSON MX-80 PRINTER 



With the ' 

purchase of o . , . 

TRS 60, Model 






For a limited time, Doto Services, Inc., will 
give you a FREE Epson MX-80 Printer ($645 
value), when you buy o TRS 80 Model III, 46k, 
with 2 PEP.COM 40 track drives, at a regular 
price of $2,495 

(Optional R5 232 S90 extra Radio Shack w/RS 232 J1 70 
extra Printer cable - add S35 00) 

The perfect system, the perfect price! 

TRS 80 Model III, 48k - two PERCOM 40 

track drives - EPSON MX-80 Printer. 

Data Services offers more — APPARAT S 
NEWDOS80. version VER 2.0, regularly $149.95 
— now only $129.95 (Model III units only.) 

Up to 20% savings on TRS computers — 
accessories — programs, Plus: EPSON / 
PERCOM / APPARAT / HAYES / SMARTMODEM / 
VERBATIM DISKETTES. 

*TRS-80 is a trademark of Tandy Corporation 




■ FREE SHIPPING in 48 contiguous states. 

■ No Soles Tax on out-of-state orders. 

■ Visa /Master Cord welcome. 

■ Personal checks, allow 3 weeks to clear. 

■ (International orders, freight F.O.D. Wichita, 
Kansas) 

CALL TOLL FREE: 1 -800-835-1 1 29 

or order by mail from: 

DfllH SERUJCES, UC 

COMPUTER SERVICES SINCE 1 970 ^ 249 

P.O. Dox 1 1 57 Wichita, Kansas 67201-1 1 57 
(In Kansas, call 1-316-838-9021) 



-»S## List ot Advertisers on page 4 Tfl 
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UTILITY 



This processor really gives you your words worth. 



The Write Stuff 



Lynard Barnes 

1640 West Adams Street 

Chicago, IL 60612 



When typing at 75 words per 
minute and 45 of those 
words are throwbacks to the age 
of Chaucer, it is nice to have a 
computerized typewriter. Era- 
sure is but a keystroke away. 

TXTWRT, an assembly pro- 
gram, is the core of a more 
elaborate word processor. It 
should be of interest to those of 
you who, like me, learn primarily 
from doing. The learning is a 
basic assembly program; the 
doing involves expanding and 
modifying it. 

TXTWRT runs on a Level II, 
16K, unmodified cassette-based 
system. As written, using Ra- 
dio Shack's Editor/Assembler, 
TXTWRT enters text into a pre- 
assigned area of memory (a buf- 
fer) using upper and lowercase 
characters. With the program 
you can save the buffer content 
to tape or send it to a printer 
and load a saved buffer from 
tape. You can obtain multiple 
copies of the same text by sav- 
ing it on tape for later loading 
and printing. 



Creating A Buffer 

TWTWRT starts at decimal 
address 17999 (464FH). Twelve 
thousand bytes of memory are 
reserved for text. You can select 
one in-text control code (ex- 
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plained below), and seven over- 
all program operations from the 
options table. 

Modify and expand the pro- 
gram to suit your purposes. 
With a few hours work you can 
turn it into a full-blown word pro- 
cessor. Change the Origin state- 
ment in line 100 to locate it any 
place in memory. Be careful to 
change the amount of memory 
area reserved for text input. 

In line 3220 (see Program List- 
ing 1) Buff is Equated with $. 
The DEFS function reserves 
12,000 bytes of memory for Buff, 
the string storage area. The 
starting address of the buffer 
area is 18740 (4934H). Subtract- 
ing the origin address from the 
start of the buffer, we discover 
that the main program with sub- 
routines is 749 bytes long. Add 
12,000 bytes set aside for the buf- 
fer and four memory addresses 
for Store. The total area of 
memory occupied by TWTWRT is 
from 17999 to 30748 (781 CH). 

The alternative to equating 
Buff with $, letting the DEFS 
function determine the starting 
address of the buffer, is to 
equate Buff with a specific ad- 
dress. Line 3220 could have 
equated Buff with 18740. If you 
add more code to the program, 
you must change the address. 
With 2000 bytes of free memory, 
add code being careful not to 
push the end of the buffer be- 
yond 32667 (saving 100 bytes for 
the stack). 

Line 3240 reserves two mem- 
ory addresses for Store. Before 
anything is put into the buffer 
from the keyboard, Store con- 
tains the beginning address of 
the buffer. As each character is 



entered, the address in Store is 
incremented. Store acts as a 
pointer, showing the input rou- 
tine in LOOPTX (line 670) where 
keyboard input is to begin in the 
buffer. Input always begins at 
the address from which entry 
was last made; you cannot ran- 
domly enter the buffer area. 

Program Flow 

After the program is loaded 
using System, Enter and press 
the Break key. The screen clears 
and displays the options table. 
The program loops at SCAM 
until you make a selection. Be- 
fore entering text either from the 
keyboard or tape you must clear 
the buffer area with Option 6, 
KILL BUFF. You might want to 
see what information the first 
1020 locations contain before 
clearing the buffer. 

Option 7— View first 1020 
bytes of buffer: This option 
jumps to address 18484 (4834H). 
The screen clears at line 2870 
and the first 1020 bytes of the 
buffer move to the screen. If you 
have put nothing into the buffer 
it will contain computer gar- 
bage, if you have entered text, 
the lowercase characters will 
not display as such. Use this op- 
tion to discover the name of 
Basic programs or machine- 
code tapes. The LOAD TXT op- 
tion will load anything written to 
tape at the 500-baud rate into 
the buffer area. 

In a block move HL register 
pair loads with the source 
memory block, DE loads with 
the destination, and BC with the 
number of bytes to be moved. 
The LDIR in line 2910 counts the 
bytes moved, decreasing BC 



and moving the data. 

After the block move the key- 
board scan routine in lines 
1520-1590 is called. The pro- 
gram loops here until any key is 
pressed, returning program flow 
to the VWTEXT routine at line 
2930. A jump is made to again 
display the options table. 

Option 6— Kill Buff: This is a 
mandatory flow for proper pro- 
gram operation; make this op- 
tion automatic by changing line 
3260 to: 



END 



START 



The program will begin execu- 
tion at memory address 17999 
(464FH) rather than at address 
18029 (466CH), the options 
table. 

Whether a selected option or 
automatic program flow, regis- 
ter A is loaded with null (as op- 
posed to decimal zero). HL regis- 
ter pair is loaded with the begin- 
ning of the buffer, and BC is 
loaded with the number of bytes 
to be cleared. LOOPCL loads the 
contents of A into the first mem- 
ory address of the buffer. HL is 
then increased by one. This ac- 
tion repeats until both the B and 
C registers contain zero. 

The buffer address then loads 
into Store. The buffer address 
starts at 18740 (4934H) and 
never changes. Store, Equated 
with address 30723 (7803H). also 
never changes. The information 
contained in Store will change 



The Key Box 

Model III or I 
Basic Level II 
16K RAM 



as text is entered. 

The first entry made in the 
buffer (line 340) is the graphic 
code 191, the buffer terminating 
code. This code is always at the 
end of the buffer, indicating the 
memory address of the last char- 
acter entered, plus one. The code 
is written over during input. 

The TB variable store address 
is loaded in lines 350 and 360 
with the numerical constant 
five. When the right arrow is 
pressed during text input the 
cursor tabs forward five spaces 
and the buffer loads five spaces. 
Change the tabbed spaces by 
changing the number loaded in- 
to the A register in line 350. 

From this point the program 
flows back to the options table 
loop, ready to enter text into the 
buffer from the keyboard or 
tape. 

Option 1 —Add TXT: A jump is 
made to line 1420. (CHECK1), 
the screen clears and the cursor 
turned on. The IX register pair 
loads with the beginning address 
of the buffer and MESSAG (lines 
1630 through 1790, is called. 
MESSAG loads the screen with 
any information starting at the 
address specified by the con- 
tent of the IX register pair. 
Loading pauses when Enter is 
pressed, and resumes when any 
other key is pressed. The pro- 
gram exits this subroutine when 
the null character loads into the 
A register, or the buffer ter- 
minating code 191 loads. 

CHECK1 continues at line 
1470 where the buffer address 
loads into the register pair BC. 
The input routine uses only two 
registers and one pair during the 
tab operation. A, BC and D. 

The program jumps to LOOP- 
TX, address 18078 (469EH). The 
main loop of the input routine 
calls the key scanning routine in 
ROM, which waits for a key to be 
pressed before returning. Upon 
returning, the value of the key 
pressed is in the A register. A 
call to CRT displays the keyed 
entry on the screen, or positions 
the cursor for a control key (car- 
riage return, upward or down- 
ward linefeed). The buffer ac- 
cepts all control key entries ex- 
cept the right arrow (intercepted 
in line 750 as the tab key) and 
the shifted @ (intercepted in 
line 710 as code for ending in- 



put). You can use any key for a 
special function with the follow- 
ing format: 

CP (name key designated tor 
special (unction) 

JP Z. (label of special (unc- 
tion subroutine) 

If the content of the A register 
is the same as the character or 
character code following CP, 
the Z flag is set. If the A register 
content and the character or 
code following CP are different 
the Z flag is reset (becomes 
zero). 

The Compare-Jump instruc- 
tion is illustrated with the logic of 
the Basic If. . .Then statement. 



JP Z.NULOC meaning HZ = 1 TnenGOTO 
NULOC ELSE 
If Z = 0Then get in 
struction below 

Compare-Jump instructions 
control assembly program flow 
just as effectively. 

Line 1000 is a relative jump in- 
struction. A JR jump does not 
tell the program to jump to a 
specific address, but computes 
the number of opcodes between 
its own location and the address 
to which it jumps. In line 980 the 
A register loads with the mem- 
ory address of the shift key. If 
the shift key was pressed during 
the call in line 670, the shift key 
address 14464 (3880H) will con- 
tain a one. Line 1000 controls 
the flow of the program after a 
test determining whether the 
shift key was pressed (line 990). 
Illustrating again with the 
If. . .Then statement: 



JR NZ.TEST0 IFZ = 0Thendropdown6 
opcodes ELSE 
IF Z = 1 Then get mstruc 
lion below 



The JP instruction would 
make line 1000 longer by one 
memory address. JR makes a 
program shorter and relo- 
catable. The 46 labels in this as- 
sembly program refer to 
memory addresses within the 
program, TEST0 refers to mem- 
ory address 18168 (46F8H). JR 
NZ,46F8 results in the opcode 
2006, where 06 is the number of 
opcodes the program must skip 
to get to address 46F8H. Jp 
NZ.46F8 results in the opcode 
CAF846. 

All jump instruction between 



lines 700 and 960 could be 
changed to relative jumps; the 
program would be shorter by 
eleven opcodes. The JR instruc- 
tion takes slightly longer to ex- 
ecute than JP. If the number of 
opcodes the program skips (for- 
ward or backwards) is greater 
than 129 or 126 respectively, you 
must use the JP instruction. 

Line 970 saves the content of 
the A register by a PUSH instruc- 
tion. A test determines whether 
the content of the A register 
(now pushed onto the stack) is 
to load into the buffer as a 
lowercase or uppercase charac- 
ter. When this test determines 
the shift key was pressed, the 
original content of A is popped 
from the stack back into A, and 
bit five is reset to zero (upper- 
case). A JP is made to TURE in 
line 1060 where the character 
loads into the next buffer ad- 
dress and LOOPTX begins 
again. 

If the Shift key was not 
pressed, a relative jump is made 
to line 1040 where the content of 
A is popped from the stack and 
bit five is Set to one (lowercase). 

A test is made in line 710 for 
the shifted @. If this character 
is found, input is immediately 
terminated and a jump made to 
line 1 120. The A register is load- 
ed with the graphic code 191. 
and loaded into the buffer. In 
line 1140, the current buffer ad- 
dress in the BC register pair is 
loaded into Store. The cursor 
turns off and a jump to line 400 
displays the options table. 



The only in-text control code 
in this program is the # symbol, 
used as an end of page marker. 
When the contents of the buffer 
are sent to the printer a Com- 
pare-Jump instruction inter- 
cepts the # symbol. The code to 
move the paper to the top of- 
form goes to the printer, starting 
a new page. 

To print double-width or com- 
pressed characters, underlines 
or subscripts, select your in-text 
control code as one, two or three 
characters. Enter them with 
your text. Set up Compare-Jump 
instructions to pull in-text codes 
out of the printer stream. Use a 
tier test to check for sequential 
multiple character occurrence. 
Subroutines make the second 
(or third) test and send the con- 
trol code recognized by your 
printer. 

Option 3— Save TXT: This op- 
tion saves the buffer contents to 
tape. The program jumps to line 
1940. clears the screen and 
displays a prompt message. The 
A register clears and calls to 
ROM to turn on the cassette and 
write the sync byte. HL loads the 
address of the buffer. The 
WRLOOP sends the buffer con- 
tents to tape until the ter- 
minating code 191 is loaded into 
A. The program jumps to GO- 
BACK, the cassette turns off 
and the options table displays. 
At PAGE, A loads with null to 
zero the line print count at ad- 
dress 16425 in ROM. The PRT- 
OUT routine uses the line printer 
routine in ROM. Next, A loads 



01C9H 


KLSC. Clears screen 


0033H 


CRT. Displays A register 


002BH 


KBSCAN. Scans keyboard re- 




turns if no key pressed 


0049 H 


Scans keyboard; does not re- 




turn until key is pressed 


032AH 


Formats A register and displays 




on screen 


0212H 


Turns on cassette 


0287 H 


Writes sync byte to tape 


0264 H 


Writes A register to tape 


0296H 


Finds sync byte on tape 


0235H 


Loads byte from tape and puts 




in register A 


01F8H 


Turns off cassette 


37E8H 


Line Print driver address in 




ROM 


1A19H 


Entry to Basic. Displays Ready 




prompt 




Table 1. ROM Routines 
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with the Epson MX-80 code for 
top-of-form paging. After the 
call to PRTOUT sends this code 
to the printer, program flow 
returns to PAGE which in turn 
returns the program flow to the 
main print routine. 

If A does not contain a car- 
riage return or the end-of-page 
marker, a relative jump over 12 
opcodes is made to address 
18472 (4828H) where program 
flow returns to the main print 
routine in line 2480. Every 
character in the buffer is tested 
in the Space subroutine. 

Suppose you wanted to print 
a line of text in double width. Us- 
ing a colon at the beginning of 
the line as the in-text control 
code, you could intercept pro- 
gram flow, before the left mar- 
gin has been set. with a Com- 
pare-Jump test in Space. The 
jump would be made to a routine 
labeled DBL. where you would 
load the control code for print- 
ing double width into the A reg- 
ister and call PRTOUT. If your 
printer does not automatically 
exit the double width mode 
upon receiving a carriage return, 
you would also need a termi- 
nating code and a routine to 
send it to the printer. The entire 
concept involves repetitious op- 
codes with only the printer 
codes, loaded into A, changing. 

If you have a printer which 
mixes different modes of print 
on the same line, you can in- 
crease the program by 70 per- 
cent with in-text control code 
tests and printer codes. 



Program Limitations 

This program is ROM-de- 
pendent (see Table 1). Frequent 
calls to address 01C9H in Basic 
ROM efficiently clear the 
screen; the programmer does 
not need to write code. ROM 
routines written and run on dif- 
ferent computers must have the 
same routines in the same ROM 
memory addresses. 

There is no way to know when 
the end of the buffer is reached. 
Set up another register pair (DE 
or HL) to act as a character 
counter: Load it with the number 
of bytes available and decrease 
it as characters are entered or 
load the register pair with zero 
and increase it. In either case, 
provide a prompting message 
stating "The End" after a test for 
zero in the low-order byte regis- 
ter. (The A register would have to 
be loaded with zero before a CP 
test could be performed.) 

TXTWRT accepts numerical 
values from the keyboard other 
than in the selection of options. 
No numerical values are dis- 
played from memory addresses 
used to store numbers. To input 
numerical values into the pro- 
gram, use a routine converting 
ASCII digits into Binary, and 
store the result in a memory ad- 
dress for future use. To display 
numerical values from memory 
addresses, such as the current 
address of the buffer in Store, 
use a routine to convert binary 
into ASCII. Expand TXTWRT by 
including both such routines. ■ 



Program Listing 



46 4P 

TEXT 
• 1C9 
C IN ROM 



08001 ; TXTWRT 

00002 | 

00004 ; 

00005 ; 

00100 ORG 

00110 KLSC L-QU 



BY LI' HARD BARNE 

NAY, 1981 

17999 ;HAY BE CHANCED. SEE 
01C9H ;CLEAR SCREEN ROUTIN 



464F 3E00 
4651 213449 
4654 01E02E 

4657 77 

4658 23 

4659 05 
46SA 20PB 
465C 0D 
465D 20F8 



ADDRS. TB IS 
B SPACES 



00120 
00130 

00140 

00150 

00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 

00280 

00290 

00300 



'START' LOADS MEM ADDRS IN BUFFER WIT 



START LD 
LD 
LD 

LOOPCL LO 
INC 
DEC 
JR 
DEC 
JR 



A,0H 

HL.BUFP 

BC, 12000 

(HL) ,A 

HL 

B 

NZ, LOOPCL 

c 

NZ, LOOPCL 



STORE IS LOADED WITH BEGINNING OF BUFF 
IS LOADED WITH NUMBER 5, DESIGNATING TA 

Program continues 



Program continued 



465F 213449 
4662 221478 
4665 36BF 
4667 3E05 
4669 321678 



00310 ; 
00320 

00330 
00340 
00350 
00360 

00370 ;' 

00380 : 
00390 :' 



466C CDC901 00400 OPTS 
466F DD215948 00410 
4673 CD6247 00420 



4676 CD5547 
TION 

4679 FE31 
467B CA3F47 
467E FE32 

4680 CAC047 
4683 FE33 
4685 CA9347 
4688 FE34 
468A CAF147 
468D FE35 
468F CA3149 
4692 FE36 
4694 CA4F46 
4697 FE37 
4699 CA4548 
469C 18DB 
AGAIN 



TO BUFFER. 
Kl' TO 

IS LOADED 



80430 SCAN1 

00440 
00450 
00460 
00470 
00480 
08490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 



00590 
00600 

00610 

00620 

00630 

80640 

00650 



469E CD4900 
NE IN BASIC 
46A1 CD8947 
YS ENTRY 
46A4 PE0D 
46A6 CA0F47 
46A9 FE60 
T '#• 

46AB CA1447 
46AE PE08 
E CHARACTER 
46B0 CA2347 
46B3 FE09 
AB 

46BS CA2947 
46B8 FE22 
46BA CA0A47 
46BO FE28 
46BP CA0A47 
46C2 FE29 
46C4 CA0A47 
46C9 CA0A47 
46CC FE27 
46CE CA0A47 
46D1 FE2A 
46D3 CA0A47 
46D6 FE21 
46D8 CA8A4 7 
46DB FE24 
46DD CA0A47 
46E3 FE2B 
46E2 CABA47 
46E5 FE3F 
46E7 CA0A47 
46EA FE3C 
46EC CA0A47 
46EF FE20 

46F1 CA0A47 
46F4 FE3E 
46F6 CA0A47 
46F9 F5 
46PA 3A8038 
TH SHIFT KEY 
46FD FE01 
46FF 2006 
LOWERCASE 

4701 Fl 

4702 CBAF 

TO UPPERCASE 
4704 C30A47 

4707 Fl 

4708 CBEF 
SE 

470A 02 
BUFFER 
470B 03 
470C C39E46 
AIN. 
47DF 02 
MPS HERE. 

4710 03 

-UP FOR LINES 

4711 C39E46 
4714 3EBF 

E BUFFER 

4716 02 
CODE 191 

4717 ED431478 
ND ADPRS 



00660 ; 

00670 LOOPTX 



006 90 
00700 
00710 

00720 
00730 

007 48 

00758 

00760 
00770 
007 88 
00790 
00800 
00810 
00620 
00840 
0085C 
00860 
00870 
0088U 
00890 
00900 
30913 
30920 
00930 
03940 
00942 
30944 
00946 
00948 
00950 

00952 
00954 
00960 
00970 
00980 

00990 
01000 

01010 
01020 

01030 

01040 TEST0 
01050 



01078 

31080 



C1C90 NEXLN 
01100 



01110 
01120 OPTSl 



31130 

01140 



HL.BUFF 
(STORE) ,HL 
(HL) ,191 
A, 5 
(TB) ,A 



OPTIONS 



TABLE 



CALL KLSC 

LD IX, Ml 

CALL MESSAG 

CALL KBSCAN 



;WAIT FOR USER SELEC 



Z,CHECK1 

'2' 

Z.TXTLOD 

'3' 

Z.TXTSVA 

•4" 

Z.HARDC? 

■5' 

Z, BASIC 
'6' 

Z , START 

'7' 

Z.VWTEXT 

SCAN1 ;NO SELECTION, WAIT 



THIS SECTION la FOR ENTERING DATA IN 
•1' SELECTED, PROGRAM JUMPS TO 'CHEC 
DISPLAY BUFFER CONTEST IF ANY. ' 3C ' 
WITH ADDRS OF LAST BUFFER ENTRY. 



CALL 

CALL 



04911 
CRT 



0DII 

Z, NEXLN 



C? 
J? 
JP 



JP 
CP 

JP 

CP 
JP 

CP 

JP 
CP 

.IP 



rSAME AS INKEY ROL'TI 
;THIS ROUTINE DISPLA 
; CARRIAGE RETURN 
96 ; END INPUT WITH SHIP 

Z, OPTSl 

8 ;BACK ARROW TO DELET 

Z.BKSP 

9 ; FORWARD ARROW FOR T 

Z.ADV 

34 ; QUOTATION HARKS 

Z.TURE 

•(' 

Z.TURE 
') ' 

Z.TURE 
Z.TURE 

Z.TURE 

Z.TURE 

Z.TURE 

•S' 

Z , T'JRE 

' * ' 

Z.TURE 

Z.TURE 
'<• 

Z.TURE 
20H 

Z.TURE 

'>' 

Z.TURE 

AP ;SAVE 'A' REGISTER 

A,(3880H) (LOAD 'A' WI 

1 ;WAS SHIFT KEY HIT 
UZ.TEST0 ;IF HOT COHT 



;IP SPACE, GOTO TRUE 



JP 

PC? 



LD 

rue 



;SHIFT-KEY?, CONVERT 



J CONVERTS TO LOWERCA 
;LOAD CHARACTER INTO 



AF 

TURE 
AF 
5, A 

(bc) ,; 

BC 

LOOPTX ; BEGIN INPUT LOOP AC 

(BC),A ;UP01I CR, PROGRAM JU 

BC ; COUNTERS HAY BE SET 

LOOPTX ;OF TEXT IN BUFFER. 
A, 191 ;END INPUT: TERMINAT 

(BC) ,A ;BY LOADING IT WITH 

(STORE) ,BC ;STORE NEW E 

Program continues 
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Qmab 

Publish pf Perish ? 

An exaggeration of course 1 Out your 
choice of a software publisher can 
moke the difference between success 

Ci rned'OCre future for your program 

SRA a subsidiary of IBM and a leading 
publisher of top quality educational 
software mvites authors and creators of 
superior softwcre tc submit completed 
programs for evaiuofon ond 
consideration fc publication 

We ore nte'esteo in programs for the 
i DM Personal Computer the Apple II® 
Personoi Computer ond the TRS 8C™ 
Mode in and Color Computer in these 
areas 

• Dusmess and historica 1 
simulations 

• Adult and children s education 

• Gomes 

• Personal enrichment 

Only those submissions that meet our 
exacting standords for quoiity 
originality and plOyobi'ity will be 
published 

If the idea of adding your superior 
program to our top quality product line 
appeals to you and youd like to discuss 
the possibilities contact us for detoils 

fteg ste'ed fodemorKs ot 
Apple II® Apple Compute's l*x 
'ftS 9CTM Tondv Co'po'Qtion 



Science Research Associates. Inc. 
Software Products Department 
155 North Wacker Drive 
Chicogo. Illinois 60606 *- 293 



CANADIANS 

NOW IN STOCK 

ACORN SOFTWARE 

BIG FIVE 

INSTANT SOFTWARE 

CREATIVE COMPUTING 

ADVENTURE 

INTERNATIONAL 

APPARAT INC. 
EPSON PRINTERS 

MANY MORE 

MOD I • MOD III • COLOR 

Excellent 5V Diskettes 
S. Den or D Den 
Fully Guaranteed 

Lower Case Mod - Mod I 
One IC $29 95 

IBM Seiectnc Printer 
Conversion Kit $825 00 

VISA 

Phone or Write for Info. 
(403) 423-3919 

CMD MICRO 

PO Box 1212 

Edmonton, Alberta 

T5J 2M4 



U Merry Christmas *i*^il' ,\ 

oil - 




systems 



PC BostlS 

101 W. Plant Str»«1 

*ln«r C^'tftn. FL 13717 

S'or» JOS (77 7S30 

(BBS i 30S-I'7 Jtl» 



V APHORIZED SOUTH EASTERN REGION SERVICE 
CENTER FOR AM ELECTRONICS 





*c 



One Vpot Worranty on Poriec & Teac Drives 

Model III Drive Kit AM-I $445.00 

S 48K 2-DiskPertec Flippy S1825. 00 Christma* 
ft 48K 2 Disk Teac $1825.00 Special 

K 40 TKPertec Flippy 20ms $230.00 

•A 40TKTeoc20ms 5230.00 

i 40TKTandon 6ms 5230.00 

V 80TKTeoc 20ms $325.00 

•3: 5 V* COMPLETE DRIVES a dd $45.00 to Bare price. 

AM Multiplier Double Density $99.95 



OKIDATA PRINTERS tCAU 
EPSON PRINTERS $CALL 



| 

ll 

:< 

■C CMM wirhanorow. We have a connection -M 

]< BBS on line for you' use 



5' 4 FLOPPY DRIVE REPAIR $35 00 Flat Rote 

^W OPEN 3-9 pm (EST) MON— FRI fgfl 
■HWl Technician available after 5 PM. ^MMI 



Upgrade Your TRS-80 






NEC 41 16- 200 NS 

8 for $ 17§0 



Order Toll Free 

800-538-5000 800-662-6279 (CAL.) 

* TRS-80 is a registered trademark ot Radio Shack, a Tandy Company. 

^247 
JDR MICRODEVICLS, INC. TERMS For shipping maude $2 00 tor UPS Ground. $3 00 to' 
1224 SO. BaSCOm Ave. UPS B,ue LaDo1 A,r $'0 00 minimum order Bay Area Res. 

kUk'O San Incp pA QC190 dents add 6'. -% sales tax Cantorma Residents add 6% sales 

C* onn cio UH 1 ortf, ceo M7 / o»\ ,dx We reserve lhe "9 hl ,0 llm,, Quantities and substitute 
J 800*538-5000 • 800-DO2-6279 ( CA) manufacturer Prices subiect lo change without notice 

(408) 995-5430* Telex 171-110 Send SASE tor complete isl 




'See List ot Advertisers on page 418 
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Program continued 




FROM TAPE «* 














47C3 DD21ED48 


02150 


LD 


IX, M7 


471B 3E0F 


01150 


LD A,0FH ;TURN OFF CURSOR 


47C7 CD6247 


02160 


CALL 


MESSAG 


471D CD2AB3 


01169 


CALL 032AH 


47CA CD5547 


02170 


CALL 


KBSCAN 


4720 C36C46 


B117B 


JP OPTS 


47CD AF 


02180 


XOR 


A 




B 1 1 8 B ; 




47CE CD1202 
47D1 CD9602 


B219B 
02200 


CALL 
CALL 


0212H 
0296H 












47D4 213449 


02210 


LD 


HL.BUFF 




01200 ; 




47D7 77 


02220 


LD 


;hd ,a 


4723 BB 


01210 BKSP 


DEC BC 


47D8 0608 


02230 RDLOOP 


LD 


B,8 


4724 3E20 


01220 


LD A.20H 


47DA CD3502 


02240 


CALL 


0235H 


4726 C39E46 


0123B 


JP LOOPTX 


47DD 77 


B2250 


LD 


(HL) , A 




01240 ; 




47DE FEBF 


02260 


CP 


191 ;END LOAD IF 'A' CON 




01250 (**»*«• 


•*****•««• TAB CURSOR FORWARD ROUTI 


TAINS 191 














47E0 CAE847 


02270 


JP 


Z ,DONE 




0126B ; 




47E3 23 


02280 


INC 


HL 


4729 3A1678 


01270 ADV 


LD A,(TB) 


47E4 10F2 


02299 


DJNZ 


RDLOOP 


472C 57 


01280 


LD D,A ;'D' REGISTER USED A 


47E6 18F0 


02300 


JR 


RDLOOP 


S COUNTER 






47E8 221478 


02310 DONE 


LD 


(STORE) ,HL ! 


472D 3E29 


B1290 FORWAR 


LD A.20H 


47EB CDF801 


02320 


CALL 


01F8H 


472F CD8947 


81300 


CALL CRT 


47EE C36C46 


02330 


JP 


OPTS [ 


4732 B2 


01310 


LD (BC),A 




02340 r 






4733 B3 


01320 


INC BC 




02350 ;***•«* 


«,»,,,, 


.««*.•»«•»»»•»«••••»«»•»»«•««> 


4734 15 


0133B 


DEC D 


..««,,..,,, 








4735 3E00 


B134B 


LD A , B 




02360 ; 


SEND BUFFER CONTENT TO LINE PRINTER. 


4737 BA 


0135B 


CP D 


0DH (CR) 








473S CA9E46 


0136B 


JP Z , LOOPTX 


02370 ; 


CAUSES 


LINEFEED. '*' SIGNALS END OF 


473B 3E2S 


01370 


LD A.20H 


PAGE. 








473D 18EE 


01380 


JR FORWAR 


023B0 ; 


TO CHANGE LEFT-MARGIN SETTING, LOAD 




01390 | 




'B' IN LINE 










81400 ,»**«•• 


•« CHECK CONTENTS OF BUFFER 




B239B ; 


2670 WITH DESIRED NUMBER FOR SPACES 




01410 ; 




OF MARGIN. 








473F CDC901 


01420 CHECX1 


CALL KLSC 










4742 3EIE 


01430 


LD A.0EH ;TURN ON CURSOR 


47F1 CDC901 


02410 HARDCP 


CALL 


KLSC 


4744 CD2AI3 


B1440 


CALL B32AH 


47F4 DD210949 


02420 


LD 


IX.PRNT1 


4747 DD213449 


0145B 


LD IX, BUFF (LOAD BUFF ADDRS INT 


47F8 CD6247 


02430 


CALL 


MESSAG 


IX AND 






47FB CD5547 


02440 


CALL 


KBSCAN 


474B CDC247 


01460 


CALL MESSAG (CALL MESSAGE DISPLA 


47FE 213449 


02450 PRINT 


LD 


HL,BUFF 


Y ROUTINE 






4801 7E 


02460 PRINT2 


LD 


A,(HL) 


474E BD4B147B 


01470 


LD BC, (STORE) ;ADDR OF LST 


4802 CD2248 


02470 


CALL 


SPACE 


BUF ENTRY 






4805 CD0C48 


B2488 


CALL 


PRTOUT 


47S2 C39E46 


01480 


JP LOOPTX 


4808 23 


B249B 


INC 


HL 




B1490 ; 




4809 C30148 


82500 


JP 


PRINT2 






•• KBSCAN SUBROUTINE •**•*•••*****•• 


480C D9 


02510 PRTOUT 


EXX 






01510 ; 




480D 21E837 


02529 


LD 


HL,37E8H 


4755 D5 


01520 KBSCAN 


PUSH DE 


4810 S6 


02530 PRTLP8 


LD 


D,(HL) 


4756 FDE5 


01530 


PUSH IY 


4811 CB7A 


02540 


BIT 


7,D 


4758 CD2BBB 


01540 AGN 


CALL 02BH 


4813 C21048 


02550 


JP 


NZ,PRTLP8 


475B B7 


01550 


OR A 


4816 FEBF 


0256B 


CP 


191 


475C 28FA 


01560 


JR Z.AGN 


4818 CA1E48 


02570 


JP 


Z,OPT3 


475E FDE1 


01570 


POP IY 


481B 77 


02580 


LD 


(HL) ,A 


476B Dl 


81580 


POP DE 


481C D9 


02590 


EXX 




4761 C9 


B1590 


RET 


481D C9 


02600 


RET 






B16BB ; 




481E D9 


02610 0PT3 


EXX 










481F C36C46 


02620 


JP 


OPTS 


* 


B162B | 




4822 FE23 


02630 SPACE 


CP 


'»' [END OF PAGE MARKER? 


4762 DD7EBB 


B163B MESSAG 


LD A, (IX) 


4824 CA3848 


02640 


JP 


Z.PAGE 


4765 FEBB 


01640 


CP 


4827 FE0D 


02650 


CP 


0DH ;SET LEFT MARGIN MAR 


4767 CA8847 


01658 


JP Z,RETK 


KER? 








476A FEBF 


0166B 


CP 191 


4829 2B0C 


02660 


JR 


NZ.ADD 


476C CA8847 


B167B 


JP Z.RETN 


482B B605 


B2670 


LD 


B,5 ;LOAD 'B' SPACES FOR 


476F F5 


01680 


PUSH AF 


MARGIN 








477B 3A4B38 


01690 


LD A,(3840H) (WAS ENTER K 


4B2D CD0C48 


026 80 


CALL 


PRTOUT 


EY PRESSED? 






4830 3E20 


026 90 MARC 


LD 


A,20H (LOAD 'A' WITH BLANK 


4773 FEB1 


0170B 


CP 1 










4775 CA7C47 


01710 


JP Z.PAUS ;YES, GOTO PAUS k WA 


4832 CD0C48 


02700 


CALL 


PRTOUT 


IT KEY ENTRY 






4835 10F9 


02710 


DJNZ 


MARG 


4778 Fl 


01720 


POP AF 


4837 C9 


B2720 ADD 


RET 




4779 C3B847 


01730 


JP CONT 


4838 3E30 


027 30 PAGE 


LD 


A.30H [LOAD 'A' TO ZERO LI 


477C CD5547 


017 40 PAUS 


CALL KBSCAN 


NE COUNT 








477F Fl 


01750 


POP AP 


483A 322940 


02740 


LD 


(16425) , A jADDRS IN TR 


4788 CD8947 


01760 CONT 


CALL CRT 


S-80 








4783 DD23 


01770 


INC IX 


4B3D 3EBC 


02750 


LD 


A, 140 ;SEND FORM-FEED CODE 


4785 C36247 


01780 


JP MESSAG 


TO PRINTER 








4788 C9 


01799 RETN 


RET 


483F CD0C48 


02760 


CALL 


PRTOUT 




81800 | 




4842 23 


02762 


INC 


HL 






••• DISPLAY KEYBOARD INPUT •*•• 


4843 7E 


02764 


LD 


A,(HL) ,-GET NEXT CHABAC BEF 


• ••• 






ORE RETURNING 








01820 ; 




4844 C9 


02770 


RET 


(RETURN TO PRINTING 


4789 D5 


01830 CRT 


PUSH DE 




02780 ; 






47 8A FDES 


01840 


PUSH IY 










478C CD33BB 


01850 


CALL 0033H 


•••••••••a* 








478F FDEl 


01860 


POP IY 




B280B ; 


THIS 


:ODE BLOCK MOVES THE FIRST 1000 


4791 Dl 


01870 


POP DE 


BYTES OF 








4792 C9 


01880 


RET 




02810 ; 


THE BUFFER TO THE SCREEN. BECAUSE I 




01890 | 




T IS A BLOCK 
ECOGNIZABLE. 


02820 | 


HOVE, 


LOWERCASE CHARACTERS ARE NOT R 




















01910 ,- 


OPTION TABLE BRANCH ROUTINES 


ON ZERO ON 


02830 ; 


AFTER 


BUFFER IS 'KILLED', THE POSITI 








01930 i 




RACTER 191, 


02840 ; 


THE SCKE&N miuulu Be. inc. uwirnii. cnn 


4793 CDC9B1 
TO TAPE ••** 
4796 DD21D24 
479A CD6247 


01940 TXTSVA 


CALL KLSC ,»«•«* SAVE TEXT 




02850 ; 


FOLLOWED BY ' ' . 


8 01950 
01960 


LD IX, M6 
CALL MESSAG 


4845 CDC901 


02870 VWTEXT 


CALL 


KLSC 


479D CD5547 


01970 


CALL KBSCAN 


4848 213449 


02880 


LD 


HL.BUFF 


47AB AF 


01900 


XOR A 


4B4B 11003C 


0289B 


LD 


DE.3C00H 


47A1 CD12B2 


01990 


CALL 0212H 


484E 01FC03 


B29BB 


LD 


BC.1020 


47A4 CD87S2 


02B0B 


CALL 0287H 


4851 EDB0 


02910 


LDIR 




47A7 213449 


92818 


LD HL.BUFF 


4853 CD5547 


02920 


CALL 


KBSCAN 


47AA 7E 


02020 


LD A,(HL) 


4856 C36C46 


02930 


JP 


OPTS 


47AB 06BB 


02030 WRLOOP 


LD B,B 




02940 






47AD 7E 


02040 


LD A,(HL) 




02950 'LIST 


OFF 




47AE CD64B2 


02858 


CALL 0264H 




03190 *LIST 


ON 




47B1 FEBF 


B2060 


CP 191 jGRAPIC CODE ENDS WR 




03200 ; 






ITE 






4931 C3191A 


03210 BASIC 


JP 


01A19H ; RETURN TO BASIC 'RE 


47B3 28BS 


02070 


JR Z, GOB AC K 


ADY" 








47B5 23 


B20BB 


INC HL 


4934 


03220 BUFF 


EQU 


$ 


47B6 1BF3 


B2090 


DJNZ WRLOOP 


2EE0 


03230 


DEFS 


12000 


47B8 18F1 


02100 


JR WRLOOP 


7814 


03240 STORE 


EQU 


$ 


47BA CDF881 


02110 GOB AC K 


CALL 91F8H 


7816 


03259 TB 


EQU 


$+2 


47 BD CJ6C46. 


82121 
02130 ; 


JP OPTS 


466C 

NS TABLE 


03260 


END 


OPTS (START PROG AT OPTIO 


47CB CDC981 


02140 TXTLOE 


CALL KLSC .*»»«« LOAD BUFFER 


00BBB TOTAL 


ERRORS 
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Simput" 

UTILITY PROGRAM 1 f FROM HIKARI GROUP 



SIMPUT is a flexible random access 
program for TRS 80 Model I* that lets 
you manage extremely complex data 
with great simplicity. It allows you to 
create records from one byte to more 
than 85.000 bytes long, with as many 
subrecords as you need, and it can be 
used with Microsoft's Basic Compiler. 



SIMPUT has been tested to be 
compatible with TRSDOS* (can be 
compiled), OBLDOS* (also can be 
compiled), NEWDOS+. NEWDOS 80*. 
NEWDOS 80 V.2*. and NEWDOS 80, 
with Double-Zap/M* 

Available on Disk 

$29.95 

(206) 382-6632 



•TRS80MODELI . TPSDOS TMS. TANOV COBP D8LDOS TM. PERCOM HlkaH GrOUD 3032 FOUllh AVQnU© WOSt 
DATA CO NEWOOS-. NEWDOS «0. NEWDOS 80 V 2 TM-S.APPARAT ^ ... ,,, Ll_„*»_ no -I HO 

inc double zap.i tm software. etc Seattle, Washington 981 19 



101U/E/FOR 

FID€fiD 

MICROCOMPUT6R 

no.2 




Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 



TRS 80" 

MODEL I 
LEVEL II 
2 DISK 



A General DC AC (steady state) 
Analysis of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element. Voltages 

• Node. Branch. Element. Current.s 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic display 

• Modify am element in cir< nil tor de sued 
results 




A cor 

itcd 
comparahle/o I B M s 

EC A P ^Program 
■ A C Analyst* Prog' am 

gram 



Attar our 
BIG SUCCESS 

*ith these o'og'a'T's 

we cai now se°' '. 

<o< o-vv 

S79.9S 

FOR BOTH PROGRAMS 

^.rrnied j"e r o'dt?' "o* 



VISA OR MASTERCHARGE ACCEPTED 

!>., \,.| Srinl I .«nIi in llir Mail 



G ft L Software Enterp. 
2304 N. 1 »t. Street 
Upland. CA 91786 

TRS-80™ is a Irademark of the Tandy Corp. EC A.P is a 
trademark o' International Business Machines, Inc. 



TM 



PONY EXPRESS: software for an electronic mail network 

Hook up your office and home micro-computers . . . Connect your branch offices . . . Create a micro- 
computer network with friends, clients or associates ... All you need is your present telephone and 



The Pony Express 



TM 






The Pony Express lets two micro -computers exchange any information you choose — letter, a con- 
tract, graphics, VisiCalc* models, even other programs — over regular telephone lines. It is custom - 
fit, fully compatible with your software. With the unique on-line manual and guided waJkthru features, 
a computer novice can master Pony the first time he uses it. Pony's security system, and time and 
money saving features make it ideal for business applications. Home users will find it equally practical. 
The Pony Express is a package that is: 



designed by management consultants, and field- 
tested in business and professional applications 
easy to use. requiring only plain English. About the 
most complicated compulerese if the term "file." 
easy to learn, displaying WALK THRU comments and 
reminders while you run it. 

superbly documented, with a computerized manual 
that puts you a touch-of-a-button away from all you 
need to know. 



economical of vour lime; unattended it handles a 
diskful of data' through its IN BASKET and OIT- 
BASKET features. 

secure and discrete, it lets an operator run the system 
"blind", never laying eyes on sensitive information 
reliable, it automatically corrects transmission errors 
to ensure that what you send is what gets there, 
mindful of your phone bills, the TOLL-SAVER and 
SUPER TOLL-SAVER features cut transmission time 
up to 70%. 



PONY EXPRESS™ : "thoughtful software"™ from the Philadelphia Consulting Group, Inc. 



►"381 



Available for Radio Shack* 32 K Model III 
with 2 disks. Most features work with 1 
disk. Modem and RS232 communications 
interface required. INQUIRE ABOUT FU- 
TURE AVAILABILITY FOR OTHER 
COMPUTERS. Dealer and OEM inquiries 
invited. 



Software for 2 -member network: $140 
Each additional member: 40 

Manual only (fully credited toward 
purchase) 1ft 

♦Radio Shack and TRSDOS are trademarks 
of Tandy Corporation. DOSPLUS is a 
trademark of Micro Systems Software, Inc. 
VisiCalc is a trademark of Personal Soft- 
ware, Inc. 



Visa and Master Card orders: 

Call 1-800-227-1617. EXTENSION 203. 
In California Call 1-800-77 2-3545. 
Specify TRSDOS* or DOSPLUS*. PA 
residents add 6% sales tax. Inquiries and 
other orders (payment enclosed): The 
Philadelphia Consulting Group. Dept. 
PE-14. P. O. Box 102. Wynnewood, PA 
19096. 



' See List of A dvertisers on page 418 
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5& CALENDAR 



Coming Attractions 

So you've made a New Year's resolu- 
tion to control your fits of hair-pulling 
when you encounter a frustrating CLOAD. 
You're ready to dish out the dough and up- 
grade your system. Then the buyer's guide 
to disk drives in January's 80 Micro 
is for you. 80 Micro is also kicking off 
the new year with stories on Videotext— 
what it is and where it is; Telidon— 
have the Canadians got the drop on Uncle 
Sam in the home information revolution; 
and a special business section for readers 
that finished the November 80 Micro 
hungry for more. 



January 

12-15 Ken Orr and Associates Inc., To- 



peka, KS. Course on structured re- 
quirements definition, Toronto, 
Canada. 

18-22 Ken Orr and Associates Inc., To- 
peka, KS. Course on structured 
systems design and structured re- 
quirements definition, Houston, 
TX. 

19-22 Ken Orr and Associates Inc., To- 
peka, KS. Course on structured re- 
quirements definition, Kansas Ci- 
ty, MO. 

25 Ken Orr and Associates Inc., To- 

peka, KS. Course on management 
overview of data structured sys- 
tems design, Tulsa, OK. 

25-29 Ken Orr and Associates Inc., To- 
peka, KS. Course on structured 
systems design and structured 




program design, Cleveland. OH. 

26-29 Ken Orr and Associates Inc., To- 
peka, KS. Course on structured 
system design, Chicago. IL 

27 Ken Orr and Associates Inc., To- 
peka, KS. Course on management 
overview of data structured sys- 
tems design, Tulsa. OK. 

28-29 Construction Industry Press, Silver 
Spring, MD. Conference on com- 
puters in construction, San Diego. 
CA. 

29 Ken Orr and Associates Inc., To- 
peka. KS. Course on management 
overview of data structured sys- 
tems design, Omaha. NB. 



February 



26-28 Adventure International. Long- 
wood. FL. Computer Expo '82 
trade show, Orlando. FL. 



March 

1-2 Michigan Association for Comput- 
er Users in Learning, Wayne. Ml 
Sixth annual convention featuring 
sessions on facets of education 
uses for computers, Western 
Michigan University, Kalamazoo. 
Ml. 

3-7 Catalyst. Jersey City State Col 
lege. Jersey City. NJ. Microcom 
puter Week '82, "an internationa 
event of significance to educa 
tors," Jersey City State College 
Jersey City. NJ. 

7-9 American Management Associa- 
tions, New York, NY. Course on pa- 
perwork management, Hartford. 
CT. 
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Wayne Green Books 




J.!^JJJJJ-U 



im*ui.u 

'KUWItS 
buM]Mtf 



. WtV 




3ft 



"TRS-80 is a trademark of 

Radio Shack Division of Tandy Corp 



Annotated BASIC— A New Technique for Neophytes. 

BASIC programming was supposed to be simple — a beginners programming 
language which was so near to English that it could be easily understood. But, in re- 
cent years. BASIC has become much more powerful and therefore much more dif- 
ficult to read and understand. BASIC simply isn't basic anymore. 

Annotated BASIC explains the complexities of modern BASIC. It includes com- 
plete TRS-80* Level II BASIC programs that you can use. Each program is annotated 
to explain in step-by-step fashion the workings of the program. Programs are 
flowchart ed to assist you in following the operational sequence. And— each chapter 
includes a description of the new concepts which have been introduced. 

Annotated BASIC deals with the hows and whys of TRS-80 BASIC programming. 
How is a program put together? Why is it written that way? By observing the pro- 
grams and following the annotation, you can develop new techniques to use in your 
own programs— or modify commercial programs for your specific use. 

Annotated BASIC Volume 1 contains Projecting Profits, Surveyor, Things to Do. Tax Shelter, Introduction to 
Digital Logic. Camolot, Tho Soundox Code, Deduction. Op Amp. Contractor Cost Estimating, (available 
November) BK7384 $10.95 ISBN 88006-028-X 

Annotated BASIC Volume 2 contains Rough Lumber List, Trip Mileage. Flight Plan. OSCAR Data. SWR/Antenna 
Design, Supermaze. Petals Around the Rose. Numeric Analysis. Demons. Air Raid. Geography Test. Plumbing 
System Design (available February) BK7385 $10.95 ISBN 0-88006-037 9 

Order Both Volumes and Save! BK738402 $18.95 
Kilobaud Klassroom— 
A practical course in digital electronics 

by George Young and Peter Stark 

Learning electronics theory without practice isn't easy. And it's no fun to build an 
electronics project that you can't use. Kilobaud Klassroom, the popular series first 
published in Kilobaud Microcomputing, combines theory with practice. This is a practi- 
cal course in digital electronics. It starts out with very simple electronics projects, and 
by the end of the course, you'll construct your own working microcomputer! 
Authors Young and Stark are experienced teachers, and their approach is simple 
and direct. Whether you're learning at home or in the classroom, this book pro- 
vides you with a solid background in electronics — and you'll own a computer that 
you built yourself! 

Kilobaud Klassroom contains Getting the Ball Rolling, Gates and Flip-Flops Explained, J.K. Flip-Fiops and 
Clocked Logic, PC Boards and Power Supplies, Hardware Logical Functions, Voltage. Current and Power Sup- 
plies. Transistors, Diodes and OP Amps, Pulses and More Pulses, Counters ano Registers, Bus Traffic Con- 
trol, ROM and RAM Memories, I/O Circuitry. Parallel and Serial I/O Ports, Computer I/O III, Computer I/O IV. 
Computer I/O V, Processor Connections, Finally . The Kilobaud Krescendo Eproms and Troubleshooting. 
Expansions and Programming, Machine-Language Programming. Assembly-Language Programming Con 
necting to the Outside World. 

isbn 0^8006-027-1 (available December) BK7386 $14.95 

The New Weather Satellite Handbook 

By Dr. Ralph E. Taggart WB8DQT 

Here is the completely updated and revised edition of the best-selling Weather 
Satellite Handbook— containing all the information on the most sophisticated 
spacecraft now in orbit. Dr. Taggart has written this book to serve both the ex- 
perienced amateur satellite enthusiast and the newcomer. The book is an introduc- 
tion to satellite watching that tells you how to construct a complete and highly effec- 
tive ground station. Not just ideas, but solid hardware designs and all the instruc- 
tions necessary to operate the equipment are included. An entire chapter is devoted 
to microcomputers and the Weather Satellite Station. And for the thousands of ex- 
perimenters who are operating stations, The New Weather Satellite Handbook 
details all the procedures necessary to follow the current spacecraft. 

Weather Satellite contains Operational Satellite Systems, Antenna Systems, Weather Satellite Receivers. A 
Cathode Ray Tube (CRT) Monitor for Satellite Picture Display. A Direct Printing Facsimile System for Weather 
Satellite Display. How to Find the Satellite. Test Equipment. Microcomputers and the Weather Satellite Station, 

station operations isbn r>88oo6oi5^ available now! BK7383 $8.95 




FOR TOLL-FREE ORDERING CALL 1-800-258-5473 
WAYNE GREEN BOOKS • PETERBOROUGH NH 03458 

Use the order card or itemize your order on a separate piece of paper and mail to Wayne Green Book Att: Sales* Peterborough NH 03458 
Be sure to include check or detailed credit card information. (Visa. Master Charge or American Express accepted.) 

No COD orders accepted. All orders add $1.50 handling. Please allow 4-6 weeks after publication for delivery Questions regarding your order'' 
Please write to Customer Service at the above address 



' See Listot A Overtisers on page 418 
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TECHNIQUE 



LOAD 80 



Tips for those who aren't. 



Get Organized 



Stuart L. Lesley 
805 S 'H' St., Apt. 7 
Lake Worth, FL 33460 



My dining room table has 
disappeared under a pile 
of computer printouts, disks, 
reference materials and other 
items needed for programming 
my TRS-80 Model I. At the office 
the computer room (designated 
as such in name only) is in a 
similar state of disorganiza- 
tion. 

As a subscriber to 80 Micro- 
computing for the past nine 
months I have found fascinating 
articles that were extremely 
interesting and valuable to 
me. Yet I found that I 
could apply only a small per- 
centage of any article to my 
own personal or business pro- 
jects. There is a very definite 
reason for this. I am not or- 

396 • 80 Microcomputing, December 1981 



ganized. I was hoping the com- 
puter would help me to become 
more organized only to dis- 
cover that it added to my dil- 
emma. I will work on one pro- 
gram for awhile, leave it for 
another project, and come back 
only to find that I can't even 
remember which disk it was 
on or what name I had assigned 
to it. 

Therefore, I wish to pass 
along some of the things that I 
have tried that may help others, 
along with raising some inspira- 
tion among readers to write 
some articles on what you have 
found helped get you organized. 

Subroutine Library 

There is one technique that I 
use with a large amount of suc- 
cess. As I create a program for 
a specific use, I usually find 
that the subroutines I create for 
repeated tasks have a fairly 
broad application. These sub- 
routines range in size from one 
line to 20-30 lines, and they not 
only save memory but also save 
time in the creation or writing of 
the program. 

I have started to create what I 
call a subroutine library. I write 



Program Listing 



1 CLEAR(ieeeB) :DEFINTP,S,Y,I,X,Z,T,N,0:CLS:PRINTCHR$(23) "TWO - W 
AY ANOVA*: PRINT : PRINT'UPDATE 87/24/88 ": PRINT'THIS PROGRAM HILL 
USE UNEQUAL": PRINT "SCORES PER CELL* :F0RX*1T01BBB :NEXT:G0SUB19 : GO 
SUB25:CLS:NC-CR:F0RX=1T0CR:T1-T1+N(X) :NEXT:T-T1 

2 GOSUB3:GOSUBll:GOSUB24 

3 CLS: PRINTS384 , "NOW COMPUTING COLUMN AND ROW 'N' VALUES" : FORX= 1 
TOC:FORI-XTONCSTEPC:S(X)«S(X) tN ( I ) : NEXTI ,X : Y* 1 : FORX- 1TOR: FORI-YT 
0(Y+(C-1)) :R(X)-R(X)+N(I) : NEXTI : Y-Y+C : NEXTX: CLS : PR I NTS384 , "NOW C 
ALCULATING CELL MEANS" : FORX-1TOCR: FORI -1TON (X) 

4 L-L+(A{X,I>) : NEXTI :L"L/N(X) :M(X) -L:L«B : NEXTX: CLS: PRINT $3 84 , "NO 
W CALCULATING HARMONIC MEAN" : FORX=lTOCR: H«H-f( 1/K(X) ): NEXTX : H-CR/ 
H:CLS:PRINTe364,"NOW CALCULATING THE GRAND MEAN* :G-8 : FORX= 1TOCR: 
G-G+M(X) :NEXTX:CLS 

5 PRINT«384,*NOW CALCULATING THE USABLE GRAND MEAN" :G- ( (G [ 2) /CR) 
:CLS:PRINTe384,*NOW CALCULATING CELL SCORE SQUARES* : FORX-1TOCR: F 
ORI»lTON(X) :B(X,I)-(A(X,I) [2) : NEXTI : NEXTX : CLS : PRINTS3 84 , "NOW CAL 
CULATING SQUARES WITHIN CELLS" : FORX-1TOCR 

6 FORI-ITON(X) :K1-K1+(A(X,I) [2) : NEXTI :NEXTX: FORX-1TONC: FORI-lTON 
(X) :K2-K2+A(X,I) : NEXTI :K2»K2 [ 2:K2«K2/N(X) :K3-K3+K2:K2-B:NEXTX:E3 
■Kl-K3:CLS:PRINTS384,"NOW CALCULATING SQUARE OF ROWS* :L6-B : L7-B : 
FORX»1TOCRSTEPC:FORI-XTOX+(C-1) :L6«L6+M(I) :NEXTI 

7 L7=L7+L6[ 2:L6-B:NEXTX:L7«L7/C:CLS:PRINT8384,'NOW CALCULATING C 
OLUMNS SQUARED*:L6-e:LB-B:FORX-lTOC:FORI-XTOCRSTEPC:L6-L6+M(I) :N 
EXTI:L8-L8+L6!2:L6«8:NEXTX:L8-L8/R:CLS: PRINT J3 84 , "NOW CALCULATIN 
G SQUARES OF ROW*COL MEANS* :L9-8 : FORX-1TOCR 

8 L9-L9+(H(X) [2) : NEXTX: CLS : PRINT#384 , 'NOW CALCULATING SSR":E2»(L 
7-G) •H:CLS:PRINT*384,*NOW CALCULATING SSC* :E1- (L8-G) *H:CLS:PRINT 
§384, "NOW CALCULATING SSR*C" iE5» ( ( L9+G) - ( L7+L8) ) *H :CLS : PRINT8384 
,*NOW CALCULATING SST" : E4- ( E1+E2*E3+E5) :CLS 

9 PRINT§384, "DEGREES OF FREEDOM NOW! I I " :DC-C-1 :DR«R-1 : DX- ( ( R-l) * 
(C-l) ) :FORX-lTOCR:DW-DW*(N(X)-l) :NEXT:DT-DC+DR+DX+DW: CLS: PRINTS 
B4,*NOW I'M DOING MS* :Q1=E1/DC:Q2-E2/DR: Q3-E5/DX :Q4»E3/DW:CLS : PR 
INTS384,*NOW i'M ON CALCULATED ' F ' . * : FC-Q1/Q4 

IB FR-Q2/Q4:FX-Q3/Q4:CLS:RETURN 

11 PRINT" DATA TABLE" : PRINT'SOURCE" jTAB ( 12) "DF 
";TAB(24) "SS"jTAB(36) "MS";TAB(48) "CAL, F" :PRINT"COL" ;TAB( 12) DC ; T 
AB(24) El;TAB(36)Ql;TAB(48)FC:PRINT"ROW";TAB(12)DR;TAB(24)E2;TAB( 
36)Q2;TAB(48)FR 

12 PRINT'C X R*,TAB(12)DX;TAB(24)E5;TAB(36)Q3;TAB(48)FX:PRINT"W 
/ C'|TAB(12)DW;TAB(24)E3;TAB(36)Q4:FRINT*TOTAL*(TAB(12)DT;TAB(24 
)E4:PRINT:PRINT*FOR DF TO F TABLE USE :*: PRINT* COL -" [DC ; */* jDW: 
PRINT'ROW «";DR;*/")DW:PRINT"CXR »"|DXj*/*;DW 

13 RETURN 

14 A$-*':LPRINTSTRING$(3,CHR$(138) ) :INPUT*ENTER THE TABLE NAME*; 
QRS:LPRINTTAB( 28) 'DATA TABLE * ;CHRS ( 123) ; * ";QR$;* * ;CHR$ (125) ; 
CHR$(138) :GOSUB31:LPRINT"SOURCE*;TAB(12) *DF*;TAB(24) *SS*;TAB(36) 
*MS";TAB(48) "CAL. F*:GOSUB32 

15 LPRINT*COL*[TAB(12)DC}TAB(24)El;TAB(36)Ql;TAB(48)FC:GOSUB32:L 
PRINT'ROW* ;TAB(1 2) DR) TAB ( 24 )E2;TAB( 36 )Q2|TAB( 48) FR:GOSUB32:LPRIN 
T*C X R*;TAB(12)DX;TAB(24)E5[TAB(36)Q3)TAB(48)FX:GOSUB32:LPRINT* 
W / C*jTAB(12)DW;TAB(24)E3;TAB<36)Q4:GOSUB33 

16 LPRINT*TOTAL";TAB(12)DT;TAB(24)E4:GOSUB33:I.PRINT:LPRINT*FOR D 

Program continues 



each subroutine I create that 
might have further applications 
on a three by five-inch card. On 
one side is the actual sub- 
routine and any variable assign- 
ments. My library is small at this 
time but I know it will grow. My 
hope is to eventually bring as 
much of the program creation 
process as I can into a Cook- 
book mode. 

As an example, I have the 
following subroutines in my 
library: 

•Press any key to continue— 
this subroutine also includes 
the screen format information 
so I know where the prompts will 
appear. 

•Press any key to continue/ 
CLS— this prints a flashing 
asterisk when the screen is 
about to be cleared, as in 
Tandy's Model disk instruction 
course. 

I can smell the smoke of spin- 
ning wheels now as you start 
thinking about putting the sub- 
routine library into the computer 
itself. Why not? Simply ensure 
that the program line numbers 
assigned to the subroutine are 
high enough not to overwrite 
your main program and remem- 
ber to save your subroutine us- 
ing the ,A (save ASCII) option. 
When you wish to append your 
subroutine to your main pro- 
gram use the Merge command 
(subroutine on disk, main pro- 
gram in RAM). I have used this 
method with very satisfactory 
results. However, I believe the 
three by five-inch cards are the 
most efficient way to store the 
subroutines for program crea- 
tion. 

Program Boarding 

A second technique I have 
started experimenting with I 
borrowed from television pro- 
gram creation. This is a collec- 
tion of techniques used for 
creating many of the shows 
seen on TV. One of the most im- 
portant early steps in creating a 
television program is story 
boarding. Each individual scene 
is put on a three by five-inch 
card and then laid out in se- 
quence to see how it flows. 
By using these cards you can 
rearrange at will and complete- 
ly turn around the flow of the 
story (program) without having 



to rewrite anything at all. 

I have begun using this 
technique for organizing my 
screen formats. Now it is true 
that you cannot fit an entire 
screen format onto a three by 
five-inch card but you can put 
the general idea on the card. 
Once you have 'story boarded' 
your program you can then take 
those handy cards and create 
the screen format on the proper 
formatting sheets (available 
from Radio Shack only for the 
Model I). Upon completion com- 
bine that information with your 
flowchart of the computations 
involved and your program is 
now ready to be coded into 
Basic. I am limited to working in 
self-taught Basic so I am uncer- 
tain how well this will work with 
other programming languages. 
Considering that there is no ac- 
tual coding done until the very 
last step there should be lit- 
tle difficulty in adapting these 
methods to other languages. 

As I mentioned before there 
is no screen formatting sheet 
available from Tandy for the 23 
by 80 format. In the meantime, I 
have created a screen format- 



Prograrp continued 

P TO F TABLE USE : * :LPRINT"COL -" ;DC ; "/" ;DW: LPRINT'ROW -";DR(V 
";DW:LPRINT"CXR -"jDX;"/"jDW 

17 PRINT: PRINT'ENTER 1 TO GET HARD COPY OF SCORES" : INPUTAS : IFAS- 
"1"THEN23ELSE18 

18 INPUT'ENTER TO END*; AS: END 

19 DIMB(58,58) ,A(58,S8) ,T(50) ,M(50) ,N(5i) ,C(50) :CLS:PRINT0384, *E 
NTER THE NUMBER OP COLUMNS AND ROWS (C,R) " : INPUTC,R:CR-C*R:CLS:C 
LS:PORX-lTOCR:NN-l:CLS:PRINTe384, 'ENTER SCORES FOR CELL *|X;:PRI 
NT" ( END WITH ' # ' SYMBOL ) * 

28 INPUTAS:IFAS-"?"THEN21ELSEA(X,NN) -VAL(AS) : AS«"" :NN»NN+1 :GOT02 

21 A$-":N(X)-NN-1:NEXTX:FORX-1TOCR:S-S«N(X) :NEXT:RETURN 

22 CLS:PRINTCHRS(23) "YOU HAVE MADE" :PRINT: PRINT'AN ENTRY ERROR ! 
I "iPXI NT I MIX NT "ENTER AGAIN PLEASE" :F0RX-lT028fl8:NEXT:C-OTOl 

23 PORX«1TOCR:FORZ«1TON(X) :LPRINT"CELL I" (X ; "SCORE! * ; Z ; "»" ; A(X , Z 
) :NEXTZ,X:GOT018 

24 PRINT"FOR PRINT OUT ENTER 1 ";: INPUTAS: IFAS-"1"THEN14ELS 

E17 

25 CLS:PRINTJ384, "ENTER 1 TO EDIT SCORES" : INPUTAS:IFAS<>"1"THEN3 
BELSEFORX-1TOCR:PRINT"FOLLOWING ARE THE SCORES FOR CELL t ";X:FO 
RY-ITON(X) :PRINT"SCORE ";Y;" IS " ; ( A(X , Y) ) :NEXTY : PRINT'DO YOU WI 
SH TO CHANGE ANY SCORES IN CELL "»X 

26 INPUT'ENTER Y OR N ";A$: IFAS-"N"THEN29ELSEN-1 

27 PRINT'END SCORE ENTRY WITH ' § ' ALL SCORES MUST BE RE-EN 

TERED.":PRINT"SCORE ";N;" FOR CELL "jXj" SHOULD BE ???": INPUTAS: 
IFAS-"8"THEN2BELSEA(X,N)«VAL(A5) : N-N41 :GOT027 

28 N-N-1:N(X)-N 

29 NEXTX 
3B RETURN 

31 LPRINTSTRINC$(6,CHRS(241) ) jCHRS(243) ; STRINGS ( 14 ,CHRS ( 241 ) ) j CH 
RS(243) iSTRINGS(12,CHRS(241) ) ;CHRS(243) ;STRINGS(12 ,CHRS ( 241) ) |CH 
RSI243) ;STRINGS(1B,CHRS(241) ) )CHRS(242) : RETURN 

32 LPRINTSTRINGS(6,CHRS(241) ) ;CHRS(25B) ; STRINGS ( 14 ,CHRS ( 241 ) ) ;CH 
R$(25fl) ;STRINGS(12,CHRS(241) ) (CHRS(258) ; STRINGS (12 ,CHRS ( 241 ) ) ;CH 
RS(250) (STRINGS (18, CHRSl 241)) ;CHRS(249) : RETURN 

33 LPRINTSTRINGS(6,CHRS(241) ) ;CHRS(248) ; STRINGS! 14 ,CHRS( 241) ) ;CH 
RS(248) ;STRINGS(12,CHRS(241)) ;CHRS(248) ; STRINGS ( 12 ,CHRS (241) ) ;CH 
RS(247) : RETURN 



ting sheet that has helped me 
greatly in creating screen for- 
mats for the Model II. I created 
it to fill my specific needs; 
these needs may not be the 
same as yours (see Fig. 1). 
Well that's it— nothing fancy 



or earth shattering, yet it just 
might make the programmer's 
task (either business or per- 
sonal) just a little easier. Now 
how about the rest of you out 
there? I could use some help; 
any ideas?! 



PROGRAM. 



23 x 80 Format Sheet 



SCREEN 




Fig. 1 
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2 games per cassette 



tor the TltS SO Model I or III. 16 K 
level 1 1 or Model 1 1 1 BASIC minicomputers. 
ail m« programs nave 

ACTION SOUNDS* GRAPHICS 




Ton design jour no space figfcter and 
MM bl«t off into battle Human or 
1C Compute' Opponen's Fi|ht m 2 or 3 
dimensions Three sceiunos Smuggler' 
Refuel Option .and Phoenn Decathlon 

THE NEW STARSHIP VOYAGES 
I brilliant "treb type spacebar ID 

galaiy with wrap around Moving enemy 
craft, soum are Cloaked It commands 
Rescue starhase Delta trow the Ungues 
catalog No 7001 S 19 »S 




PARSECTOR V 



N r 

Tke 
Ultimate 
Space 



Unique split screen gives each player a 
private display I tmt fleet battle craft 
and match them fight fire high powered 
energy beams or short range weapon spreads 
Human or computer opponent 

PARSECTOR 8 Tournament Version. 
Ciant galny to conqier Intense Strategy ' 
catalog No 2002 S IS »5 




! ! ! ants ! ! ! 



Imaging 

War 
Between 

tit 
Colonies 



Fast machine language speed Three game 
variations. "Open Field . "Nest Darrior". 
md "Digging knts" 2 players or computer 
nppooent Easy t* play. Challenging to 
master Fun packed game lor all ages ' ' 

THE NEW STARSHIP VOYAGES 

catalog No 2003 S 14 9S 



HIGH SPEED LIFE 

The FASTEST, mist ADVANCED version of 
I N Conway s famous mathematical gaae 
Spectacular kaleidoscopic animation 
S00 gen/mm typicai 32 preprogrammed 
patterns Multiple control functions 

I RHMNol m HOSori»ar*Cnliau«, NNHw 5 I 

NAME THAT STATE QUIZ 

A top notch educational game Draws 
SO states and asks five questions 
Three tun types Easy to use 
catalog No 2004 S 14 95 



Disk Owners 

On special request tke akove games are 
available an cassette i you transfer ). same once 
compatible with TtSOOS Disk Basic 4IK 



Add *• 00 postage rwmimg CODadna.'i. 
Ill >W* JOB4X taa HwOoctaUO 



Synergistic Solar, Inc. 

•OBoi S60S9S Miami FL 3315* 

^231 



RELOAD 80 



This Christmas our LOAD80 
stocking contains some 
good news and some bad news. 
In addition, the LOAD80 Santa 
has consented to answer reader 
queries about how LOAD80 is 
assembled each month. 

First, the good news: Starting 
with the January issue of 80 
Microcomputing, LOAD80 will 
be offered on tape and disk. The 
single density double-sided disk 
will operate under Model I TRS- 
DOS. but will not contain an op- 
erating system. The Basic pro- 
grams can be used on the Model 
III. except where noted in the 
magazine articles; convert these 
using the Model III TRSDOS Con- 
vert utility. The price for the disk 
version of LOAD80 will be $14.95. 
The bad news in our Christ- 
mas stocking: There will be no 
Color Computer LOAD80 this 
year. An evaluation of the Color 
Computer articles published to 
date reveals that there just 
haven't been enough to warrant a 
special edition LOAD80. A Color 
LOAD80 will appear as soon as 
enough material is accumulated. 
Wayne Green Inc.'s Circula- 
tion Department will announce a 
subscription plan for LOAD80 
on January 1, 1982. Watch the 
LOAD80 advertisements in 80 
Microcomputing for particulars. 

LOAD80 Errata 
The October LOAD80 tape 

contained two programs that 
did not appear in the October 
issue of the magazine. The pro- 
gram JERICHO accompanied 
the September article entitled 
•The Walls of Jericho ". on page 
292 BOOKS, a Basic program, 
does not actually accompany 
the article on page 234 of the Oc- 
tober issue. The article that con- 
tained this program was pulled 
from the magazine at the last 
minute. "Hard and Soft Print- 
ware" was a post-deadline sub- 
stitute and its program will not 
be offered on any LOAD80 tape. 



Hows and Whys 

Frustration! That's the by- 
word for 80s editors each month 
as they sit down to decide which 
programs will appear on the 
LOAD80 tape. We would like to 
include all the programs on the 
tape, but there are constraints. 
We know it is frustrating for you. 
the reader, as well— we thought 
you might be interested to learn 
of the problems we run into. 

The first problem we encount- 
er is time. Our manufacturer has 
requested that we keep the 
LOAD80 tapes under 28 min- 
utes. Some months this is easy, 
but during others it means some 
programs have to be sacrificed. 
Our selection process involves 
an evaluation of a program's 
usefulness and the quality of its 
contruction. We realize you won't 
always agree with our choices, 
but we hope you understand why 
we have to make them. 

Another constraint, very often 
a more important one. is the 
absence of a magnetic copy of 
the program. If an author does 
not send us a program copy on 
tape or disk, we cannot include 



it on the LOAD80 tape. We make 
every effort to obtain magnetic 
copies from authors but occa- 
sionally do not succeed. Over 
and above this difficulty, we 
sometimes lose a tape or encoun- 
ter a glitch that destroys a pro- 
gram too late in the production 
process to obtain another copy. 

Finally, there is the constraint 
of first publication rights. We 
sometimes purchase, always at 
an author's request, the right to 
publish an article and program 
listing only. This request is 
usually made by an author plan- 
ning to commercially produce 
the software. 

We constantly upgrad-2 our 
administrative procedure for the 
LOAD80 project in an attempt to 
eliminate these problems (and 
the problems listed in this 
month's Errata section). For ex- 
ample, in coming months the 
LOAD80 logo will appear near 
the title of each article whose 
program appears on the 
LOAD80 tape. Any suggestions 
you have will be welcome. 

Next month, more on 80 Micro 
production hassles. ■ 





December LOAD80 Directory 


Pgm# 


Pgm Name 


Page** 


Comments 


1 


Logbook 


100 


Disk Basic 


2 


Stamps 


108 


None 


3 


Plantl 


116 


None 


4 


Plant2 


116 


None 


5 


Coins 


134 


None 


6 


Chess 


154 


None 


7 


Heat 


220 


None 


8 


Golf 


226 


None 


9 


Sentry 


242 


None 


10 


Rammer 


252 


None 


11 


Blckbk 


278 


None 


12 


DDentry 


280 


None 


13 


Writer 


290 


None 


14 


City 


310 


None 


15 


AnlnMan 


314 


None 


16 


FloppyFix 


326 


None 


17 


Queue 


368 


None 


18 


Logger 


374 


None 


19 


Lunacy 


386 


None 


20 


Organize 


398 


None 
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1981 Load-80 Index 



Month 



5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

7 

7 

7 

7 

7 

7 

7 

7 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 



Program Name 


Page Number 


Compare 


271 


Educ4 


144 


Educ8 


144 


Cents 


192 


Dotgam 


210 


Checks 


214 


Lunar 


March 


Wherzitl 


252 


Wherzit2 


252 


Expo 


266 


Boothe4 


117 


Boo the 5 


117 


Boothe6 


117 


Boothe7 


117 


Boothe/Src 


117 


Simul80 


154 


Astrol 


179 


Manage 


186 


Vardoc 


291 


Sort 


264 


Homecalc 


100 


Encode/Bas 


234 


Disco 


195 


Boa 


294 


Dome 


128 


Cardeal 


113 


Random 


246 


Wrap 


109 


Invid 


176 


Dollarl 


216 


Dollar2 


218 


Average 


292 


Scroller 


204 


Car an 


93 


Scroller/Src 


205 


Listl/Src 


39 


List3/Src 


40 


Shftrv/Src 


262 


Invert/Src 


176 


Comprs/Src 


270 


Linel/Src 


139 


Ramtst/Src 


148 


Sargiol/Src 


274 


Sargio2/Src 


274 


Boo the 3 


68 


Menmgr/Bas 


17 8 


Sub 


186 


Copykill 


224 


Mileag 


236 


Lunar 


244 


P/Cmd 


246 


Electr 


288 


Porecast/Mkt 


26 9 


Stock/ Ana 


274 


Fin/ Ana 


284 


Ledger 


May/222 


Pilot 


122 


Pilot2 


124 


Bbox 


217 


Disas 


244 


Tpascal 


154 


Twohaf 


202 


Twohaf 2 


202 


Hispeed 


280 


Frknstn 


92 


Tank 


104 


Spcemp 


106 


Strgurd 


116 


Race 


122 


Epexcr 


126 


Epslct 


126 


Lastest 


136 


Morse 


150 


Message 


150 


Datqen/Src 


16 8 



8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 



Vidspc 


180 


Relshp 


192 


Vcesyn 


208 


Srtsof sr 


214 


Disas 


240 


Phodex 


248 


Sprusr/Src 


256 


Dirprog 


270 


Strtrk 


86 


Cmdfil 


27 8 


Rotate 


154 


Rotate2 


154 


Meraxpd/Src 


174 


Convrt/Src 


186 


Hidpics 


204 


Sorter 


220 


Slptslpc/Src 


228 


Hrsrce 


244 


Errprt 


250 


Lifetime 


252 


Diskchrgr 


286 


Cartoon 


320 


Bascal 


334 


Lastest 


Aug/136 


Mastmind 


122 


Syllog 


132 


Voice 


141 


Speak 


141 


Type 


141 


Talker 


146 


Bskball 


184 


Homeinvt 


220 


Sunset 


272 


Freezer 


274 


Trscpm 


288 


Yahtzee 


302 


Bridge 


306 


Firefght 


316 


Space 


334 


Jericho 


Sep/292 


Tprgen/Src 


196 


Autokey/Src 


242 


Asmptch/Src 


326 


Edasf ix/Src 


344 


Copyit/Src 


370 


Tenant 


138 


Invest 


144 


House 


160 


Graphs 


176 


Prodtimer 


220 


Chain 


250 


Alter 


274 


Credun 


321 


Sprlist 


333 


Secsrc 


348 


Enhance 


384 


Logbook 


100 


Stamps 


108 


Plantl 


116 


Plant2 


116 


Coins 


134 


Chess 


154 


Heat 


220 


Golf 


226 


Sentry 


242 


Ramme r 


252 


Blckbk 


27 8 


DDentry 


280 


Writer 


290 


City 


310 


AnlnMan 


314 


FloppyFix 


326 


Queue 


368 


Logger 


374 


Lunancy 


386 


Organize 


398 



80 Microcomputing, December 1981 • 401 



80 Microcomputing's 



Annual Index 
To Articles 



Articles are listed in alphabetical order by category, month 
and page (m:pg), short explanation, title and author's last name. 



APPLICATIONS 






10141 


Human applications 


Pgms For Handicapped 


Nowak 


1:120 


Precious metal caic 


Alter The Goiarush 


Frost 








Muswick 


1:174 


Queueing simulator 


Line Up 


Anderson 


10:184 


B-ball stats 


Hoops 


Cornwell 


1:232 


Population studies 


Number Cruncher 


Bar bare! lo 


10220 


Home inventory pgm 


Worldly Goods 


Fail 


2:122 


Printer an 


Can Computing Be Art 


Conroy 


10.272 


Predict these times 


Sunrise-Sunset 


Skramstad 


2:152 


Lincoln-Peterson analys 


Population Estimation 


Solomon 


10:274 


Meat inventory pgm 


Fat City 


Busch 


2:154 


Evaluate property 


Landlord 


Tuohy 


10:298 


Analysis-your choices 


Cadet-Decision Maker 


Albino 


2:194 


Compute percent comp 


Molality Crunching 


Suder 


10:316 


Fireman's friend 


Firestream 


Gille 


2:198 


Tally time cards 


Punch Out 


Conroy 


10:338 


Pocket comp loan pgms 


Loan Sharp 


Atkins 


3:152 


A scheduling secretary 


By Appointment Only 


Busch 


10:374 


Format a listing 


List prog 


Riftel 


3:192 


Text analysis by letter 


Letter Counter 


Atkins 


11:118 


Computers in the office 


Paper Mountain 


Weirenga 


3:230 


Use sound for control 


80 Appliance Control 


Lewart 


11:220 


Assembly line analysis 


The Pacemaker 


Tims 


3:274 


80 in the supermarket 


Shopltst 


Smith 


11:348 


Compare op-amps 


Second Sourcing 


Tinis 


4:179 


Party interview 


This Ain't No Party 


Fason 


11:392 


Pocket comp analysis 


Pocket Stats 


Atkins 


4:186 


Cassette data bases 


Sans Disks 


Hunter 


12:106 


Stamp collecting 


The Philatelist's Friend 


Castor 


4:192 


Evaluate old pennies 


Two Cents Worth 


Clayton 


12:116 


Horticulture 


House Plant index 


Chipman 


4:214 


Chech writing routine 


Endorse It 


Welcher 


12:128 


80 model railroad 


The 80 Limited 


Latamore 


4:252 


Keyword indexing pgm 


Whemt 


Fox 


12:134 


Com inventory pgm 


Coins 


Lioyd 


4261 


Check printer 


Check Writer 


Tzmberg 


12 150 


Pocket comp in super mk 


Sharp Marketing 


Atkins 


4:266 


Ease 


Exponential Smoothing 


Gorney 


12:172 


Computer and consumer 


Shopper's Aid 


Maninger 


5:182 


Geodesic dome design 


Dome Time 


Nickeil 


12:310 


How far from here to— 


City Accessibility Cat 


Todd 


5:219 


Language translation 


Foreign Language Transl 


Robinson 


12:314 


Method of stock control 


Analytic Inventory Mng 


Harper 


6:122 


Micro-police net 


Dragnetwork 


Kennedy 


12:374 


Tape based file tracker 


The Logger 


Harris 


6:127 


80 runs observatory 


Appl In Real-Time 


Genet 


12:386 


Moon calendar 


Sheer Lunacy 


Harris 


6:140 


Photocell data gathering 


Eye-80 


Hawkes/ 
Reese 


BUSINESS 






6:236 


Gasoline usage trends 


Mileage Manager 


Frink 


2:216 


Elementary computing 


Some Fundamentals 


Tune 


7:154 


Tiny put on disk 


Mod Tiny Pascal For Dsk 


Harrell 


3:200 


Analyze your business 


Mind Your Own Business 


Glau 










3:240 


Payments, rates, etc. 


The Loan Wrangler 


Jensen 


7:202 


Jazz-up basic 


Enhance Lev II Basic 


Spencer 


5:222 


Tape based double entry 


The General Ledger 


Conhaim 


7:243 


Ponies on pocket cmptr 


Nag Analysis 


Crosby 


11 138 


Rental property inven 


Tenant Tracker 


Kwascha 


8:150 


Ham application tor 80 


Morse-Resource P- 1 


Jotte 


11:144 


Real estate analysis 


Investment Properly Anl 


Sparks 


8:192 


Trace roots 


Family Relationships 


Horwitz 


11 160 


Real estate inventory 


The House Detective 


Cominio 


8:248 


Photo cataloging 


Hold That Pose 


Ebens 


11:190 


Financial analysis 


Investment Du Jour 


Honess 


8:268 


Directory tracker 


Disk Index 


Schilling 


11:321 


Credit union health anl 


State of the Union 


Reid 


8:290 


Business Letters 


Take a Letter 


Mullin 










8:294 


80 tracks sun position 


Solar Altitude Plotter 


Rea 


CONSTRUCTION 






9:130 


Ham software 


Morse Resource P-2 


Jolfe 


1:190 


Sound for the 80 


Onomatoeighty 


Mem 


9:252 


Calculate yours! 


Lifespan 


Wailand 


1:208 


Screen sketching 


Doodlebug 


McKenna 


9:262 


Pocket comp-horse race 


Equine Equation Evalu 


Herold 


2:175 


Build your own 


Very Versatile Interface 


Stanley 


9:286 


80 and election returns 


Secret Ballot 


Busch 


4:134 


Build an HO interface 


High Density Graphics 


Murray/ 


9:290 


On line printer IV 


Enhanced Word Processing 


Rogers 








Fowler 
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LEARN MATHEMATICS THE FUN WAY! 

Programs thai develop mathematical reasoning 

and estimation skill 

Beyond drill and practice 1 ! 

Ail ages will enioy these games that teach 

The Estimation Game(Animated') 

Cassette M2.95 

The Distance Game 

Cassette ,„« 



We take Visa or Master Charge (include card* and 
expiration datei checks money orders 



mm EDUCATIONAL^^ 
W*^* PROGRAMS 1 



P O 2345 
West La'ayette. IN 47906 

(3 17)463-4 778 



,^303 



MORSE CODE, BAUDOT and ASCII RTTY 
FORTHETRS-80 MODELS I and III 

DISASSEMBLED HANDBOOK - VOLUME 4 
no RS-232C interlace is required 

Chapt 1 8 to 800 WPM Morse transmit pgm 

Chapt 2 Arjrjing type ahearj capacities 

Chapt 3 Morse receive decoding program 

Chapt 4 Merging ♦ 12 prepared messages 

Chapt 5 Baudot transmit 60-66-75-100 WPM 

Chapt 6 Baudot receive tor above speeds 

Chapt 7 Merging ♦ 22 prepared messages 

Chapt 8 ASCII transmit program 110 Baud 

Chapt 9 ASCH receive decoding program 

Chapt 10 Merging . 22 prepared messages 

$18 | USi per copy add S2 shipping 
[$4 50 overseas airmail 

-GERMAN & FRENCH LANGUAGE EDITIONS — 

Morse. Baudot & ASCII on disks S49 
'Vol. 4 required lor instructions 

RICHCRAFT ENGINEERING LTD. 
#1B Wahmeda Industrial Park 
Chautauqua. New York 14722 ^276 

COD orders | US only | [7 16) 753-2654 



Smartmodem 



** 



4 



• Auto-Answer • Auto-Dial • Repeat 

• Programmable Use Any Language 

• Touch-Tone and Pulse Dialing 

» Audio Monitor • Listen lo Connection 

• FCC-Approved Di'ect-Connecl 

• Full or Halt Duplex 0-300 Baud 

» RS-232C interlace • 7 Status LED s 
• Two Year L.mited Warranty 

$249 

Send certified check or money order 
Allow two weeks tor personal check 
Florida residents ado 4 ; . sales ta> 

fiC€ COMPUT6R PRODUCTS 

of F'ondc Inc. 
640 N W 3rd STREET 
DEERFIEID BEACH FLA 33441 
VOICE 305 427 1257/DATA 305 427 6300 



_ ^S)Y V You ' ve Written an 

\# Outstanding Program- 

We'd Like to Publish It! 
We're looking for EDUCATION 

Programs: 

SPECIAL EDUCATION AID 

TO THE HANDICAPPED 

MULTI-MEDIA COMPUTER INSTRUCTION 

TEACHER-AUTHORING LANGUAGES 

MANAGEMENT TRAINING 

SIMULATIONS 

Earn money while helping others. 
Write for our free Programmer's 
Kit todayl 

INSTANT SOFTWARE. INC. ^2 

Submissions Dept. 

Peterborough. NH 03458 




TRS-80*** 

COLOf GAME 

LIMITED OFFER! 



*i u sino »0" o<" bonus r.»uf of IMI momti 

*M(N «0 Sfit SISIll »DD»IS»ID S'»MHC 
INvt.CM ro»o» '»fl COlO» »»(X.»»« 



16Ki?tKotoHI RESOLUTION GAMES" 

STARBASE ATTACK ,,29S 
KQSniC fflWtU 18.95 

JOYSTICKS REQV 

rrmii'iD cmicis o» ««ci»t» c«ot«s o«u« 

g^ amory banks 

E P.O.BOX 289 

IV WHUAMSIOWN. MA 01267-02B9 
EXPIRES 12-15-81 "CASSETTE ^^ 



LMEW/ 



PROGRAM WRITES 
PROGRAMS FOR YOU 

Education • Business • Hobbyist 

Now anyone can create BASIC Programs 
in minutes with QUIKPRO. You don't 
have to be a computer programmer to 
produce filing programs, data manage- 
ment & entry. QUIKPRO gives you a sep- 
erate BASIC Program everytime that you 
can List, examine, or even modify. QUIK- 
PRO will pay for itself the first time you 

use it. Order from this ad for the 
Introductory price of $89. 

MICROSOUTH. Dept. F, P.O. Box 1446 
Orange Park, Fl 32073. (904) 269-1918 

I ^i_J 



"DEATHBLOW" 

An Incredible flew 

SPACE ADUEnTUAE 

From I.D.S. In Basic 




Send Check 
Or Money 
Order To: 

I.D.S. 
RO. Box "WB8 
Dallas. Texas 

'□221 OOCl'VINIAT 



O 16K - $15 DO 
O 32K- $17.50 
O 48K~ $20.00 
OAll 3 - $3000 

IIS 10 I, .11 OH M.4III 

• fOuitID 

• 365 

■ON INCIUMO (IDS '<•' 



, 



ENGINEERING ANALYSIS 
SOFTWARE ..569 

Box 1059 

H.ghstown. N.J. 08520 

(201) 367-5735 

Critical Path (Cf-H) P-oiect Coni'oi 

computes network stare stop dates »nh "oat 

prints (osi and protect Mel evaluation report 

A network ganti chan S00 node capacity 

IRS 80 il II t III) I North Stai 1)00 00 

Tut* lending — fabrication data lor bent tube shapes 

input bend radius and nock coordinates 

computes lube cut length, bend and plane angles segment 

lengths 2nd mandrel stop settmg required lo* bending 

nucnmes - TRS40 |l " & III) 4 Nonh Stir SI2S 00 

linear Programming — computes mat mm cost hjnctions 

equations are entered usmg Iree lorm input 

TRS-80 {I. II 1 III) 1 North Star 1*0 00 

Custom appkations of this program to compute leed <t»ies 

ice cream blends, meat matures, etc are available 

call lor quote 

Other Engineering Programs including MO Software 

Space Frame Structural Analysis 

HVAC Load Computations 

Fire Spnnkler Design 

Hardy Cross Water System Analysis 

Sheet Metal Estimating 
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• COMPUTERS • 

n«n«n«n«n«n«n»n»n»n«n»n«n«n 



□ HIGH RELIABILITY DESIGN □ 



TRS-80* COMPATIBLE □ 



□ 

• 7180 Woodrow Wilson 

□ Los Angeles, CA 900 



• IN STOCK NOW!! call for • 

D SPECIAL SYSTEM PRICE! □ 

• • 

° (213)650-5754 ° 

5 EXCELLONIX . 



s See List ol Advertisers on page 418 



□ 
R. • 

18 □ 
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4:218 Install a stringy 

4:228 Ten bock mod 

4:248 Lowercase studies 

5:80 Pari 2— assemble/install 



5:202 

5:254 

7:184 

8:296 

9218 

9-258 

9:296 

10:196 

10:202 

10:234 

10:242 

10:310 

12:192 

12:302 

12:312 



Solder card in lor good 
Batt charger pwr supply 
Transient supression 
Build a box for an 80 
CLOAD aid 

ADJ print density— 779 
Cheap Ic mods 
Tape back-up project 
Communications mod 
Printer interface 
Synthetic keyboard 
Monitor jitter cure 
The conclusion 
16 Carats on all contac 
Sound for the Mod I 



EDUCATION 

2:68 Teaching with an 80 

2:86 Graphics in school 

2:96 Hints on using 80s 

2:226 Learn foreign vocab 

4:144 Hints for software auth 

5:194 Disco dance step tutor 

8:180 Part 1 education series 

8:188 Flash card city 

8:214 Classroom housekeeping 

9:204 Learn with games 

9:244 A horse race math game 

9:272 Pgm for classroom network 

9:292 Sunday school computing 

9:328 Game of analogies 

10:180 Learning POKEs 

1 1 :274 On number systems 

11:306 Classroom housekeeping 

12:154 Learn openings 

12:220 80 in physics lab 



GAME 

3:118 

4:154 

5:294 

6:160 

6:186 

6:244 

7:217 

8:85 

8:86 

8:92 

8:102 

8:104 

8:106 

8:112 

8:116 

8:122 

10:302 

10:320 

10:334 

12:176 

12:226 

12:252 

12:290 

12:298 

12:346 



1:212 

1:222 

1:226 

2:74 

2:78 

2:126 
2:220 
3:62 

3:68 

3:82 

3:154 

3:196 

3:209 

3:216 

3:219 

3:244 

3:248 

3:250 

3:272 



Tall person's game 

Emulate a processor 

Game and graphics lesson 

3-D maze game 

Sea-gomg simulation 

Version of pop game 

Refraction game 

History of gaming 

Star date today 

Three word games in one 

The 'tater wars 

Combat 

Imperialism 

4K and Level II 

Five ships in 3-D space 

Car race 

Popular pastime 

Non-sexist version 

Spaced Out Game 

Hide and seek 

Electronic version 

Drive on! 

How to write adventures 

Color version of game 

Better than Rubick's 



The Model 7 •/, 
Lower Cost Lowercase 
Red Letter Day tor LC 
H D Graphic Interface P-2 

Hardwire RS-232 
An Alternate Source 
Lightning Strikes Twice 
The Wandering 80 
Wave Shaper 
Width Control 
Lowercase Done Right 
Tape Regenerator 
Real World Interface PI 
Hard-Soft Phntware 
Auto-Key 

That Annoying Twitch 
Real World Interface P-3 
Gold-Plated 80 
Another Noise Maker 



Programming For Education 

Classroom Doodles 

Notes From the Classroom 

Vocabulary Builder 

Pgm For Education P-3 

DancinA Disco Primer 

Alternate Course 

Quiz 

Green Register 

Alternate Course P-2 

Math Derby 

Teacher Mod 

Walls of Jericho 

Analogies 

Alternate Course P-3 

Alternate Course P-4 

Calling All Teachers 

The Chess Tutor 

Specific Heat 



Micro-Basketball 

Simul-80 

Boa 

Supermaze 

Subdestroy 

Lunar Lander Revisited 

Level II Black Box 

Walk on Monster Side 

Startrek 4.0 

Frankenstein 

Space Potatoes 

Tank 

Space Empires 

Simon 

Star Guard 

Formula 80 

Micro-Yahtzee 

Hang Person 

Star Colony 

Capture the Computer 

Golf Tee Solitaire 

Rammer 

Writers of a Lost An 

Color Concentration 

The Magic Cube 



GENERAL (Combines Data Management. Home, Software, Style) 



Var cross-ref listings 
Video page layouts 
Communications software 
13 year old ed project 
Minnesota school proi 

Graph any function fast 
Stringy storage 
Take on a reader 
Facts about disks 
Top brass speaks to 80 
Poetry on a computer? 
Benefits of computing 
Write a trainer module 
Level II manual errata 
Electric utility monitor 
A simple memory map 
Consistency and Tandy 
Tape backups of disks 
One line programs 



Crossref 

The Plan Of The Page 
Terminal Plus 
Protect Local 
Classroom Computing 

Function Plotter 
Floppy Tales 
Badinage and Discipline 
Disk Dossier 
Komleld/Roach Interview 
Computer Cantos 
Just a Matter of Time 
Better Documentation 
Between the Lines 
Watts It All About? 
The Shadow Knows 
Opinion = Peek (Mail) 
Disk to Tape 
Short and Sweet 



Fortna 


4:74 


Look at education mkt 


Van Praag 


4:178 


Tongue n cheek glossary 


Ferber 


4:222 


Less expensive ways 


Murray/ 


4:246 


Use them effectively 


Fowler 


4:297 


Create a block cursor 


Dejarnette 


BeM 


Mortgage and closing 


Conner 


5:192 


Programming tools 


Fowler 


5:208 


Computerists not birds 


Hubert 


5:258 


Set disk drive speed 


Shreve 


5:272 


Save ongoing chess game 


Barbarello 


6:84 


Survey of printers 


Burgan 


6:194 


Addition to Lev II man 


Lewart 


6:197 


Bone up on Mod II lore 


Rand 


7:90 


Computers In business 


Sinclair 


7:96 


Which Is best for you? 


Ghan 


7:102 


Why a macro 


Smith 


7:112 


Buzzwords defined 


Rand 


7:116 


Intro to Cobol 


Martin 


7:122 


New CAI language 


Erb 


7:162 


Intro to Forth lang 




7:179 


Biography of a user 




7:254 


On a micro 




7:294 


Of arps, moogs and 80s 


Weintraub 






Rosen burg 


8:156 


Series 


Von Kaenel 


8:194 


Summarize and display 


Zimmerman 


8:286 


Look at new machine 


Weintraub 


9:101 


Lexicon laugher 


Modla 


9:104 


Micros and robots 


Duffin 


9:142 


Why compilers fall 


Olsen 


9:300 


Use of strings 


La Borde 


9:320 


Computer cartoon 


Duffin 


10:118 


What's happening in Al 


Duffin 


10:136 


Al in sci-fi 


Fish 


10:146 


Talking computers 


McNicholas 


10:228 


MetaBasic and to lang 


Spencer 


10:258 


Better record use 


Duffin 






Duffin 


10:264 


Communications 


Hedden 


10:285 


32 Ic char-not 26 


Dowd 


10:290 


Mod I and mod III look 


Fetchko 


11:110 


Effects of new tech 




11:112 


Electronic mail 




11:184 


Survey-word processors 


Weindorf 


11:243 


More on MetaBasic 


Kits? 


11:272 


Who and where 


Myers 


11:328 


Color comp 


Batie 


11:384 


New commands, new uses 


Cominio 


12:100 


Disk based runner's log 


Beringer 


12:142 


Smart-ass prompts 


Jones 


12:181 


What's available 


Latamore 


12:206 


The finale 


Commander 


12:278 


Find ROM addresses 


Nicholas 


12:304 


150 bytes of free RAM 


Brumme 


12:308 


Discussion of features 


Rice 


12:348 


Save on-going games 


Smith 


12:358 


Use it don't abuse it 


McGlumphy 


12:362 


Fancy graphics 


Beringer 


12:384 


A man, a boy, an 80 


Sprague 






Johnson 


GRAPHICS 


Hilton 


4:116 


Disk commands draw line 


Beringer 


4:117 


3-0 rotating graphics 


Fisher 


5:119 


Mach lang printing tech 


Ratke 


5:176 


Turn black to white 


Keller 


5:204 


Segmented screen scroll 


Albino 


6:68 


High-res with dot matrx 


Wyre 


6:96 


Matrix head control 


York 


6:147 


ASCII and graphic elem 


•\ 


9:214 


Animation-packed string 


Ewart 


9:256 


Graph math functions 


MacLean 






Gorsky 


9:302 


Nice title pages 


Petrakos 


11:176 


Using graphics 


Droegemuler/ 






Bell 


HARDWARE 


Graue 


1:172 


Ease cassette I/O 


Keener 


2:230 


Shack's tv rf mod board 


Pennington 


3:214 


Monitor CPU with LEDs 


Commander 


3:252 


Stop unplugging cables 


Robertson 


4:262 


Using (oysticks 


Griffiths 


4:272 


Expansion bus proposal 


Busch 


5:188 


Re-inking print ribbons 


Ferber 


5:236 


Control CLOAD levels 


Mc Ternan 


12:268 


Select ric interface 


Hubert 


12:320 


Shifty mods 


Romkey 






Glosser 


INTERFACE 


Hocking 


4276 


Level I/Level II comm 


Gundlach 


6:92 


Join them 



Toward Courseware 


Petrakos 


Unexpurgated Version 


Busch. 


Cost Ellmrliv Want Pre 


H»w(o 


Loops and Arrays 


Weln 


Block That Cursor 


Balewski 


Home Buyer's Helper 


Stlnson 


Hardtimes 


Fettlg 


A Field Guide 


Doherty 


Speedset 


Winings 


Sargon Saver 


Ouindry 


Buyer's Guide- Printers 


Staff 


The Level II Index 


Mercer 


Model ll Q and A 


Yager 


Micros-Business/Pleasure 


Latamore 


Language Quest 81 


Vose 


Macroprocessor-Basic P-1 


Olmstoad 


Coming to Terms 


Fugate 


Cobol— Ready and Waiting 


Bradley 


Pilot-lnstr Language 


Hawkins 


First Look at Forth 


Krutch 


Getting Involved 


Batty 


Regression-Correlation 


Honess 


Quick Riff on Synthezrs 


Keen/ 




Dischert 


Microprocessor-Basic P-2 


Otmstead 


Vital Statistics 


Honess 


Color Comp- First Impress 


Kilmon 


All Robotese To Me 


Gisamte 


Robotics 


Brown 


Macroprocessor-Basic P-3 


Olm stead 


The Magic Trick 


Busch 


80 Cartoon Capers 


De Vigili 


Al at MIT 


Vose 


Realm of SchFi 


Robertson 


Voice Synthesizer 


Hall 


Macroprocessor-Basic P-4 


Olmstead 


All About Files 


Bernard/ 




Bernard 


Adventures-Modemland 


Blechman 


Soft Characters 


Moulton 


Basic Difference 


Blechman 


Computerization- Workplc 


Brown 


Digital Delivery 


Latamore 


Fast Round-Up 


McComb 


Macroprocessor-Basic P-5 


Olmstead 


User Groups 


Nadeau 


Colorful Maneuvers 


Wood 


Enhanced Again 


Goodwin 


A Runner's Logbook 


Vose 


Let's Get Rude 


Ramella 


Buyer's Guide — Peripherals 


Staff 


MacroprocessorlBasic P-6 


Olmstead 


80 Black Book 


McGlumphy 


The Freebie 


Adams 


NEWDOS 80 


Jackman 


The Sargon Saver 


Quindry 


Ins and Outs of Edit 


Schrader 


Poke A, Color Computer 


Esposito 


Lenny's Story 


Busch 


Advanced Techniques P-1 


Boothe 


Turn of the Screw 


Boothe 


Advanced Techniques P-2 


Boothe 


Inverse Video 


Smith 


Flexible Scroller 


Myers 


Advanced Techniques P-3 


Boothe 


Tiger with Dots 


Somers 


Unlocking Graphic Code 


Weintraub 


Picture This 


Keen/ 




Dischert 


Curve Plotter 


Zimmerman/ 




Stanley 


Title Graphics 


Kalinowski 


Ups and Downs of Graphics 


Foley 


Audio Interface 


Batie 


Perverse Video 


Winter 


See No Evil 


Macre 


Switched On CLOAD 


Bickel 


80 Joystick Control 


Barker 


80 Bus Conductor 


Fox 


Keep It In The Black 


Johnson 


The Pulse Jockey 


Suter 


IBM Joins Tandy 


Stanley 


80 Cursor Control 


Waltjen 


Model 1 Dumb Terminal 


Tallman 


Xerox 1740 and Mod ll 


Nestor 
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ACCOUNTS RECEIVABLE 
& SALES ANALYSIS 

* 1300 Customers 

* 1300 Sales/Payments 

* 99 Departments 

* Alphabetical Listings 

* Selective Late Charges 

* 30-60-90 Day Aging 

* Mailing Labels 

* Sales Analysis by Dept. 

* Rapid Entry & Operation 
REQUIRES 48K MOD III 

2 DRIVES 

$150.00 

JERRY MEDLIN & ASSOCIATES 
310 SOUTH JEFFERSON ST. 
NAPA. CALIFORNIA 94559 
(707) 255-4475 
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- - - LIICOS - - - 

CASSETTE OPERATING SYSTEM 
FOR RS MODEL I LEVEL II USERS 

THE LOWEST ALTERNATIVE TO DISK 
FEATURES: 

■ UP TO 9 TIMES FASTER THRUPUT 

■ LOGICAL RECORD PROCESSING 

■ NEW LIICOS STATEMENTS 

OPEN - CLOSE - EOF - DEFM 

■ INCREASED TAPE CAPACITY 

UP TO 700.000 BYTES/CO MIN 

■ OPTIONAL 2000 BAUD TAPE ROUTINES 
LIICOS $34 05 COS-2000 BAUD $44 95 
ADD 2 OO SftH DOCUMENTATION $8 95 

004) 478-076 5 

• 390 

CANTY ft ASSOCIATES 

B909 B ELLINGTON PENSACOLA FL 32504 



PROFESSIONAL MAILXNG 
LIST PROGRAMS 

FABTMAZL-3 IJNF. I AHF.I. OPTIONAL 4'TH I .INF OR 
IINPRINTFD IJNF FOR SEARCH CODES. TAPU1AR 
PRINTOUT. SEARCH AND PRINT ON SCREEN OR PRINT- 
ER SORT 500 NAMES IN ZIP OR ALPHA NUMERIC 
ORDER IN 10 SECONDS. DFIJTE DUPIJCATES. MERGE 
FIIES AND MORE $7*M 

huuoom run ail the features of fast 

MAIL INCLUDING THE OPTIONAL 4TH LINE. SEPA 
RATE IJNES FOR PHONE. ALPHANUMERIC SORT 
CODE AND SEARCH CODES 178.00 

PROGRAMS TO MAJTCFUXATK IT AMJB8 ITLI8 
■OBI- MERGE DISKS OF NEW MIXED NAMES INTO 
YOUR MASTER DISK. SORT AND DELETE DUPLI- 
CATES $M.OO 
SPLIT -TAKE FILES WHICH HAVE BECOME TOO 
IARGE AND SPLIT THEM AT THE POINT OF YOUR 
CHOICE S88.00 
PTLS PRINT OUT NUMBER OF NAMES IN EACH 

file sss.oo 

aoKr/WTurzfmmtr imoa juiiiio lot pkookam 
iiae.oo 

nrQviBiBa wilcoio 

THE PERIPHERAL PEOPLE ^576 

f.O. BOX 21123 

SEATTLE.. W A 98 11 I 

206-632-8649 



\iy v You >ve Writun an 

5/ Extraordinary Program- 

Wed Like to Publish It! 
Programs needed for MANAGE- 
MENT applications: 

PERT ft CPM SCHEDULING 
PREDICTIVE MODELING 
DECISION-MAKING SIMULATIONS 
PRODUCTION SCHEDULING 
EXPENSE ANALYSES 

Royalty checks may be in YOUR 
future. Write for our free Pro- 
grammer's Kit today. 

INSTANT SOFTWARE. INC. ."2 

Submissions Dept. 

Peterborough, NH 03498 



B17 TAPE OPERATING SYSTEM will let you 

• Save & Load programs 6X (aster than ModeM 

• Save & Load Data Arrays over 800X faster 

• Backup standard System tapes that load-n-go 

• Certify cassette tapes at 3000 baud. 
$24.95 Specify Model 1/3 16K/32K/48K RAM. 
Inexpensive Upgrades available. 3rd year of sales. 

B1 7 DISK/BAS is a Disk version Lets you save any 
disk file to cassette at 3000 baud Inexpensive way 
to backup your Hes Works with any DOS Includes 
tape certifier Requires 32K RAMup 
S14.95 

WORDSMITH Word-processing program in BASIC 
A Trainer' for more complex W/P programs Easy- 
to-use. Specify Tape/Disk version Tape version 
requires 81 7 Tape Operating System (above). Disk 
version requires 32K RAMup. Uses MX-80 Printer 
Only $14.95 

30-day money-back guarantee with all programs 

ABS Suppliers .-seo 

3003 Washtenaw. Suite 4A • Ann Arbor. Ml 48 1 04 
(313) 973-8266 

Coming soon 

Inexpensive computer service business Write 1 " 



TRS-80 SOFTWARE 

Master Disk Index (MDI): $12/cassette. 

$16/5'/4" disk Creates and maintains a 
master file of disk directories updated by 
automatically reading each disk's directory 
MDI records may be selectively displayed 
printed or deleted by either string matching or 
record number Uses tast machine code sort 
NEEDS 32k. 1 disk Level II Basic 



Lunar Landar. $ 1 O tamc s t Sohdly based on 
physics Displays the landscape, craft and 
changing navigational information NEEDS 
16k Uvel II Basic 

Othello 3.0: $10 cassette. Better than the 
board game Much better because it pLiys you 
vs TRS-80. you vs afnend. orTRS 80 vs it 
self' Slaughters programs that maximize cap 
tures NEEDS 16k Level II BASIC 

Note NY residents add sales tax 
CUSTOM SOFTWARE 
P O Box 324 1 Raymond Avenue 
Poughkeepsie. NY 12603 



s 




80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and en|Oy you' Subscription 




If You've Written A Program 

And Need Copies 

(1 to 1,000,000) 

Give Us A Call! 

Penner Bros.. Inc. 

305-287-0588 .see 

210 Seville St. Stuart, FL 33494 



TM 



COLORSOFT 

' 'Quality Software at an Affordable Price ' ' 
TRS-80* Color Computer Software 
Priced From $7.95 

• Home/personal • Games 

• Educational • Financial 

We Also Offer: 

• Custom Programming 

• Royalties for Software 

Documentation and a limited guarantee 
with all COLORSOFT™ software. 
Free catalog containing descriptions of 
30 software items, write to: 

Color Software Services 

P.O. Box 1723 
Greenville, Texas 75401 

•Tandy Corp Trademark Vsa/Mashrtaro AxaplM 



• S** ListolAOvmrtisars on page 418 
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6:157 From scratch 

6:166 AY3-8910 sound generator 

6:288 Rochester data I/O pak 

7:171 For frustrating loads 

7:262 Mod 33 and multl 80 

8:164 Tl printer and Mod I 

9:1 1 4 Kenner's R2D2 Meets 80 

1 1 : 184 Splnwriter divers 

11:208 Finish the protect 

11:382 More memory moves 

PERSONAL 

5:87 Car buying advisor 

5:103 Wrap-around mortgages 

5: 1 1 3 Evaluate auto financing 

5276 Generate nasty letters 

6:268 7 pgn investment anayt 

6:296 Loan calculations 

7:289 Loan formulae 

8:136 Will writing pgm 

TECHNIQUE 

1211 Bar graph generation 

1218 Data file handling 

5:246 Generate distributions 

6174 bvtro to Pascal 

6255 How to do It 

6:294 Use read, data, restore 

7:199 Replace Ready message 

7298 Use 16-bit registers 

8230 Memory conservation 

8292 Programming techniques 

9:154 Rotating cubes in 3-D 

9:220 Machine lang sort 

9:228 Array teaches array 

9:322 Self-modifying pgms 

10249 Save data 

10:296 Basic tricks 

10:350 Easy data entry 

10:354 Deep nesting 

11:204 Organized programming 

11:250 Using chaining 

12:398 Tips on how to be 

TUTORIAL 

1:96 What, when, where, why 

1 : 1 00 Essence of variables 

1:114 Curses and cures for 

1:182 Intro to simple 3-D 

2:100 Secrets of subroutines 

2:166 Machine code and Basic 

2:168 Predict random numbers 

2224 Leam these concepts 

3:92 Afterthoughts on style 

3:104 Uses of INKEYS 

3:178 How to use interrupts 

3:186 Debugging techniques 

4240 DOS software speed mods 

5:146 A RAM/ROM tutorial 

5:168 Assm lang for beginner 

5:292 Ways to express avgs 

6:108 Review-error messages 

6:112 Let's assemble 

6:202 Inside the Color Comptr 

7:146 Go for it 

7:271 Random access technique 

7291 More on error messages 

8:208 Speaking computer 

8:254 Use machine code 

8:262 Data comm with 80 

8:304 A brain teaser 

8:308 Intro to sorts 

9:148 Intro to sorting 

9:170 Additional Lev II comds 

9:182 Utilities for Mod III 

9242 Pgmng for profit 

9:312 What it realty means 

9227 Head cleaning program 

9:334 Hybrid language 

1 1 292 Muscle subroutines 

11:300 Using command mode 

11:352 Keyboard trick tl treat 

12230 Everyday programs 

12:324 Bom again programmers 

12:368 How a line works 

12280 Uses of loops 

UTILITY 

1:130 Fast bug swatter 



Joysticks For Mod I 
Polyphonic Sound Synths 
Electro-Mech Hard Copy 
Last CLOAD Fix 
Recipe For Hardoopy 
80-RS 232-TI 810 
One Man's Robot 
A Driven Prtntot 
Rami World Intartaoa P-2 
ROM Roller-Over 



The Auto Mentor 
Houses-How To Buy/Sail 
A Dollar Down 
Computerized Complaint 
Software Broker 
Rule of 78s 
Real Rule of 78s 
Being of Sound Algorthm 



High On Histograms 
Efficient Cassette I/O 
Not-So-Random Numbers 
Pascal Dream 
Pgm Chaining/Var Deftn 
Embedding Data 
Never Ready 
Undocumented Instrs 
RAM Squeeze 
Three's Not A Crowd 
Rotation 

High Speed Sorts 
Erudite Arrays 
Slice/Dice Basic 
Debug with GOTO 
Multi-Statement 

Formatted Screen Input 
Thoughts on For. . . Next 
In Praise Of Outlines 
Chain Command Implement 
Get Organized 



On Modems 

Into the 80s 

Cload, Five Letter Word 

Perspective On Cubes 

Into The 80s 

Be A USR User 

Random Tricks 

Compile-lnterprel-Assem 

Into The 80s 

Do Not Enter 

Do Two Things At Once 

Wild Glitch Hunting 

Fast Clock DOS 

Memories-Made Of This 

Idiot's Quide-Assm Lang 

On The Average 

To Err Is Forbidden 

Idiot's Guide-Assm Lng P-2 

Inside Color Computer 

Join Pascal Crusade 

Handle Random Files 

To Err Is Forbidden P-2 

Pgmng Voice Synthesizer 

Be A Super USR User! 

Datacom Decisions 

Digits For Fun 

All About Sorts P-1 

All About Sorts 

New Words For Basic 

Lev II Utll On Mod III 

Going Pro 

Clear N 

Head Bright 

Bascal 

Customized Commands 

In Command 

Keyboard Incantations 

Pocket Full of Chips 

The Conversion 

Queue Theory 

For My Next Trick... 



ZBug 



Dinunzlo 
Brocaw 

Levine 

Stanley 

Keith 

Herman 

McAllister 

Mueller 

Rand 

Kelch 



Sparks 

Whitman 

Martin 

Gilltg 

Harper 

Conhalm 

Confialm 

Weinberg 



Levy 

Sabin 
Zeigler 
Krutch 

Brown 

Adams 

Balewskl 

Cameron 

Adams 

Mawdsley 

Yellln 

Robson 

Bames 

Scneider 

Pape 

Keen/ 

Dtschert 

Byrnes 

Amyx 

Drew 

Pape 

Lesley 



Brown 

Sinclair 

Kitsz 

Gerhardt 

Sinclair 

Joffe 

Perkins 

Faulk 

Sinclair 

Weintraub 

Gorsky 

Warren 

Domuret 

Randall 

Montgomery 

Gomey 

Adams 

Montgomery 

Manelf 

Nicholas 

Grothman 

Knecth 

Adams 

Werner 

Alford 

Derfler 

Wirth 

Gomey 

Gomey 

Neibaur 

Blgelow 

Moss 

Salsbury 

Hesse 

Metzler 

Rupert 

Rut ledge 

Robnett 

Dolan 

Woeger 

Neiba uer 

Mac Lean 



Han-ell 



1200 

2:112 

2:138 

2:144 
2214 

2218 
2:236 
3:160 
3:168 
3:180 
3:191 
3210 
3222 
3:225 
3232 
3:236 
3247 
3256 
3270 
4271 
4:298 
5:190 
5216 
5234 
5244 
5256 

5:260 

5:264 

S270 

5283 

5284 

5:288 

6:178 

8:192 

6219 

6224 

6232 

6246 

6:285 

7226 

7244 

7:251 

7:259 

7:280 

6168 

8240 

8260 

8:270 

8:274 

8278 

6282 

9:174 

9:186 

9:228 

9-240 

9250 

9276 

9:282 

9:317 

9:333 

10:166 

10:288 

10:306 

10:312 

10:326 

10:340 

10:344 

10:358 

10:360 
10264 
10270 
11:172 
11284 
11:314 
11:333 
11266 
11:360 
11:368 
11:390 
12200 
12222 
12236 
12238 
12:242 
12260 
12262 
12226 
12266 
12280 



Disk Basic to Level II 
Up-date TRSDOS clock 

Screen dump graphics 
Fast editing 
Pack strings tightly 
Quick load EDTASM 
Save screen contents 
Protecting software 
Program packing tech 
Searching strings 
One disk copy utility 
Tape loading help 
Scrlpsit to DOS moves 
Hex and octal constants 
Cheap word processing 
Follow program branches 
Adjust print width 
Assembly lang renumber 
The disk version 
Check ASCII disk dumps 
Answers prompts in hex 
Retrieve lost files 
Formatted Input commnds 
Hex Instrs to Basic Wk 
Calculator hex conversns 
Single disk copy progm 

Uc/lc shift reversal 
Name list quick sort 
Remove rems and spaces 
Recover lost lines 
Move it all the way up 
List variables and more 
Oon't type run or list 
Convert uc to Ic 
Kill files fast 

One command kills pgms 
Disk speed routine 
Underlining 

KILDOS-lree disk space 
Cheap tor the Mod II 
Read ROM 
L1 printouts from L2 
List all variables 
Machine lang data tapea 
Mach lang to Basic data 
How to write one 
Get INKEYS working 
Disk cataloging 
Calendar pgm 
A warm boot-up 
Basic wds in 1 keystroke 
Mach lang space delete 
Mach lang conversion 
Conversion utll 
Delete instr/save mem 
Auto debugging 
Serial printing 
Scripsit-Mod If Mod III 
NEWDOS Mods 
Data-obi code to Basic 
Terminal software 
Cp/m text editing 
Join your programs 
TRSDOS ipl routines 
Patches for Level II 
Full error messages 
Disk storage tricks 
Using your keypad 

NEWDOS chain mod 

Look into keyboard mem 

Shorthand data entry 

Special print functions 

New technique for Lev II 

Inexpensive way out 

Easy to read listings 

A disk doctor 

Sector I/O in TRSDOS 

New T-Bug commands 

T-Bug for Mod III 

Use that keypad 

Fast printing 

Mod II screen dump 

Join files today! 

Shift entry 

New prompt 

Mach lang data from Baa 

Diekzapper 

EasyPOKEing 

Word processing 



08 To Level II Convert 


Mumford 


Clock Boot 


Boohmho 


Paper Tiger Screenprint 


Lewart 


Auto Edit 


Rollins 


Lprint Formatter II 


Tzinberg 


Feat Edit 


lllk 


Now You See It 


Borrmann 


No Forwarding Address 


Thell 


El Cheapo Packer 


Browne 


Find It Feat 


Yelvington 


Single Drive File Copy 


Gorsky 


BabyDub 


KltSZ 


Script Patch 


Allred 


Constant Alternatives 


Hand 


Pauper's Processor 


Osbum 


Where Have QOTOs done? 


Borrman 


Ez Wider 


Chepko 


Speedy Renumberer 


Dowd 


Kbeeptix Revisited 


Whitehead 


Compare 


Everett 


Smart Answers 


Williams 


Direct Statemnt In File 


Fitchhom 


Dollars and Shim 


Andrews 


The Encoder 


Cain 


Hex Converter 


Malone 


One Wheel Drive 


Keen/ 




Pezzuto 


Shift Lock 


Hambel 


Spare Time Generator 


Mehesan 


Comprs 


Barker 


Line Loss 


Borrmann 


Take T-Bug Higher 


Stanley 


Know-ll-AII 


Sehmer 


Disk Auto Menu 


Hewin 


Captran 


Gorsky 


Purge 


Ligori 


Copykill 


Kelley 


SottTach 


North 


Underscore Scripslt 


Iseli 


KILOOS Is Here 


Soltyslk 


Mod II Word Proc 


Kikoy 


Basic Disassembler 


Delfine 


LUST lor Level 1 


Ogden 


Variable Lister 


Webster 


High Speed Deta Tapes 


Glosser 


Datagen 


Lewarts 


80 Disassembler 


Wuebker 


Uc/Lc Fix 


Thuriow 


Dirprog 


Egbert 


The Date Maker 


Grosse 


Command File Modifier 


Crawford 


Basic Shorthand 


Radin 


Memory Expander 


Kenealy 


Base Conversions 


Yelvington 


Spilt N Splice 


Mills 


Throw Awey 


Langston 


On Error-Fix 


Richardson 


Serf Print With EDTASM 


Cohen 


Patching Across 


Koch 


Rename 


Busch 


Dateline 80 


Press 


Emterm 


Mills 


CROSSDOS 


Means 


Building Bridges 


Mueller 


Through-Boot 


Smith 


Tale of Two Drivers 


Blair 


Full Error 


Keairns 


Modifying EDTASM/Plus 


Rofinde 


Datafix 


Bernard/ 




Bernard 


Weak Link 


DenhoiU 


Memory Window 


Merkey 


Copyit 


Balewskl 


Scripslt-Sans Serif 


Cochrell 


Merge For Lev 11 


Dalesandry 


Baudot LPRINT 


Rister 


Su par list 


Jones 


Pureuap 


Stanley 


Simplezap 


Safford 


Newbug 


Marks 


T-Bug III 


Klelnfelter 


Dexterous Data Entry 


Shuken 


Print Spooler 


Gault 


The Dumpster 


Faber 


Mergers 


Lloyd 


TheSentry 


Raatln 


Ready— For the Mod II? 


Barbarello 


The Death Wish 


Smith 


Floppy Fixer 


Beebe 


Cheater's Poker 


Davies 


More Write Stuff 


Bames 
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64K COLOR 

TRS-80' COLOR 
COMPUTERS 

64K $699 16K $389 

32K $429 4K $329 

Add $90 for oxtsndod basic 

EXPANSION KITS 

64K $375 16K $35 
32K $75 XBASICS90 
CaN for dotalto on othor TRS-80* 

computer* A accessories. 

SOUND CENTER ,<<* 
RADIO SHACK DLR 
Los Alamos, NM 87544 
(505) 672-9824 

'TRS-80 Is a tradamark of 

Tandy Corp. 



TRS-80 MODEL I EXPANSION 

UN SYSTCH EIPAN5I0N BOARD t 390 

32K, FLOPPY CONTROLLER, REM. TINE CLOCK, 
PARALLEL PRINTER, RS/232 20HA I/O. 
RADIO SHACK EXPANSION INTERFACE 

OK. ..I 270 UK.. .1310 32 K... 390 
UP6RADE YOUR EXPANSION INTERFACE KITH 4116 
200 NS REHORY CHIP, INSTALLED k TESTED. 

I« 140 32K ON 

TRS-80 MODEL III 

NITH 1W...I 850 32K...0 fOO 4R...I WO 

NITH 48K I 2 SIN6LE SIDE DRIVES 11990 

NITH 48K I 2 DOUfcE SIDE DRIVES 12190 

TANDON DRIVE ON SALE! 

40 TRACKS SIN6LE SIDE I 230 

40 TRACKS DOUBLE SIDE • 330 

SERVICES li REPAIRS 
LON ION PRICE! CALL FOR DETAILS! 

NORTH t EAST SOUTH KST 

(312) W-4773 (713) 488-1332 (408) 729-8*94 

KAM ENTERPRISES *" ** 
P.O. Ml 1013, NORTHIR00K, IL. M042 



4 MHz 



FOR THE 



MOD 3 



PC BOARD & DOC 



ONLY S 34.95 



THIS EASY TO INSTALL KIT WILL 
DOUBLE THE SPEED OF YOUR MOD- 
EL III COMPUTER. 

COMPLETE KIT S74.95 

ASSEMBLED & TESTED S 99.95 

CALL OR WRITE 
J.E.S. GRAPHICS 
P.O BOX 2752 
TULSA. OK 74101 

PHONE 19181 742 7104 • iw 



TOOLS 



MODEL III CASSETTE COPY 

• Copy and verify cassette programs 

• Split large programs into sections 

• Convert between 500/1500 baud 

• Produce multiple cassettes efficiently 

• Copy programs larger than avail, memory 

• Rename programs $47 75 

MODEL II SCREEN EDITOR 



Edits all ASCII files 
Scrolling 
Find/Change 
Block Move/Delete 
Improved listings 



Full Screen 
Insert/ Delete 
Split/combine lines 
On-screen HELP 
Auto line numbers 



WRITTEN IH BASIC - FULL SOURCE PROVIDED 

Requires 64K Mod II 
Specify DOS 1 3 or 2 



$97" 



CLARK CONSULTANTS 

363 Lafayette Street. Salem, MA 01970 

Massachusetts residents add 5% sales tax ,, 



TRS-80 MODEL I™ 
G0LDPLUG 80 

Eliminate disk re boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 



EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

(817)498-4242 

•TRS-80 is a trademark of 

Tandy Corp. 



NEW! 



RONTEL 



-SPOOKS— Rack 
up points following 
trails and eating dots 
but watch out for 
the spooks' 
When you get tough 
—SPOOKS— w:ll get 
tougher . sound 

• FAST GRAPHICS 
• RECORDS BEST SCORES 

—SPOOKS— (cassette postage paidi S16.95 




NEWL 



SSBUG 
F mil) RONTEL Single Stepper 

For serious machine code debugging SSBUG 
displays all registers and more within a small 
moveable area of screen This utility examines and 
alters memory breakpoints, and single steps lifting 
a user selectable key. suppresses following calls. 
and much, much more SSBUG is human engi- 
neered so as not to interfere with regular program 
execution • easytooperatf -uses about jk 

SSBUG n assette postage paid) $19.95 

Both Programs tor TRS-80 MOD. I and III 

S*nd Ch»ck or Money Ordei lo 



l=I-IJfca=H **»6 



903 Shady Drive 



Dept. M 

RES ADO 4». SALE 

A MIC. <f»A(#MA«l" 01 



Vienna. VA 22180 



GET YOUR 
TRS-80 DIRECT 



MJTHMUEO SALES CEBTEH 



£m cQMjfl?ffts 

■m at in uiiw 4T7 0aanaui< 



AND 
VIDEO 



377 PLAZA. HWY 377 SHAMURY 

FORT WORTH. TX 78MB ^ 462 



AND SAVE $ 



Gal our quota 'baton" you buy. 

FuH manufacturer!' warantaa 

Taxaa raatdanti add 4% saiaa tax. 



S817-573-4111 



COST OF CALL REFUN0ED FOR ORDERS BY TELEPHONE 









You've Written 

a Fantastic Game? 

Then We'd Like to Publish It! 

We're looking for hot GAME pro- 
grams: 

ARCADE (HI-SPEED GRAPHICS) 

ADVENTURE FORMAT 

FANTASY WARGAMING 

BOARD GAMES 

LOGIC & PUZZLE GAMES 

There's Gold in them there 
Games! Write for our free 
Programmer's Kit today. 

INSTANT SOFTWARE. INC. "2 

Submissions Dept. 

Peterborough. NH 03458 



MODEL II 

All Graphics • Non-Scrolling 

STARSHIPI 

Brittle the invaders from vour 

complete command console 

Documentation and basic 

source code on 8" diskette 

$50 postpaid ^253 



PANORAMIC 

Systems 



216 1 2 West James Street 

Lancaster. PA 17603 

Phone (717) 393-1917 



* Sea List of Advertisers on page 418 
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80 Reviews 



Books 



Product 

57 Practical Prog & Games/Basic 

A Sale House Electronically 

Ail em ale Source. The 

Basic Fortran 

Basic Scientific Subroutines 

Creative Kids Guide/Home 

Computers 

Data File Programming In Basic 

Heathkit Assembly Lang Course 

Inside Basic Games 

Intro To Pascal, UCSD Pascal 

Microcomputing Techniques 

Windstorms: Children, Computer 

More TRS40 Basic 

Morse Code, Baudot and ASCII 

Musical Applications ol Micro. 

Nature of Computation: Intro 

New Uses For Home ComplStock 

Mkt 

Owning your Home Computer 

Guide 

Pascal 

Small Computer In Small Business 

Structured Basic and Beyond 

The CPIM Handbook With MPIM 

TRS-K Assembly Language 

TRS-80 Level II Basic. T Guide 

UCSD Pascal Compiler 

Your First Computer 



Manufacturer 



Tandy/Radio Shack 


4/81 


Tandy/Radio Shack 


2/81 


Magazine of Advanced Applications 


1/81 


Hayden Book Co. 


6/81 


Byte Publications 


9/81 


Doubleday & Co. 


4/81 


John Wiley & Sons 


11/81 


Heath Corp. 


9/81 


Sybex Inc. 


9/81 


Sybex Inc. 


11/81 


Reston Publishing Co. 


3/81 


Basic Books Inc. 


2/81 


John Wiley & Sons 


12/81 


Richcraft Engineering, Ltd. 


11/81 


Hayden Book Co. 


9/81 


Computer Science Press 


10/81 



Thomas V. Lenz 

Everest House 

Matrix Publishing 

The Stephen Green Press 

Computer Science Press 

Sybex 

Prentice-Hall Inc. 

Tandy/Radio Shack 

FMGCorp. 

Sybex Inc. 



11/81 

6/81 

4/81 
11/81 
11/81 

3/81 
10/81 

1/81 
10781 

2/81 



Hardware 



Product 

Centronics 739 Printer 

Coosol 101B-80E Printer 

Dip-81 

Dynatyper Keyboard Actuator 

Home Computer Work Table 

Internal Memory, The 

KQS Keyoard Actuator 

LX-80 

Lynx 

Microconnection 

Microconnection. The 

Model 1 SpeedUp 

Rex-80 

SA800 

Telephone Interface II 



Product 

Computerwortd/Kraftwerk 



Manufacturer 

Centronics Corp. 

Coosol Inc. 

Dip Inc. 

Rochester Data Inc. 

Computer Roomers Inc. 

Holmes Engineering 

Nik International Trading Co. 

Lobo Drives International 

Emtrol Systems Inc. 

The Microperipheral Corp. 

Microperipheral Corp. 

Archbold Electronics 

Palomar Computer Products 

Lobo Drives International 

Tandy/Radio Shack 

Record 

Manufacturer 

Warner Bros. 



12/81 

12/81 

10/81 

12/81 

10/61 

12/81 

9/81 

7/81 

9/81 

8/81 

9.81 

7/81 

12/81 

7/81 

9/81 



12/81 



Software 



Proouct 



Manufacturer 



Accel 2 Compiler/Disk Bas Tab 


Allan Gelder Software 


11/81 


Acquire 


Avalon Hill 


11/81 


Aids WAids III 


Mcia Technologies Corp. 


4/81 


Aids III with Calcs III 


Meta Technologies 


8/81 


Astro-Scope/Sexoscope 


Ags Software 


9/81 


Astrology 


Tandy/Radio Shack 


5/81 


B1 BomberlNukewar/N at Con 






RDR 


Avalon Hill 


6/81 


Bascom: Basic Compiler, Mod I 


Microsoft 


5/81 


Boss 


Soft Sector Marketing Inc. 


7/81 


CBug 


The Micro Works 


9/81 


CCA Data Manager 


Personal Software 


8/81 


Cocobug 


Allan Gelder Software 


9/81 


Creator, The 


Complete Business Systems Inc. 


11/81 


Dancing Demon 


Tandy/Radio Shack 


4/81 


Datestones of Ryn 


Automated Simulations 


4/81 


DDT (Disk Drive Timer) 


Disco-Tech Microcomputer Prod. 


4/81 


Deathmaze 5000 


Med Systems Software 


2/81 


Deluxe Personal Finance 


Small Systems Group 


5/81 


DiscaV Mod 1 32K/46K 


Myatte Smith 


7/81 


Edas 


Misosys 


11/81 


EOT ASM Plus 


Microsoft 


10/81 


Electra Sketch 


Macrotrontcs Inc. 


1/81 


Eliza 


Tandy/Radio Shack 


4/81 


Everest Explorer 


Acorn Software Products Inc. 


8/81 


File Management System (FMS) 


Exatron Corp. 


3/81 


Flextext 


Apparat 


9/81 


FlopycatlBas/Disk NamaJBas 


Marvin Plunkett 


5/81 



Fractional Sound 

Galactic Empire 

Galaxy Invasion 

Gamble! 80 

General Accounting Package 

Haunted House 

Helltire Warrior 

In Memory Information 

Invaders Plus 

Invaders Plus 

Invasion From Outer Space 

Keynote 

Kim 's Game 

Labyrinth 

Lazy Writer 

LDOS 

Master Directory 1. 1 

Maxi Micro Manager 

Midway Campaign 

Music Box, The 

Music Master 

Mychess 

Orchestra 80 

Pats Revenge 

Regression II 

Remassem 1 

Remodel & Proload, Infinite Basic 

Sargon II 

Sfinks 

Small Home/Business Software 

Smart80D 

Southeastern Textan 

Space Shuttle 

Spooler 

ST80-III 

Subedit/Subscript 

Subscript 5.0 

Supernova 

Superscript 

Superstep 

Swamp Wars 

T80-FS1 Flight Simulator 

The Patch 

Tiny Pascal 

Trackcess 

TRS-Opera 

Two Heads Of The Coin 

Ultra-Mon 

Varkeep 

Winged Samurai 

Wizard, The 

Word Challenge 

Wordo 

XBasic 

XBE 

ZBasic Compiler 



The Innovative Penguin 
Broderbund Software 
Big Five Software Co. 

Microed 

Tandy/Radio Shack 

Automated Simulations 

Tandy/Radio Shack 

Level IV Products 

Level IV Products 

The Software Exchange 

Hayden Book Co. 

General Computer Co. 

Med Systems Software 

ABC Sales 

Lobo Drives international 

Micro Systems Software 

Exador Inc Adventure Intnl. 

Avalon Hill 

Newtech Computer Systems 

Instant Software 

Software Affair 
Med Systems Software 
Dynacomp 
Remsoft Inc. 
Racet Computes 



Blechman Enterprises 

The Microperipheral Corp 

Southeastern Software 

Instant Software 

Mumford Micro Systems 

Small Business Systems Group 

Prosoft Software 

Prosoft 

Big Five Software Co. 

Acorn Software Products 

Allen Gelder Software 

Instant Software 

SuMoglG Company 

Ceedat 

Super soft 

The Alternate Source 

Acorn Software 

Adventure International 

Interpro 

Circle J Software Ranch 

Discovery Games 

Programs Unlimited 

Acorn Software 

Microfantastic Programming 

Snapp Inc. 

Computer Applications Unlimited 

Simutek 



9/81 

Ml 

8/81 

12/81 
6/81 
8/81 

10/81 

11/81 
8/81 
4/81 
8/81 
5/81 
5/81 
8/81 
6/81 
6/81 
4/81 
8/81 
6/81 
5/81 
5/81 

12/81 
5/81 

11/81 
9/81 

12/81 
9/81 

12/81 

12/81 

11/81 
3/81 

10/81 
9/81 

10/81 
9/81 
Ml 
9/81 
8/81 
3/81 
9/81 
8/81 
8/81 
2/81 
7/81 

10/81 
8/81 
8/81 
4/81 
4/81 
8/81 
5/81 
8/81 
4/81 
9/81 

11/81 
6/81 
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University Microfilms International 

300 North Zeeb Road 18 Bedford Row 

Dept. PR Depl P R. 

Ann Arbor. Ml 48106 London. WClR 4EJ 

US A England 
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PROFESSIONAL 
FEDERAL INCOME TAX 
PROGRAMS 

• 

• •telayta between Forma 
• rally AvOKJS Duplicating F 

• Uses IRS prescribed Comp • Print-ouU 

• ■■ '.' 

• .'dale oi 
Succeeding I ..•.■ 

Basic Pacnage 1040 1040A Scneduies »BJTC 

000 Additional Schedules S2S 00 eacn 

S-ngie Schedules may be purchasec - 

•Clip lion and Sample* 

i| . ed To purcnaae pncei 



MICRO-TAX 

P O Box 4262. Mountain View. CA 94040 

Call: (415) 964-2843 , ir ^ 



VlkDISKETTEali 
Vj BACKUP t W 



DO NOT TAKE UNNECESSARY RISKS 
WITH YOUR SOFTWARE. 

If your diskette software library it not com- 
pletely backed up. or. if you are wasting disk- 
ettes by making backup copies of all your 
diskettes, your problem is solved! Using 
DUMPLOAD, the total contents of your disk- 
ettes can be safely dumped to tape. The hi- 
speed tape option allows six 35 or 40 track 
diskettes to fit on one C60 casette. 

• TRS-80 Model 1 16K-48K 

• TRSDOS or NEWDOS80 Compatible 

• May be used to beck-up TRSDOS, VTOS 
4.0, NEWDOS. MICRODOS, or data 
disks. (Single Density) 

$16 95 on Cassette — $19.95 on Diskette 

Plus $1.00 handling (Indiana Res. add 4% taxi 

TOLL FREE 24 HR. ORDERING SERVICE 

1 800 525-9391 (Ext. 5091 (Except Colo.) 

1-800-332-9259 (Ext 509) (Colo. Residents) 

or Mail Check or Money Order To: F^Hfl 
COMPLETE COMPUTER SERVICES 
8188 HEATHER DRIVE 
NEWBURGH. INDIANA 47630 ^49n 



• c§> 



*£& 



*.v«V 



\) * State- 



If You've Written 

State-ofthe-Art Software- 

Wed Like to Publish It! 

Were looking for SYSTEM software: 
DISK OPERATING SYSTEMS 
MONITORS 

PROGRAMMER AIDS/UTILITIES 
LANGUAGES 
DATA BASE SYSTEMS 
Then, sit back and collect your 
royalty checks. Write for our free 
Programmer's Kit today! 

INSTANT SOFTWARE. INC. »*- 

Submissions Dept. 

Peterborough. NH 03458 






PRACTICAL 



ANALYSIS 



Presents computer program? 'or cr"non 

i" 

Computes the acceleration 
tlae for starting electric 
fiotors under load 

• PIPELINE Calculates pressure versus 
flo*' -OintS 

for pipelines 

- I r. • piping 
systers to detemlne 
flowrates and pressures 

; ■ EVEL 1 

rE OR DISK 

MOTOR START 

PIPE DESIGN 

S75.00 

FOR 0I5K 

CI NONE RDER TO: 

PRACTICAL ANALYSIS 

6518 LA MORA 
HOUSTON , »" 38 



BOWLING 



i ,., i 



LEAGUE 

-, ii, 

M/\l lol U .i 
For the TRS-80' 

BOvVLSTAT 2 'I will g?n«rat? team Handing 
sheets suitable lor posting with full te.im and 
player statistics and also prints • 
insets A wide range of handicapprig and 
■coring options meets almost any .. 

■ tnti Entry of weekly acorn is last 
and simple with extensive prompting and 
error deti 

On Diskette with I 1st • '■■ » 

(or the Model I Hot III 

$79.95 

Manual Onkj 

■ . • I hfjvStte) 

S9.95 

i ■ i 

Datascore 

P. O. Box 995. Sharon. Pa 16146 



SO 



microcomputing 



Back Issues 




January 1980 $5.00 

February to June 1980 3.00 

Single back issue 
July 1980 on 3.50 

Single back issue 

Add $ 1.IH) pvr magazine lor shipping 

10 or more back issues 

add %~ SO per order lor \hippm# 
See List of Advertisers on page 4 18 



COMPUTES SOFTWARE 




10% Discount 




APPLE ATAHI 


TRS SO Lll 


Adventure Sena* »1 -11 T AT AP 


$l7»STipe 


Conflict 2500 T AT AP 


i3S0Tape 


Deatnmare WOO T AP 


ii 64 Tape 


Empire ot Ihe Overmmd T AT AP 131 50 Disk 


27 00 Tape 


invaders from Space T only 


'3 45 Tape 


Rescue at Rigei T AT AP 


26 05 Tape 


Supar Script T only 


26 95 Tape 


Tawaias Last Redoubt T {Tapei $2245 Disk Ji'96 Tape 
AP(Drsk) 


Many more games utilities business etc 
Disk and Cassette 


available 


Purchase DyMO Check (Allow 10 days to clear) 

or C O D 

Add $1 00 Postage Per Order 

(MO Add 5% Sales Tax) 


For pnee sheet, write so 




Computer So'tware 

PO BOX 59612 WALTER REED STATION 

WASHINGTON DC 2001? 



TR5-AD Model 

SOFTWARE 
Machine Language 
Programs 
featuring: 

* GAMES - Fast action 
Great Graphics 

• UTILITIES - For 
novice to professional 

Send $3.00 for Demo 
tape (Refundable) 

SOFTTOUCH 

Software Inc. 

P.O. BOX 46607 

Cincinnati, Ohio 45246 
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SHARE YOUR 
IDEAS 

Wayne Green Books announces 

April 1, 1982 deadline for 

submission of new manuscripts 

for consideration for 

the Fall Book List. 



For submissions procedures and 

further information, contact 

Chris Crocker, Editor, Wayne Green Books 

Peterborough, New Hampshire 03458 
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HARD CDPV 



STORAGE I 

a problem? 
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Herp's the ideal way to keep your 
growing collection of 80 Micro- 
computing in order! The 80 Micro- 
computing Library Shelf Boxes 

sturdy, corrugated, white, dirt-re- 
sistant boxes will keep your issues of 80 Microcomputing orderly 
and available for constant reference Self-Sticking labels are 
available for the boxes, too. not only for 80 but also for Kilobaud 
Microcomputing. 7} Magazine, CQ. QS7, Ham Radio, Personal 
Computing, Interface Age. Ryte and Radio Electronics Ask tor 
whu Never labels you want with your box order f ach box holds ,i 
full year of the above magazines Your magazine library is your 
prime reference: Keep it handy and keep it neat with these strong 
library shelf boxes. One box (BX1 000) is $2 00. 2-7 boxes (BX1001) 
are $1 SO each, and 8 or more boxes (BX1002) are $1 25 each Be 
sure to specify which labels we should send. Shipping and handling 
charges are $7.50 per order. Call in your credit card orders on our toll 
free line 800-258-5473, or use the order card in the back of the 
maga/ine and mail to: 



w 



microcomputing 



Peterborough, 
NH 03458 



<■«*- tor <l.-liver\ Sol ()[) c»<iecs di if pled 



MAKE **«$$$ 
**$ MONEY 

Selling 8o Microcomputing, the only major journal for the users of the 
TRS-80*, is a sure bet for getting the computer enthusiast into your 
store. Once through the door you can sell him anything. 

We know "80" will make you money. . .it's the only magazine for the 
TRS-80 • users and you know how many of those there are. So call today 
and join the dealers who make money with "80". 

For information on selling 80 Microcomputing, call 603-924-7296 and 
speak with Ginnie Boudrieau, our Bulk Sales Manager. Or write to her 
at 80 Microcomputing, Pine Street, Peterborough, NH 03458. 



TRS-80 is a trademark of the Tandy Corp. 
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—BASIC & PASCAL— 
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• INTRODUCTION TO TRS-M LEVEL II BASIC AND 
COMPUTER PROGRAMMING— BK1219— by Michael 
P Zabmski. Written by an experienced educator, this >s 
the book tor those beginners who want to learn about 
computers without having to become an expert It has 
practical programs, useful line-byline comments, ex- 
cellent flowcharts accompanied by line numbers and 
over 200 exercises which help the reader assess prog- 
ress, remlorce comprehension, and provide valuable 
practical experience. $10.95." 

• 50 BASIC EXERCISES— BK 11 92 -by J P lamouier 
This book is structured around Ihe idea that the best 
way to learn a language is through actual practice II 
contains 50 completely explained exercises state 
me"! and analysis o* Ihe problem flowcharts, pro- 
grams and actual 'jns Program subiects include 
mathemat cs business games and operations re- 
sea-c K and a-e presented - <a','ng levels o* di"i 
cuity This format e-at: es a" .o-e to ea'" BASIC 'ap 
idiy checking then co5'»ss a: eac"i step $12 95* 

• THE BASIC HANDBOOK-BK1 174— NEW, SECOND 
EDITION by David Lien. This book is unique. It is a vir- 
tual ENCYCLOPEDIA of BASIC While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies. If a 
computer does not possess the capabilities of a need- 
ed or specified word, there are often ways to ac- 
complish the same function by using another word or 
combination of words. That's where the HANDBOOK 
comes in. It helps you get the most from your com- 
puter, be it a "bottom-of-the-line" micro or an oversized 
monster. $19.95.' 

• LEARNING LEVEL M-BKll7S-by David Lien Writ 
ien e' :.<?■' , tc the tps (JO irvs book concentrates 
o" ce<e II BASiC e»c o - "ig e.e^v important BASIC 

9~;i J a.;e captbdtt) Updates a-e included 'O' those 
who nave stud'ea t*e Leve- ' Use' s Manual Sections 
... ->,. * 0A . D jse .Kp Ej.io' dua> cassette oce'a 
lion printers ana peripheral devces and the confer 
sion o< Leve 1 i D'ograms to Leve n $15 95 " 

• BASIC BASIC (2ND EDITION)- BK1026— by James 
S Coa^ Th.s >s a textbook which mcorpo'ates the 
learning o< computer programming using the BASIC 
language with the teaching of mathematics Over 100 
samp:e p'ograms Hiust'ite the lechniques of Ihe BA- 
SIC language and every section is followed by practi- 
cal problems This second edition covers character 
string handling and the use of data files. $10 50 * 

• ADVANCED BASIC— BK 1000— Applications, includ 
mg strings and files, coordinate geometry, area, se- 
quences and series, simulation graphing and games 
$10 75" 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS (2nd Edition)- BK1073 — by Donald 
Spencer, provides the serious student ot BASIC pro- 
gramming with interesting problems and solutions No 
knowledge o' math above algebra required includes a 
number of game programs, as wen as programs 'or 
financial interest, conversions and numeric manipula- 
tions $6 95 " 



• PASCAL— BK 11 88— by Paul M. Chirlian. Professor 
Chirlian's textbook combines a simple approach to the 
PASCAL language with comprehensive coverage on 
how a computer works, how to use a flowchart, work 
mg from a terminal as well as batch operation and 
debugging. Special attention is paid to idiosyncrasies 
of the language and syntax flowcharts abound for the 
convenience of the experienced programmer. Well in- 
dexed $12.95' 

• INTRODUCTION TO PASCAL- BK 1189— by Rodnay 

Zaks. A step by-step introduction lor anyone wanting 
to learn the language quickly and completely. Each 
concept is explained simply and in a logical order All 
features of the language are presented in a clear, easy 
to-understand format with exercises to lest the reader 
at the end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used 
dialect for small computers. No computer or program 
ming experience is necessary. $14 95 * 

• PROGRAMMING IN PASCAL -BK 11 40— by Peter 
Grogono. The computer programming language 
PASCAL was the first language to embody in a coher- 
ent way the concepts of structured programming, 
which has been defined by Edsger Dijkstra and C.A R. 
Hoare. As such, it is a landmark in the development of 
programming languages. PASCAL was developed by 
Niklaus Wirth in Zurich: it is derived from the language 
ALGOL 60 but is more powerful and easier to use 
PASCAL is now widely accepted as a useful language 
that can be efficiently implemented, and as an ex- 
cellent teaching tool. It does not assume knowledge of 
any other programming language; it is therefore suit- 
able for an introductory course. $12.95." 



—GAMES— 



• 40 COMPUTER GAMES— BK7381 -Forty games in all 
m nine different categories Games for large and small 
systems, and even a section on calculator games. Many 
versions of BASIC used and a wide variety of systems 
represented A must to' the serious computer games- 
man $7 95" 

• BASIC COMPUTER GAMES — BK1074— Okay. SO 
once you gel your computer and are running in BASIC, 
then what? Then you need some programs in BASIC, 
mats what This book has 101 games Tor you from very 
simple to real buggers. You get the games, a descrip- 
tion of the games, the listing to put in your computer 
and a sample run to show you how they work. Fun. Any 
one game will be worth more than the price of the book 
for the fun you and your family will have with it. $7.50." 

• MORE BASIC COMPUTER GAMES-BK1182- 
edited by David H. Ahl. More fun in BASIC! 84 new 
games from the people who brought you BASIC Com- 
puter Games. Includes such favorites as Minotaur (bat 
tie the mythical beast) and Eliza (unload your troubles 
on the doctor at bargain rates). Complete with game 
description, listing and sample run. $7.50." 

• WHAT TO DO AFTER YOU HIT RETURN— BK1071 - 
PCC's first book of computer games. . 48 different 
computer games you can play in BASIC. . .programs, 
descriptions, many illustrations. Lunar Landing. Ham- 
murabi. King. Civel 2. Qubic 5. Taxman. Star Trek. 
Crash. Market, etc $10.95." 



• THEORY Z—BK1226— How American Business Can 
Meet the Japanese Challenge— by William Ouchi. Why 
are the Japanese? catching up and surpassing 
American industnal productivity? What allows 
Japanese industrialists to offer guaranteed lifetime 
employment to their workforce 9 This book will help 
you understand the Theory Z managerial phiiosophv 
and its implications 'oi the American corporate future 
Examples are g «»n o' tne American industrial giants 
already operating under Z stye management and the 
impact of this stye on the Quality oi their executives 
and workers is expio'ed A must 'or tne aiert ousiness- 
man arge or smai ; $12 95" 

• SO YOU ARE THINKING ABOUT A SMALL 
BUSINESS COMPUTER — BKl222-0y Richard G Can- 
ning and Nancy C Leeper For a *eli-orgamzed manual 
on the process of selecting the right compuie' system 
tor your small business, this text can'i be excelled. De 
signed to introduce Ihe novice in dala and word pro- 
cessing to the real benefits of computerization. Ihe 
book is filled with money- and time-saving tips, photos 
ot equipment, lists of suppliers, prices, explanations 
of computer terminology, and helpful leferences to 
additional sources ol information Everyone con- 
templating a first computer installation should have 
this book $14 00 " 

• PAYROLL WITH COST ACCOUNTING-IN BASIC- 
BK1001— by L Poole & M Borchers. includes program 
listings with remarks, descriptions, discussions o< the 
principle behind each program, file layouts, and a com- 
plete user's manual with step-by-step instructions 
flowcharts, and simple reports and CRT displays Pay 
roil and cost accounting featjres include separate 
payrolls for up to 10 companies, time-tested interac- 
tive data entry, easy correction of data entry erro'S. job 
costing ilabor of distribution), check printing with full 
deduction and pay detail, and 16 different printed re- 
ports, including W-2 and 941 (in CBASIC) $20 00." 

• SOME COMMON BASIC PROGRAMS- BK1053- 
published by Adam Osborne & Associates, Inc Perfect 
for non technical computerists requiring ready-to-use 
programs. Business programs, plus miscellaneous 
programs Invaluable for the user who is not an ex 
penenced programmer All will operate in the stand- 
alone mode $14 99 paperback. 

• PIMS: PERSONAL INFORMATION MANAGEMENT 

SYSTEM— BK1009— Learn how to unleash the powc 
o' a personal computer for you' own benefit m this 
ready to use data base management program 
$11 95 " 

— MONEYMAKING— 



• HOW TO MAKE MONEY WITH COMPUTERS- 

BK1003 — In 10 information-packed chapters. Jerry 
Felsen describes more than 30 computer- related, 
money-making, high profit, low capital investment op- 
portunities. $15.00." 

• HOW TO SELL ANYTHING TO ANYBODY -BK7306- 

According to The Guinness Book of World Records, the 
author, Joe Girard, is "the world's greatest salesman." 
This book reveals how he made a fortune— and how you 
can. too. $2 25 " 

• THE INCREDIBLE SECRET MONEY MACHINE- 

BK1178— by Don Lancaster. A different kind of "cook- 
book"' from Don Lancaster Want to slash taxes? Get 
free vacations? Win at investments? Make money from 
something that you like to do? You'll find this book 
essential to give you the key insider details of what is 
really involved in starting up your own money machine 
$5.95 " 



No COD. orders accepted. All orders add $1.50 for first book, $1.00 each additional book, 
$10.00 per book foreign airmail Please allow 4-6 weeks for delivery. Questions regarding 
your order? Please write to Customer Service at the following address. 



"Use the order card in this magazine or itemize your order on a separate piece of paper 
and mail to 80 Microcomputing Book Department • Peterborough NH 03458. Be sure to 
include check or detailed credit card information. 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 




PROGRAMMING 
— Z-80— 

• TRS-80 ASSEMBLY LANGUAGE- B* 1217 c, 

Hubert S Howe, Jr This book incorporates into a 
Single volume all the pertinent facts and information 
you need to Know to program and enjoy the TRS-80 in- 
duded are clear presentations of ail introductory ccn 
cepts. completely tested practical proqrams and sub 
routines, details of ROM and RAM and rusk operating 
systems, plus comprehensive tables, charts and ap 
pendices Suitable for the first time user 01 mo- ex- 
perienced users. $9.95. * 

• INSIDE LEVEL II— BK1183 — For machine language 
programmers' This is a comprehensive reference 
guide lo the Level n ROMs allowing easy uiiiizahon o' 
the sophisticated routines they contain n concisely 
e«piains set-ups catling sequences variable passage 
and iO routines Part n presents an entirely new com 
pos.te program structure which unloads under The 
SYSTEM command and e«ecules W both BASIC and 
machine code with the speed and efficiency of a com 
piier Special consideration is given to disk systems 
$15 95 • 

• PROGRAMMING THE Z 60 BKit?? oy Rodnav 
Za»s Here s assembly anguage p'ogra^.mmg (or the 
Z-80 presented as a coqressive step by step course 
This bcoK s both ar- educationa' te«t ana a self 
contained 'f-'erence book useful to both 'he beginning 
and the P>ppnenced programmer who wish to learn 
about the Z 80 E>er rises lo test the 'eader are inciuo 
ed 114 96 ' 



• Z-80 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK 1045— by Nat Wadsworth. Scelbi's newest 
cookbook! This book contains a complete description 
of the powerful Z-80 instruction set and a wide variety 
of programming information. Use the author's ingre- 
dients including routines, subroutines and short pro- 

8 rams, choose a time-tested recipe and start cooking! 
1699- y 

• Z-80 ASSEMBLY LANGUAGE PROGRAMMING - 
BK1177— by Lance A. Leventhal This book thoroughly 
covers the Z-80 instruction set. abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure. $16.99." 



6809 



• 6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING-BK1215-by Andrew Z Staugaard 
Jr Getting involved with Tandy s new < >.mr Computer'' 
If so. this new book from the BU>sburg Group win 
aiiow you to exploit the awesome power of the 
machine's 6809 microprocessor Detailed information 
on processor architecture addressing modes, register 
operation, data movement arithmetic logic opera 
tions. I/O and inteitacmg is provded as well as a 
ieview section at the end of each chap"" Four appen 
dices are included covering the 6809 instruction set 
specification sheets ot 'he 6809 family ol piucessors. 
other 6800 series equipment and the 6tt09'682i 
Peripheral interlace Adapter This book is a must tor 
the serious Coloi Computer owner $13.95 ' 



A NEW PROGRAMMING SERIES 



The Microprocessor Software Engineering Series by 

John Zarrella provides common sense descriptions 
of advanced computer system topics for engineers 
programmers and development managers. Each 
volume is a self-contained review of a software 
engineering topic, explaining fundamental concepts 
m easy-to understand language and describing 
sophisticated software tools and techniques De 
tailed glossary ot technical jargon is included in 
each volume. This series will help you find the solu 
tions to your software problems. 



• WORO PROCESSING AND TEXT EDITING Hk ' ' -W 
— Provides a turn basis tor understanding word pro 

c "ssmg terminology and tor comparing systems 
$7 95 ■ 

• SYSTEM ARCHITECTURE BK1195 Present a 
detailed overview of advanced computer system 
design deluding object architecture and capability 
based addressing $9 95 " 

• OPERATING SYSTEMS CONCEPTS AND PRINCl 

PLES 8*1193 Presents an overview of the basic op 

-idling sysle'n hpes thp'i un ponprts and i apabn 
t es $7 95 • 



ALL NEW— FOR 80 OWNERS 

ENCYCLOPEDIA FOR THE TRS-80* 



ENCYCLOPEDIA FOR THE TRS-80" is 

the newest peripheral for your micro- 
computer. This ten-volume reference 
series contains programs and articles 
especially selected to extend the docu- 
mentation that comes with the TRS-80 
Volumes of the Encyclopedia are being 
issued one-at-a-time, approximately six 
weeks apart. This means that each new 
volume will reflect the latest develop- 
ments in TRS-80 microcomputing. 
Encyclopedia for the TRS-80 is avail- 
able in two editions. The deluxe 
COLLECTOR'S EDITION has a hand- 
some green and black hard cover with a 
dust jacket. A soft cover edition is also 
available. 

To order single hard cover volumes of 
the Encyclopedia please specify: 
Volume 1 EN8101 $19.95* 

Volume 2 EN8102 $19.95* 

Volume 3 (avail. Nov) EN8103 $19.95* 
Volume 4 (avail. Jan) EN8104 $19.95* 
Volume 5 (avail Feb.) EN8105 $19.95* 

To order single softcover volumes of the 
Encyclopedia please specify: 

Volume 1 EN8081 $10.95* 

Volume 2 EN8082 $10.95* 

Volume 3 (avail. Nov.) EN8083 $10.95* 

Volume 4 (avail Jan.) EN8084 $10.95* 

Volume 5 (avai I . Feb.) EN8085 $1 0.95* 




EHCHIOWDU 
FOtWIKSO' 






SPECIAL INTRODUCTORY OFFER 

Order the entire set (the first ten volumes) 
of the Encyclopedia for the TRS-80 and 
receive the "tenth volume FREE! 

10 Volume deluxe hard cover 
COLLECTORS EDITION —a $199.50 
value. 

EN8100 $164.00 postpaid 

10 Volume soft cover edition, a $109.50 
value. 

EN8080 $83.00 postpaid 



ENCYCLOPEDIA LOADER is the 
software companion to the 
Encyclopedia for the TRS-80. This 
special series of cassettes will 
allow you to load selected pro- 
grams from the Encyclopedia in- 
stantly. Hours of keyboarding time 
and the aggravating search for 
typos is eliminated Dy using the 
Encyclopedia Loader. 

Encyclopedia Loader for Volume 1 
of the Encyclopedia of the TRS-80 
is available at a Special Introduc- 
tory Price of $12.95 (a $14.95 
value). To take advantage of this 
offer specify: 

EL800111 $12.95* 

Additional Encyclopedia Loaders 
will be available as each volume 
of the Encyclopedia for the TRS- 
80 is issued. To order specify 
Encyclopedia Loader 

Volume 2 EN8002 $14.95* 

Volume 3 EN8003 $14.95* 

Volume 4 EN8004 $14.95* 

Volume 5 EN8005 $14.95* 



NoCOD orders accepted All orders add $1.50 for first book. $1.00 each additional book. 
$10.00 per book foreign airmail Please allow 4-6 weeks for delivery. Questions regarding 
your order'' Please write to Customer Service at the following address. 



"Use the order card in this magazine or itemize your order on a separate piece of paper 
and mail to 80 Microcomputing Book Department • Peterborough NH 03458 Be sure to 
include check or detailed credit card information. 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 
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• UNDERSTANDING AND PROGRAMMING MICRO 
COMPUTERS— BK7382- A valuable addition to your 
computing library This two-part text includes the besl 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and so't- 
ware aspects ot microcomputing Well Known authors 
and well structured text helps the reader get involved 
$1095* 

• SOME OF THE BEST FROM KILOBAUD MICROCOM- 
PUTING— BK731 1 —A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING Includ- 
ed is material on the TRS-80 and PET systems, CP'M. the 
8080/8085/Z-80 chips, the ASR-33 terminal Da'? base 
management, word processing, text editors aitd tile 
structures are covered too Programming techniques 
and hard-core hardware construction proiects tor 
modems, high speed cassette interlaces and TVTs are 
also included in this large tormat. 200 plus page edition 
$10.95 - 



• YOUR FIRST COMPUTER-BKl191-by Rodnay 
Zaks Whether you are using a computer thinking 
about using one or considering purchasing one. this 
book is indispensable. It explains what a computer 
system is. what il can do. how it works and how to 
select various components and peripheral units It is 
written in everyday language and contains invaluable 
information tor the novice and the experienced pro 
grammer (The first edition of this book was published 
under the title "An Introduction to Personal and 
Business Computing ) $8 95* 

• MICROPROCESSOR INTERFACING TECHNIQUES 
— BK1037— by Austin Lesea & Rodnay Zaks— will 
teach you how to interconnect a complete system and 
interface it to all the usual peripherals It covers hard- 
ware and software skills and techniques, including the 
use and design of model buses such as the IEEE 488 or 
S-100 $15.95.- 



• HOBBY COMPUTERS ARE HERE! — BK73?? If you 
want to come up to speed on how computers work 
hardware and software this is an excellent book It 
starts with fundamentals and explains the orcuiis. and 
the basics ot programming, along with a couple of TVT 
construction protects. ASCII Baudot, etc This book has 
the highest recommendations as a teaching aid $4 95 * 

• THE NEW HOBBY COMPUTERS- BK7340 - This 

book takes it from where HOBBY COMPUTERS ARE 
HERE 1 ' leaves off. with chapters on Large Scale Integra 
lion, how lo choose a microprocessor chip, an introduc- 
tion to programming, low cost I/O tor a computer, com 
puter arithmetic, checking memory boards and 
much, much more! Don't miss this tremendous value 1 
Only $4 95 ' 

• AN INTRODUCTION TO MICROCOMPUTERS. VOL 
— BK1130- The Beginner s Book — Written for readers 
who know nothing about computers — tor those who 
have an interest in how to use computers — and for 
everyone else who must live with computers and 
should know a little about them The first in a series ot 
4 volumes, this book will explain how computers work 
and what they can do Computers have become an in- 
tegral part of lite and society During any given day you 
are affected by computers so start learning more 
about them with Volume $7 95 ' 

• VOL. I— BKl030-2nd Edition completely revised. 
Dedicated to the basic concepts of microcomputers 
and hardware theory The purpose of Volume I is to 
give you a thorough understanding of what microcom 
puters are From basic concepts (which are covered in 
detail). Volume I builds the necessary components of a 
microcomputer system This book highlights the dit 
ference between minicomputers and microcomputers 
$1299 • 

• VOL. II — BK1040 (with binder) — Contains descrip 
tions of individual microprocessors and support 
devices used only with the parent microprocessor 
Volume II describes all available chips $31 99" 

• VOL. Ill — BK1 133 (with bindeo-Contains descrip- 
tions of an support devices thai can be used with any 
microprocessor $21 99° 




• TRS-80 DISK AND OTHER MYSTERIES BKl 181- 

by Harvard C. Pennington This is the definitive work 
on the TRS-80 disk system. It is full of detailed "How 
to' information with examples, samples and in-depth 
explanations suitable 'or beginners and professionals 
alike The recovery of one lost file is worth the price 
alone $22.50.* 

• MICROSOFT BASIC DECODED AND OTHER 
MYSTERIES— BK 11 86 -by James Farvour. From the 
company that brought you TRS-80 DISK AND OTHER 
MYSTERIES' Contains more than 6500 lines of com- 
ments for the disassembled Level II ROMs, six addi- 
tional chapters describing every BASIC subroutine, 
with assembly language routines showing how to use 
them. Flowcharts for all major routines give the reader 
a real insight into how the interpreter works. $29.50. 



—SPECIAL INTERESTS— 



• THE CUSTOM TRS-80 AND OTHER MYSTERIES- 
BK1218— by Dennis Kitsz More than 300 pages of 
TRS-80 customizing information. With this book you'll 
be able to explore your computer like never before 
Want to turn an 8 track into a mass storage unit'' In- 
dividual reverse characters'' Replace the BASIC 
ROMs 1 Make Music 1 High speed, reverse video. Level I 
and Level IP Fix it if it breaks down 1 All this and much, 
much more Even if you have never used a soldering 
iron or read a circuit diagram, this book will teach you 
how 1 This is the definitive guide to customizing your 
80! $29.95.* 

• BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— BK1221 —by Lewis Rosenfelder. You don't 
have to learn assembly language to make your pro 
grams run fast. With the dozens ot programming tricks 
and techniques in this book you can sort at high speed, 
swap screens in the twinkling of an eye. write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum. and explore the power of USR calls $29 95 " 

• THE CP/M HANDBOOK (with MP(M)-BK1 187-by 
Rodnay Zaks A complete guide and reference hand 
book for CP/M the industry standard in operating 
systems. Step by step instruction tor everything from 
turning on the system and inserting the diskette to cor 
rect user discipline and remedial action for problem 
situations This also includes a complete discussion 
o' all versions of CP'M up to and including 2 2. MP/M 
and CDOS $14 95" 

• INTRODUCTION TO TRS-80 GRAPHICS — BK1 180 — 

by Don Inman Dissatisfied with your Level I or Level II 
manual's coverage of graphics capabilities 1 This well 
structured book (suitable for classroom use) is ideal 
for those who want to use an the graphics capabilities 
built into the TRS-80. A tutorial method is used with 
many demonstrations It is based on the Level I, but all 
material is suitable for Level II use $8 95 * 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE 




• TOOLS I TECHNIQUES FOR ELECTRONICS- 

BK7348 — by A A Wicks is an easy to-understand book 
written for the beginning kit builder as well as the ex- 
perienced hobbyist It has numerous pictures and 
descriptions o! the safe and correct ways to use basic 
and specialized tools for electronic projects as well as 
specialized metal working tools and the chemical aids 
which are used in repair shops $4 95 * 

• HOW TO BUILD A MICROCOMPUTER— AND REALLY 

UNDERSTAND IT— BK7325— by Sam Creason The elec- 
tronics hobbyist who wants to build his own microcom- 
puter system now has a practical "How-To" guidebook 
This book is a combination technical manual and pro- 
gramming guide that takes the hobbyist step-by-step 
through the design, construction, testing and debugging 
of a complete microcomputer system. Must reading for 
anyone desiring a true understanding of small computer 
systems $9 95 ' 



NoC.O.D. orders accepted. All orders add $1.50 for first book, $1 00 each additional book. 
$10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions regarding 
your ordeP Please write to Customer Service at the following address. 



"Use the order card in this magazine or itemize your order on a separate piece of paper 
and mail to 80 Microcomputing Book Department • Peterborough NH 03458. Be sure to 
include check or detailed credit card information 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 





Other Money Savings Opportunities Order by Phone or Mail 



CABLES 



TRS-80 



Still have storage problems? 



Fully TRS-80® Compatible 

(Model I or III) 

Disk Drives 

Model 148 250K, 1 Side, 40 Tracks $321.00 

248 500K. 2 Sides, 40 Tracks per side $439.00 

196 500K, 1 side, 80 Tracks $439.00 

296 1 Meg, 2 Sides, 80 Tracks per side $590.00 

Includes: Case and Power Supply — Fully Tested 

10 Day Money Back Guarantee 

90 Days Parts and Labor Warranty ^ sh„, 

Standard Features Include 

• 40/80 Tracks • Speed constant <1 Y 2 % 

• Hi-Temp stability • Single/double density 

• Flippy Option Available 

ADDS MORE POWER TO YOUR SYSTEM 



2 Drive Cable. 
4 Drive Cable 

Diskettes 



S 29.00 
$39.00 



Syncom 10 for $35.00 
Plastic File Box ...$3.95 



Operating Systems 



16K Model III $899.00 
48K Model III 
w/2 Disks $1900.00 

Printers 

Epson MX80 $550.00 

MX80F/T $675.00 

MX100 $850.00 

16K Memory Kits 



Save time . . . Order by phone 
(Orders only: 1-800-621-3229) 

Information: 312-987-1024 
Tech. assistance: 312-987-1032 



TRSDOS 2.3.. . 


$14.95 


Prime NEC 200ns dynamic 


40 Track Patch . 


$9.95 


RAM. Comes with complete 


NEWDOS + 




instructions $39.00 


40 Track 


$99.00 




Newdos 80 2.0 


$139.00 




Super Utility. . 


$49.00 




Make 80 ... 


$14.00 




Make 80 III. . 


$29.00 





m 

a 



F 



MIDWEST 



COMPUTER 



PERIPHERALS 



146/ S MICHIGAN 
CHICAGO ILLINOIS 60605 



tHSSC 'ANDv COHf 



FREE! UPS GROUND SHIPPING ON ALL ORDERS OVER $100.00 



Quantity 


Description 


$ each 


Total 






















































6 . ILTax 
TOTAL 









Check enclosed 
Bill my _. Visa ... Am fcx 
Maste r Charge 
Acct No _ 



&■ 



Name 

Address . 
City 



Exo. 



State. 



Z: D - 



MIDWEST COMPUTER PERIPHERALS 

1467 S. MICHIGAN AVE. 

CHICAGO. IL 60605 



Not Resoon»*i* '0' 'yoog-af'ca E"0'S Prices Suoiect to Cia->ge * o notice 
Dnve Doc- May Ho\ Be As Snowr. 
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lA/fe've got it! 

The ***& can buy • • • 

If your data is important use quality 
MAXELL disks. 



Buy our year-end special 
('til December 31, 1981). 



All MAXELL certified for single or double density. 



maxell 




MD1 574" sector, single-sided 
For TRS-80 Superbram, Apple 

MH1 5/4" 16 sectors, single-sided 
For Mtcropoiis Systems 

MHMO 5V4" 10 sectors. singUMid 

For North Star Zenith, . "^ 



MD2D sector, do 
For Super) 

MD2-10 10 se 
Fa 



$29.95 




$44.95 



FD2 8" double 3 



$41.95 
$54.95 



The Mini-Disks with 



maximum quality. 



Mini Micro Mart, Inc. 

943 W.Genesee St. Syracuse, N.Y. 13204 (315)422-4467 



• ?* 



*8m ill ol Ai*»rti wt on otgt * f * 
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Why use their flexible discs: 

Athana, BASF, Control Data, Dysan, IBM, Maxell, Nashua, 
Scotch, Shugart, Syncom, 3M, Verbatim or Wabash 

when you could be using 

MEMOREX 

for as low as $1.94 each? 

Find the flexible disc you're now using on our cross reference list... 
then write down the equivalent Memorex part number you should be ordering. 
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Memorex Flexible Discs... The Ultimate in Memory Excellence 



Quality 

Memorex means quality products tnat you can depend on 
Quality control at Memore« means starting with the best 
materials available Continual surveillance throughout the 
entire manufacturing process The benefit o* Memore.'s years 
of e«penence kl magnetic media production resulting, for 
instance m proprietary coating formulations The most sophis- 
ticated testing procedures you'll find anywhere in the business 

100 Percent Error Free 

Each and every Memorex Flexible Disc is certified to be 100 
percent error free Eacl track of eacn flexible disc is tested, 
individually, to Memorex's stringent standards of excellence 
They teat signal amplitude, resolution tow-pass modulation, 
overwrite, missing purse error and extra pulse error They are 
torque-tested, and competitively tested on drives available 
from almost every major drive manufacturer m the industry 
including drives that Memorex manufacturers Rigid quality 
audits are built into every step of the manufacturing process 
and stringent testing result in a standard of excellence that 
assures you. our customer, of a quality product designed for 
increased data reliability and consistent top performance. 

Customer-Oriented Packaging 

Memorex's commitment to excellence does not slop with a 
quality product. They are proud of their flexible discs and they 
package them with pride. Both their packaging and their 
labeling have been designed with your ease of identification 
and use in mind. The desk-top box containing ten discs is 
convenient for filing and storage. Both box labels and jacket 
labels provide full information on compatibility, density, sec- 
toring, and record length. Envelopes with multi-language care 
and handling instructions and color-coded removable labels 
are included. A write- protect feature is available to provide 
data security. 

Full One Year Warranty — Your Aeeuranc* of Quality 
Memorex Flexible Discs will be replaced by Memorex if they 
are found to be defective in malenals or workmanship within 
one year of the date of purchase Other than replacement. 
Memorex will not be responsible for any damages or losses 
(including consequential damages) caused by the use of 
Memorex Flexible Discs 



Quantity Discounts Avails bi* 

Memorex Flexible Discs are packed 1 discs to a carton and 
1 cartons to a case Please order only m increments of 1 00 
units for quantity 100 pneing We are also willing to accom- 
modate your smaller orders Quantities less than lOOunitsare 
available in increments o* 10 units at a 10^ surcharge 
Quantity discounts are also available Order 500 or more 
discs at the same time and deduct 1 V i .000 or more saves 
you 2%. 2.000 or more saves you 3V 5 000 or more saves you 
4%. 10.000 Or more saves you 5%. 25.000 or more saves you 
6% 50.000 or more saves you 7»* and 1 00.000 or more discs 
earns you an 8*b discount off our super low quantity 1 00 price 
Almost all Memorex Flexible Discs are immediately available 
from CE. Our warehouse facilities are equipped to help us get 
you the quality product you need, when you need it If you need 
further assistance to find the flexible disc that's right for you. 
call the Memorex compatibility hotline Dial 800-538-8080 
and ask for the flexible disc hotline extension 0997 In California 
dial 800-672-3525 extension 0997 

Buy with Confidence 

To Q«t ir>* fastest delivery from CEo 1 your Memorex f leu ible Discs send 
or phone your order directly to our Computer Pr oducis. Divitoon be sure 
to calculate youi price uungtheCE prices ml his erj Michigan resident* 
please add «6 sales tax. Written purchase orders aie accepted tiom 
approved government agencies end most well reted firms at • 10*6 
surcharge lor net 10 billing All tales are subiect to availability, 
acceptance and verification. All sales are final Prices, terms and 
specifications are subject to change without notice Out of stock items 
will be placed on backorder automatically unless CE is instructed 
differently. Minimum order $50. 00 International orders are invited with 
a$20 00 surcharge for special handling in addition lo shipping charges. 
All shipments are FOR Ann Arbor. Michigan No COO's please Non- 
certified and foreign checks require Dank clearance 

Mail orders to: Communications Electronics Boa 1002 Ann 
Arbor. Michigan 48106 USA Add SB 00 per case or partial-case of 
100 8-inch discs or S600 pei case oi 100 5''. inch mini-discs for 
UPS ground shipping and handling in the continental USA II you 

have a Master Card or visa card, you may on anytime and place 
a credit card order Order toll-tree tt the United States Call 
anytime 800-521 -441 4 If you are outside the U S or in Michigan 
dial 313-994-4444. Dealer inquiries Invited All order lines at 
Communications Electronic* are staffed 2* hours 

Copyright '198' Communications Electronics " 






VISA 



Order Toll-Free! 
(800)521-4414 



In Michigan i313i 994-4444 




G 



For Data Reliability— Memorex Flexible Disc* 

>"263 



COMMUNICATIONS 
ELECTRONICS" 



Computer Products Division 

854 Phoenix Q Box 1002 C Ann Arbor. Michigan 481 06 USA 
Call TOLL-FREE (800) 521 -4414 or outaMJ* U.S.A. (313) 994-4444 




SOFTWARE SPECIALS 

STARF1GHTER ADV. INTL. 

Cat No. 3209 Mod 1. L2, 32K, Disk 

$29.00 

FLIGHT SIMULATOR SUB LOGIC 

Cat No. 2850 Mod 1, L2, 16K, Cass 

$23.00 



EPSON MX-80 Cat No. 2886 

REDUCED TO 

$525.00 

CABLE FOR EPSON TO TRS-80 EXP. 
INT. 

Cat No. 3048TR 
$27.95 
TRS-80 KYBD. TO EPSON INTER- 
FACE 

Cat No. 3150 (Complete) 
$89.95 

TRS-80 BOOKS 

BASIC FASTER & BETTER 
Cat No. 3246 
$27.50 

TRS-80 DISK & OTHER MYSTERIES 
Cat No. 2959 
$19.95 
TRS-80 MANUALS Call for info 



HOW TO ORDER 

Mention this ad and WE PAY SHIPPING (UPS ground only). Write or 
phone. Pay by CHECK, M/C. VISA, or COD. (Add $1.40 for COD.) Of- 
fer expires Jan. 1, 1982. 19511 Business Center Dr., Dept V12, 

Northridge, CA 91324 
(800)423-5387 (Outside CA) (213) 866-9200 (Inside CA) 



When in Southern California visit our two retail stores. 



ELECTRONICS 



19511 Business Center Dr. 
Nothridge, CA 91324 



2301 Artesia 

Redondo Beach, CA 90277 



^Sa* Ittol Aitrtl'SW* on pjpe *'t 
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186.167 
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63.48 

283 246 216 

207 



125 
92 

121 
96 
<79 
>7 
272 
•16 
403 
407 
393 
90 



J01 

203 

195.197.205 
198 



173 Sabronics International Inc 

143 Sales Data. Inc 2*4 

162 Sceit* Publications 92 

291 Scient.tic Engineering Lab 339 

297 Service Technologies in< 258 

19 Simutek 157 

91 Sinty Eight Micro Journal .387 

343 Small Syslems Design 88 

397 Small Systems Design ...373 

• Snappware 53.55.57.59.61 

348 Softbyte Computing 

434 Soft Sector Marketing Inc . 
495 Soft Sector Marketing inc 
498 Soft Sector Marketing inc 

515 Soft Sector Marketing Inc 

516 Sotl Sector Marketing Inc 



292 Sotttouch Software mc 
356 Sottwaie Affair 

163 Software Atfair 

299 Sottwaie Concepts 

13 Sottwaie House Inn 
* The Sottwaie Plantation inc 
454 Sound Center Radio Shack 
373 Southern Innovative Designs 
132 Specliai Associates 
275 Speedway Electron us 
317 Standard Microsystems inc 
255 Stark Software 
438 Stocking Source 

82 Sturdivant 6 Dunn. Inc 

150 Subiogic . . 

151 Sun Research 



301 Sunlronics Company inc 

403 Superior Software 

33t Sybei. Inc 

231 Synergistic Solar Inc 

328 Synten Electronic innovations 

358 Syracuse R A D Center 

60 Syslemworks 

286 Syzygy 

333 TBH Canada 

148 Tab Sales Company 

45 Taranto 6 Associates 

25 Te»as Computei Syslems 

Teias Digital inc 

6 Total Access 

18 Twenty First Century Software 

43 Universal Software Studios 

' V R Data Corporation 
137 Van Horn Office Supply 
363 Walonick Associates 
433 Warlock Warehouse 

334 Wayne Green Books 
590 Western Operations 
327 Westicolnc 

312 Windham Software 

373 XYZT Computer Dimensions Inc 

482 York 10Compu1erv»aie 
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299 

J1 

313 

132 133 
97 
371 



•This advertiser prefers to be contacted directly 
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MEET THE MTI FAMILY OF 
LOW COST COMPUTERS 




•CPM 

• WINCHESTER 
HARD DISK 



• 80 x 24 DISPLAY 

• 4 Mhz 
OPERATION 



• 90 DAY WARRANTY 

• LOCAL DEALER SERVICE 

• MODEL III COMPATIBILITY 



• CPM OPTION 

• GREATER DISK STORAGE 

• 4 Mhz OPTION 



MOO Ml PIUS'140 

*• i*»» tafcan It* basic 1BK 
Mode III eipaided ihe inai»o»y 
lo 46K and addad out MTI OouWa 
0»i«.iy Dual Dik Oki Sv»«»t 
System ■• lu"y conoit'D • »HH 
«a*o Snack DOS •»« perlprerala 



MOD 111/240 

Same a* im MOO ih "1 US/140 

but iss double ilo'«g* capacity 

and 2 dual leaded «0 track 

dn/aa 



MOO IH/200 

Has \5 ttafleOvtet of at orate 
and utilize* 2 dual beaded 10 
neck do j Ma daralty disk d"ve» 
with DOB plua 3 3 



$'•98 



1244* 

CRM/90 ■ 24 Oliplay $499. 



93»9*. 



MOO HI/WINCHESTER 

o j' largaat bii"i«ii computer 
system. 5 7 megabytes o« 
stores*, mcudes a 9 megabyte 
Wncreile- laid da* drha and 
60 Hack dual head disk 0' »• 
uaad aa back up and lor cot 
vantiOAa-i Hoppy diek opeiaHor 
• 6349 



4 Miii Speed-up anha'»camanl |149 



Pboanlx. A* 
tlMfl V.»ta. AZ 

Tucson, A/ . . . 
Artaheim CA . . 
Catiri '_» 
Go eie CA 



f602| 244-9731 
(602) *3B 24'B 
(002) 9)9-0546 
(402) 323 -»Mi 
[}14| .'73 0240 
(213) 332 4(1*« 
(r\f)9i 987T8JB 



MTI AUTHORIZED SALES AND SERVICE CENTERS 



Muntmgto* Bch ,CA(714) 1*2-1346 



inglettood, CA 
Lancaster CA 



12131 67)3295 
19051 942 57*7 



SA 



NoMrvidoe CA 
Pom Hue nam*. CA 
Radondo Bch CA 
S»r> Diego, CA . . . 
Bar Jose. CA. . . 
Santa Crux CA . . 
VaUaro CA 
ffaitot CA 
Grotor CT 
Hollywood PI 



(2131 Me 9200 
(BOS) 948 2328 
(2131 370-5568 
(2141 2/5-4243 
(408) 944-1249 
(4091 427 0836 
(70T| 494-7980 
(7141 894-9311 
(2031 445-51*4 
(3061 691-1011 



Nortross O* 
BUck'oot 10 
Cc4Mti*iile IL 
Sr<ia«apcicl LA 
Anoka MN. 

JopM MO 

Mlaaoiiia MT 
Ralaro* NC 
Card Ford* NO 

Jericho NY 



(404) 449 
(304) 799 
(918) 349 

(319) 865 
(412) 427 
4173 791 
(408) 949 
(619) 789 
(701) 772 
(519) 997 



8982 

1497 
5068 
789) 
9793 
1748 
9718 
i I 
7649 
••434 - 



MarMiasMt NY 
lio» NY 
Maumoe OM 
Oailaa TX 
Cnayaina WY . 
Ue.Ha , BC 



(916) 949-8339 

(819) 373-9411 
(411) 993-4299 
(214) 2*7-4679 
(307)632 9132 
(714) 397 4717 



OVERSEAS 

AtSWa a 3977-49*4 

fi.Qi.-r 1493-2452 

Pap ol South Alnca 2149-1047 



MICROCOMPUTER TECHNOLOGY INC. 

3304 W MACARTHUR, SANTA ANA. CA 92704 
(714) 979-9923 • TELEX 6780401 TABIRIN 



CaH o' wrlle »C' Irae twochure: 

US PRICES POB SANTA ANA 

CALirOINIA AND MAY VARY BY AREA 




^2« 



I 




Frustrating isn't it! No matter how 
much you speed up your program 
it still seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exairon did, the Exatron Stringy 
Floppy (ESF) . 

Total! v sell -contained, the ESF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
are under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or forget 

The ESF uses a miniature tape 
cartridge, about the size of a busi- 
ness card, called a wafer. The 
transport mechanism uses a direct 
drive motor with only me moving 
part. Designed to read and write 



digital data only, T .he ESF suffers 
from none of *he drawbacks of 
cassettes - wuhout the expense of 

Several versions of the ESF are 
available, for the TRS-80, Apple, 
PET, OS! and an RS 232 unit. 
Even the slowest of the units is 15 
times faster than a cassette, and all 
are as reliable as disk drives 
fact a lot of users say they are more 
reliable! 




excellence in electronics 

exatron 



To get further information about 
the ESF give Exatron a call on 
their Hot Line 800-538 8559 
(inside California 408-737 7111) 

If you can't wait any longer then 
take advantage of their 30 day 
money- back guarantee, you've 
nothing to lose but time! 

181 Commercial Street 
Sunnyvale, CA 94086 




I KS *•. Apple Mi PET arw Iraclmaxkj of Tandy, Apple Mi CiMniaodot* rupt*Uv«l) 




